formato Comma Separated Value ( CSV ​​) è un formato comunemente usato per lo scambio di dati tra i diversi programmi che non possono sostenere a vicenda formato nativo . Ad esempio, può essere usato per scambiare dati tra i fogli di calcolo di Excel e un altro foglio di calcolo o database di dati tra Access e MySQL . Visual Basic non contiene una funzione automatica per il caricamento di file CSV , comunque una delle ragioni del suo sostegno diffuso è la sua semplicità . Come suggerisce il nome , i file CSV sono altro che un elenco di valori , separati da una virgola o una nuova linea . E 'abbastanza semplice per creare un lettore di file CSV in Visual Basic . Istruzioni
1

Creare un nuovo progetto facendo clic su "File" e " Nuovo progetto ".
2

Trascinare un pulsante nel form dalla casella degli strumenti utilizzando il tuo mouse.
3

trovare il controllo " OpenFileDialog " e aggiungerlo alla vostra forma pure. Dal momento che questo controllo è inizialmente invisibile , non verrà visualizzato sul modulo , ma sotto di esso .
4

doppio clic sul pulsante per creare un evento che si verifica ogni volta che l' utente fa clic sul pulsante . Incollare il seguente codice che chiederà l' utente per un file CSV e caricare i dati in un array 2D :

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click REM Scarica il file che l'utente vuole load.OpenFileDialog1.ShowDialog ( ) Dim filename As String = OpenFileDialog1.FileNameDim fileStream Come System.IO.StreamReader = New System.IO.StreamReader (filename) REM Leggi tutti i dati dal file in una contenuti singoli string.Dim As String = fileStream.ReadToEnd

REM dividere la stringa nei suoi valori . Dopo questa operazione è terminata, ci sarà un array monodimensionale di valori , e la fine delle righe sarà segnato da stringhe vuote .

Valori Dim = contents.Split ( ) Dim arr Come ArrayList = New ArrayListDim righe come ArrayList = New ArrayList

REM spostare i dati in una matrice 2D . Per x As Integer = 0 To lines.Length - linee 1 Se ( x ) IsNot String.Empty Thenarr.Add ( linee ( x )) End Ifrows.Add ( arr.Clone ) arr.Clear ( ) Prossima

dati dim ( Rows.Count , righe ( 0 ) conteggio . ) As String

x As Integer = 0 To Rows.Count - 1Per y As Integer = 0 To righe ( x ) conta - . 1data ( x , y ) = righe ( x ) ( y ) NextNext

End Sub