Hallo,
in VBS fühle ich mich auch nicht richtig wohl, aber mal sehen, ob Dir das schon mal weiter hilft.
Die Daten stehen am Ende im zweidimensionalen Feld ‚Gitter‘.
Gruß Rainer
Dim Text, Zeile, Feld, r, c
Dim Gitter
Lesen "C:\Test.txt"
Zeile = Split(Text, VbCrLf)
Feld = split(Zeile(0), ";")
Redim Gitter(UBound(Zeile), UBound(Feld))
For r=0 to Ubound(Zeile)
Feld = split(Zeile(r), ";")
'Achtung! Feld wird jedes mal neu geschrieben!'
For c=0 to Ubound(Feld)
Gitter(r,c) = Feld(c)
Next
Next
Sub Lesen (Datei)
Dim FileNow, a, b
Dim MyFSO
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set a = MyFso.GetFile(Datei)
b = a.Size
Set f = Myfso.OpenTextFile(Datei, 1, True)
Text = f.Read(b)
f.Close
End Sub