Abfragen csv mit vbs

Gibt es eine csv-Datei wie also, Lesen kann ich es einfach genug mit dem code unten. Aber wie Sie sehen können, gibt es mehrere name1, Gruppe1, status1, name2, gruppe2, etc Spalten in der csv-Datei. Jeder Benutzer hat eine andere Anzahl von Spalten. Ich Frage mich, ob es eine Möglichkeit zur Nutzung von wild cards, wo ich bin, ruft objRecordset.Fields.Item("Group1") etwas wie ("Group%") oder wenn ich das auto-Inkrement der Zahl, bis keine Datensätze gefunden werden

UserName,Domain,Website,MCO,Name1,Gruppe1,Status1,Name2,gruppe2,Status2,Name3,Group3,Status3
Paolina,AA,Athen,Griechenland,Adobe Acrobat Pro,ACROBAT009,Live,,,,,,
George,AA,Athen,Griechenland,SpotFire 2.20,SPOTFIRE220,Live,,,,,,

option explicit

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001

Dim strPathtoTextFile, objConnection, objRecordSet, objNetwork
Dim wshshell, Username

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

Set objNetwork = CreateObject("WScript.Network")
userName = objNetwork.UserName

strPathtoTextFile = "C:\Hunter\vbs\" 'must have a trailing \

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & strPathtoTextFile & ";" & _
          "Extended Properties=""text;HDR=YES;FMT=Delimited"""

objRecordset.Open "SELECT * FROM Users.txt where [user name] like '" & UserName & "'", _
          objConnection, adOpenStatic, adLockOptimistic, adCmdText
Do Until objRecordset.EOF
    Wscript.Echo "Name: " & objRecordset.Fields.Item("User Name")
    Wscript.Echo "Group: " & objRecordset.Fields.Item("Group1")
    Wscript.echo "Status:" & objRecordset.Fields.Item("Status1")
    objRecordSet.MoveNext
Loop

InformationsquelleAutor chemist | 2012-08-08

  1. 1

    Dein Beispiel deutet darauf hin, dass die maximale Gruppe Nummer ist das Letzte Feld, also vielleicht:

    objRecordset.Open "SELECT * FROM Users.txt where [user name] like '" _
      & UserName & "'", _
      objConnection, adOpenStatic, adLockOptimistic, adCmdText
MaxNum = _
      Replace(objRecordset.Fields(objRecordset.Fields.Count-1).Name,"Status","")
Do Until objRecordset.EOF
    Wscript.Echo "Name: " & objRecordset.Fields.Item("User Name")
    For i=1 to MaxNum
       Wscript.Echo "Group: " & objRecordset.Fields.Item("Group" & i)
       Wscript.echo "Status:" & objRecordset.Fields.Item("Status" & i)
    Next
    objRecordSet.MoveNext
Loop

    Habe ich noch nicht getestet, aber die Allgemeine Idee halten sollte.

    Warum verwenden .recordCount zu berechnen .Felder.Zählen?
    Würden Sie akzeptieren Fehler??? 🙂
    genial, das funktioniert, ein Genuss. danke Kumpel

    InformationsquelleAutor Fionnuala

Schreibe einen Kommentar