ÿþ< in readline
Heiti
ich finde den Fehler nicht so richtig. Ich habe eine Textdatei in der etwas wie folgendes steht:
TextId;English;German;
91;;@2%s@;
TextId;English;German;
92;;@4%s@;
ohne die ' aber sonst wirds nicht angezeigt...
Set g_objFst = CreateObject("Scripting.FileSystemObject")
Set objTextStream = g_objFst.OpenTextFile(strPathName & "\" & strDateien(i), 1, 0)
If Not (objTextStream Is Nothing) Then
Do While objTextStream.AtEndOfStream True
lZeile = lZeile + 1
strDokumentZeile = objTextStream.Readline
Tabelle1.Cells(lZeileGesamt, 12) = strDokumentZeile
Loop
End If
objTextStream.Close
Vielen Dank bereits im voraus für eure Hilfe.
Lg Heiti
Anzeige