Comma separated value (CSV ) ist eine einfache Text-Datei -Format, das häufig verwendet wird, um Daten zu speichern . Eine Reihe stellt jeden Datensatz in diesem Format und in jeder Reihe , trennt ein Komma jeden Wert . Visual Basic 6 Input-Output- Datei-Streams oder Datenzugriff Objekt kann zum Laden und Lesen einer CSV-Datei werden. Things You
Visual Basic 6
brauchen anzeigen Weitere Anweisungen
1
Erstellen eines neuen Projekts in Visual Basic. Wenn Sie die Funktionalität hinzufügen, um eine CSV-Datei zu einem vorhandenen Projekt lesen wollen, können Sie diesen Schritt überspringen.
2
Fügen Sie eine Klasse, um das Projekt mit der rechten Maustaste auf den Projektnamen im Projekt Explorer und wählen Sie dann "Add Class Module . "
3
die Eigenschaft Name der Klasse, die " CFileReader " oder einem Namen mit Ihrem Coding-Standards .
4 < p> Fügen Sie einen Verweis auf die Active Data Objects (ADO) -Bibliothek , indem Sie das "Projekt> Referenzen "-Menü und wählen Sie dann die "Microsoft ActiveX Data Objects 2.5 Library" oder die "Microsoft ActiveX Data Objects 2.6 Library. "
5
Geben Sie folgenden Code in der Klasse :
private Function ReadCSV (ByVal fileName As String ) As ADODB.Recordset
Dim Verbindung Wie ADODB.Connection
< p> Dim fileRecords Wie ADODB.Recordset
Dim fileQuery As String Dim
FeldNum As Integer
" Dieses Laufwerk unterstützt Erweiterte Eigenschaften = 'text ; FMT = Trennzeichen ' "
" Es gibt auch ein zusätzliches Argument , HDR mit Ja oder Nein Werte, wenn die Datei hat einen Header
zeigt ' connOpen " Provider = Microsoft.Jet "_
' & " OLEDB.4.0 ; . Data Source = " & _ App.Path
'& "; Extended Properties = ' text ; HDR = NO; " _
'& " FMT = Trennzeichen ' "
Set Verbindung = 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
Dieser Code verbindet in eine Textdatei mit dem Microsoft Text Fahrer und wählt alle Zeilen in einem ADO-Recordset .
6
Rufen Sie die Funktion von der gewünschten Veranstaltung oder Konsole-Anwendung .
