Come leggere il file CSV in VB

May 24

Comma Separated Value (CSV) è un formato di file di testo semplice che viene comunemente utilizzato per memorizzare i dati. Una riga rappresenta ogni record in questo formato, e all'interno di ogni riga, una virgola separa ogni valore. Base 6 flussi di file di input-output visivo o oggetto di accesso ai dati possono essere utilizzati per caricare e leggere un file CSV.

istruzione

1 Creare un nuovo progetto in Visual Basic. Se si desidera aggiungere la funzionalità di leggere un file CSV per un progetto esistente, si può saltare questo passaggio.

2 Aggiungere una classe al progetto facendo clic destro sul nome del progetto in Esplora progetti e selezionando "Aggiungi modulo di classe."

3 Impostare la proprietà nome della classe di "CFileReader" o un nome utilizzando i vostri standard di codifica.

4 Aggiungere un riferimento al attivi Data Objects Library (ADO) selezionando il menu "Progetto> Riferimenti" e poi selezionando l'opzione "Microsoft ActiveX Data Objects 2.5 Library" o il "Microsoft ActiveX Data Objects 2.6 Library».

5 Immettere il seguente codice nella classe:

Private Function ReadCSV (ByVal nome del file come stringa) come ADODB.Recordset

collegamento fioco come ADODB.Connection

fileRecords fiochi come ADODB.Recordset

Dim fileQuery As String

Dim fieldNum As Integer

'Questa unità supporta Immobili =' text; FMT = delimitato ' "

'C'è anche un ulteriore argomento, HDR con SÌ o NO valori che indica se il file ha un colpo di testa

'ConnOpen "Provider = Microsoft.Jet" _

'& ".OLEDB.4.0; Data Source =" & _ App.Path

' "; Text; HDR = NO; estesa proprietà =" &' _

'& "FMT = Delimitato'"

Set connection = New ADODB.Connection

connection.ConnectionString = _

"Driver = {driver del testo di Microsoft (* .txt; * .csv)};" & _

"DBQ =" & App.Path & ",", "", ""

connection.Open

fileQuery = "SELECT * FROM" & nomefile

Set fileRecords = Connection.Execute (fileQuery)

Set ReadCSV = fileRecords

End Function

Questo codice si collega a un file di testo utilizzando il driver di testo Microsoft e seleziona tutte le righe in un set di record ADO.

6 Chiamare la funzione dall'applicazione evento o console desiderato.

Consigli e avvertenze

  • Encapsulating il codice in una classe permette di essere riutilizzato da molti luoghi.