Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come leggere file CSV in VB

Comma Separated Value ( CSV ​​) è un semplice file di testo 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 . Basic 6 input-output flussi di file visivi o di oggetti di accesso ai dati possono essere utilizzati per caricare e leggere un file CSV . Cose che ti serviranno
Visual Basic 6
Mostra più istruzioni
1

creare un nuovo progetto in Visual Basic . Se si desidera aggiungere la funzionalità di leggere un file CSV a un progetto esistente , è possibile saltare questo passaggio .
2

Aggiungere una classe al progetto facendo clic destro sul nome del progetto nel Progetto Explorer e quindi selezionare "Modulo Aggiungi classe . "
3

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

Aggiungere un riferimento agli Active Data Objects ( ADO ) libreria selezionando il "Progetto> Riferimenti" del menu e poi selezionando l'opzione " Microsoft ActiveX Data Objects 2.5 Library " o la " ActiveX Data Objects 2.6 libreria Microsoft . "

5

Inserisci il seguente codice nella classe :

private Function ReadCSV ( fileName ByVal come stringa) come ADODB.Recordset

Dim connessione come ADODB.Connection

Dim fileRecords As ADODB.Recordset

Dim fileQuery As String Dim

fieldNum As Integer

'Questa unità supporta le proprietà estese = ' text ; FMT = delimitato ' "

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

' "Provider = Microsoft.Jet " connOpen _

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

' & " ; Extended Properties = ' text ; HDR = NO ; " _

' & " FMT = delimitato ' "
connessione Set

= New ADODB.Connection

connection.ConnectionString = _

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

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

Connection.Open

fileQuery =" SELECT * FROM " & fileName

fileRecords = Connection.Execute ( fileQuery ) per

ReadCSV = fileRecords

End Function

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

Chiama la funzione dall'evento desiderato o applicazione console .

 

Programmazione © www.354353.com