Come caricare una tabella da un file CSV con Visual Basic

Visual Basic ( VB ) è un linguaggio di programmazione creato da Microsoft . VB rende significative aggiunte al set di primitive disponibili nel linguaggio di programmazione BASIC originale , come ad esempio la ricorsione e sofisticate manipolazioni di stringhe . Valori separati da virgole ( CSV ​​) è una forma diffusa di memorizzazione delle informazioni tabellari in file informatici . In un file CSV , ogni riga corrisponde ad una riga nella tabella in fase di codifica ; ogni riga è costituito , a sua volta , dei valori corrispondenti alle voci delle colonne separati da virgole . È possibile scrivere codice VB che legge l'input CSV in un array in memoria per ulteriori manipolazioni . Istruzioni
1

Aprire il file CSV in modalità di lettura e leggere il suo intero contenuto , come in questo codice di esempio :

manico Dim As Integer Dim

wholeContents As String
maniglia

= FreeFile

Aperto " input.csv " per l'ingresso Come gestire

wholeContents = Input $ ( LOF ( maniglia) , # gestire ) per

chiudere la maniglia

Sostituire " input.csv " dal nome del file CSV è necessario analizzare .
2 righe del file

separati in diversi elementi di una variante VB utilizzando la nuova riga caratteri come separatori , come in questo codice di esempio :

Dim lineContents As Variant

lineContents = Split ( wholeContents , vbCrLf )
3

assegnare la corretta numero di righe e colonne per l'array che conterrà i valori nel file CSV originale , come in questo codice di esempio :

Dim sampleLine As Variant

Dim nRows As Integer

Dim ncols As Integer

Dim Array () As String

nRows = UBound ( lineContents ) per

sampleLine = Split ( lineContents ( 0 ) , "," ) < br

ncols > = UBound ( sampleLine ) per

matrice ReDim ( nRows , ncols ) economici 4

Copiare i valori della Variant contenente tutti i valori separati da virgole nella matrice VB , come in questo codice di esempio :

Dim i as Integer

Dim j as Integer

For i = 0 To nRows

sampleLine = Split ( lineContents ( i) , "," ) per

For j = 0 To UBound ( sampleLine ) per

array ( i, j ) = sampleLine ( j ) per

Avanti j

Next i

Dopo aver eseguito i due nested " Per " cicli , array " allineamento" conterrà gli stessi valori del file CSV originale .

• Nozioni di base di Visual Basic 6 
• Come popolare una casella di testo Da combinata in Access 2007