Kommaseparert verdi ( CSV ) er en enkel tekstfil format som vanligvis brukes til å lagre data . En rad representerer hver post i dette formatet , og innenfor hver rad , skiller komma hver verdi . Visual Basic 6 input-output file bekker eller datatilgang objekt kan brukes til å laste inn og lese en CSV -fil . Du trenger
Visual Basic 6
Vis flere instruksjoner
en
Lag et nytt prosjekt i Visual Basic. Hvis du ønsker å legge til funksjonalitet for å lese en CSV -fil til et eksisterende prosjekt , kan du hoppe over dette trinnet .
2
Legg en klasse til prosjektet ved å høyreklikke på prosjektnavnet i Prosjekt Explorer, og deretter velge " Add Class Module ".
3
Angi navnet tilhører klassen " CFileReader " eller et navn ved hjelp av koding standarder .
4 < p> Legg til en referanse til Active data Objects ( ADO ) bibliotek ved å velge "Project > Referanser "-menyen og deretter velge " Microsoft ActiveX data Objects 2.5 Library" eller " Microsoft ActiveX data Objects 2.6 Library".
5
Skriv inn følgende kode i klassen : en
Private Function ReadCSV ( ByVal fileName As String ) As ADODB.Recordset
Dim forbindelse Som ADODB.Connection
< p> Dim fileRecords Som ADODB.Recordset
Dim fileQuery As String
Dim fieldNum As Integer
' Denne stasjonen støtter Extended Properties = ' text ; FMT = Delimited ' "
' det er også et ekstra argument , HDR med JA eller NEI verdier som angir om filen har en header
' connOpen " Provider = Microsoft.Jet " _
' & " OLEDB.4.0 ; . datakilde = " & App.Path _
'& "; Utvidede Properties = ' text ; HDR = NO; " _
' & " FMT = Delimited ' "
Set tilkobling = Ny ADODB.Connection
connection.ConnectionString = _
" Driver = { Microsoft Tekst Driver ( * txt ; . *. csv ) }; "& _
" DBQ = "& App.Path &" , " ", " ", "
connection.Open
fileQuery =" Select * FROM "& fILENAME
Set fileRecords = connection.Execute ( fileQuery )
Sett ReadCSV = fileRecords
End Function
Denne koden kobler til en tekstfil ved hjelp av Microsoft tekst driver og velger alle rader i et ADO recordset .
6
Ring funksjonen fra ønsket hendelse eller konsoll applikasjon .
