Nwlapcug.com


Come leggere il File CSV in VB

Valore separati da virgola (CSV) è un formato di file di testo semplice che viene comunemente utilizzato per archiviare i dati. Rappresenta una riga di ogni record in questo formato, e all'interno di ogni riga, una virgola separa ogni valore. Visual Basic 6 file di input-output flussi o dati accesso oggetto può essere utilizzato per caricare e leggere un file CSV.

Istruzioni

1

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

2

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

3

Impostare la proprietà name della classe "CFileReader" o un nome utilizzando il vostro standard di codifica.

4

Aggiungere un riferimento alla libreria di Active Data Objects (ADO) selezionando il menu "Project > Riferimenti" e quindi selezionando "Microsoft ActiveX Data Objects 2.5 Library" o "Microsoft ActiveX Data Objects 2.6 Library."

5

Immettere il seguente codice nella classe:

Privato funzione ReadCSV(ByVal fileName As String) As ADODB. Recordset

Dim connection As ADODB. Connessione

Dim fileRecords As ADODB. Recordset

Dim fileQuery As String

Dim numcampo As Integer

' Questa unità supporta Extended Properties =' testo; FMT = delimitato da ' "

' C'è anche un ulteriore argomento, HDR con valori Sì o NO che indica se il file ha un'intestazione

"connOpen _"Provider=Microsoft.Jet"

"&". OLEDB.4.0;Data Source = "& _ app. Path

"&"; Proprietà estese =' testo; HDR = NO; "_

"&" FMT = delimitato da ' "

Set connection = New ADODB.Connection

connection.ConnectionString = _

"Driver={Microsoft Text Driver (*.txt; *.csv)};" & _

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

connection.Open

fileQuery = "Select * FROM " & fileName

Set fileRecords = connection.Execute(fileQuery)

Set ReadCSV = fileRecords

End Function

Questo codice si connette a un file di testo utilizzando Microsoft text driver e seleziona tutte le righe in un recordset ADO.

6

Chiamare la funzione dall'applicazione desiderata, evento o console.

Consigli & Avvertenze

  • Incapsulare il codice in una classe permette di essere riutilizzato da molti posti.