Leggere\Scrivere un testo da un file di testo

by 23. febbraio 2009 12.13

Io non mi ricordo mai come leggere o scrivere un file di testo: ho ritenuto quindi di creare un post con due funzioni che possono essere utili.

   1: Imports System.IO
   2:  
   3: ' funzione di lettura del contenuto di un file
   4: Public Function GetFileContents(ByVal FullPath As String, _
   5:        Optional ByRef ErrInfo As String = "") As String
   6:         Dim strContents As String
   7:         Dim objReader As StreamReader
   8:         Try
   9:             objReader = New StreamReader(FullPath)
  10:             strContents = objReader.ReadToEnd()
  11:             objReader.Close()
  12:             Return strContents
  13:         Catch Ex As Exception
  14:             ErrInfo = Ex.Message
  15:         End Try
  16: End Function
  17:  
  18: ' funzione per il salvataggio di un testo in un file
  19: Public Function SaveTextToFile(ByVal strData As String, _
  20:      ByVal FullPath As String, _
  21:        Optional ByVal ErrInfo As String = "") As Boolean
  22:  
  23:         Dim Contents As String
  24:         Dim bAns As Boolean = False
  25:         Dim objReader As StreamWriter
  26:         Try
  27:             objReader = New StreamWriter(FullPath)
  28:             objReader.Write(strData)
  29:             objReader.Close()
  30:             bAns = True
  31:         Catch Ex As Exception
  32:             ErrInfo = Ex.Message
  33:         End Try
  34:         Return bAns
  35: End Function

 

Per poter utilizzare questo codice si può seguire il seguente esempio:

   1: sContents = GetFileContents("C:\test.txt", sErr)
   2: If sErr = "" Then
   3:    Debug.WriteLine("File Contents: " & sContents)
   4:    ' salva in un file differente
   5:    bAns = SaveTextToFile(sContents, "D:\Test.txt", sErr)
   6:    If bAns Then
   7:       Debug.WriteLine("File Saved!")
   8:    Else
   9:       Debug.WriteLine("Error Saving File: " & sErr)
  10:    End If
  11: Else
  12:    Debug.WriteLine("Error retrieving file: " & sErr)
  13: End If

Buon lavoro!

Tags: , , ,

Script SQL To Code

by 23. febbraio 2009 11.54

Ciao a tutti! A me capita che devo inserire nei miei programmi del codice SQL per la creazione di tabelle e non riesco mai a trovare un programma che mi genera un file Visual Basic.NET che mi piaccia. Allora mi lo sono creato. Semplice e fa quello che voglio: per ogni tabella crea una funzione con il nome della tabella e al termine mi crea una funzione AllDatabase che richiama tutte le tabelle. Ogni funzione fa riferimento alla funzione ExecuteCommand che può essere facilmente implementata anche seguento leindicazione che trovate in un altro mio post. Come fare per generare corretamente un file?

  1. Creare ad esempio da SQL Server lo script di generazione delle tabelle.
  2. Eliminare riferimento a SET ANSI_NULL e SET QUOTE_IDENTIFIER con i relativi GO
  3. Copiare lo script rimanente nel programma

Buon lavoro!

ScriptToCode.zip (10,33 kb)

 

Tags: , , ,

Impostare una cultura in un progetto ASP.NET

by 18. febbraio 2009 17.23

Mi è capitato di installare un’applicazione su un server web e molti utenti esterni mi creavano dei problemi sulle date. Ho scoperto che alcuni utenti avevano il sistema operativo in Inglese e quindi le date venivano invertite ma non riconosciute dal server.

Ho risolto imponendo direttamente nel web.config le impostazioni sulla cultura in questo modo:

   1: <configuration>
   2:   <system.web>
   3:     <globalization culture="it-IT" uiCulture="it" requestEncoding="UTF-8" responseEncoding="UTF-8" fileEncoding="UTF-8" />
   4:   <system.web>
   5: </configuration>

Buon lavoro!

Tags:

Creare dinamicamente gli elementi di un ContextMenu

by 10. febbraio 2009 21.42

Non vi è mai capitato di aver la necessità di avere un menu contestuale che deve avere degli elementi che si devono creare dinamicamente?

Beh, io si e ho trovato alcune piccole difficoltà. Posto qui sotto il codice che consente di farlo. Inoltre c’è anche il controllo quando si clicca l’elemento del menu.

   1:  ' definisce l'elemento da inserire nel menu contestuale
   2:  Dim itm As New ToolStripMenuItem
   3:  itm.Tag = "Esempio"
   4:  itm.Text = "Esempio di testo"
   5:  AddHandler itm.Click, AddressOf Me.ToolStripItem_Click
   6:   
   7:  ' funzione di gestione del click
   8:  Private Sub ToolStripItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
   9:          Dim tsi As ToolStripItem = CType(sender, ToolStripItem)
  10:          MsgBox(tsi.Text)
  11:  End Sub

A disposizione per info. Ciao a tutti!

Tags:

Elenco delle tabelle di un database in Microsoft SQL Server

by 2. febbraio 2009 11.26

Come ottenere direttamente da SQL Server l’elenco delle tabella presenti in un database? Avviando una nuova query sul database di interesse, scrivere il seguente script

SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE'

Verrà restituito l’elenco delle tabelle presenti da porte utilizzare ad esempio con tablediff.

Tags:

Page List

Calendar

<<  febbraio 2012  >>
lumamegivesado
303112345
6789101112
13141516171819
20212223242526
2728291234
567891011

View posts in large calendar