Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Compare 1.Token beim Einlesen der nächsten Textdatei ....
Autor: eve
Datum: 22.03.02 19:17
...verursacht Fehler folgendes: lese Textdateien per FileSystemObject aus einem Verzeichnis jeweilsnacheinander. '***********SEARCH IN TEXTFILE********** '*************************************** 'Have to change the path Application.FileSearch.LookIn = curPath Application.FileSearch.Filename = "*.txt" Application.FileSearch.FileType = msoFileTypeAllFiles Application.FileSearch.Execute 'Number of files in the directory Count = Application.FileSearch.FoundFiles.Count Dim fs Set fs = CreateObject("Scripting.FileSystemObject") 'for each file For i = 1 To Count ' On Error Resume Next Filename = Application.FileSearch.FoundFiles.Item(i) Das klappt auch. Jetzt möchte ich vergleichen, ob der erste String der Datei dem String "OriginationNumber" entspricht. Wenn ja -> füge den code aus, wenn nicht -> lese nächste Datei ein folgendes funktoniert nicht (Fehler tritt auf bei der zweiten Textdatei, die nicht dem String entspricht) 'Titel line TitleLine = myfilestream.ReadLine TokensTemp = Split(TitleLine, """") '****hier tritt der Fehler auf compareToken = TokensTemp(1) compareToken2 = "OriginationNumber" If StrComp(compareToken, compareToken2, vbTextCompare) = 0 Then '***ab hier klappt alles einwandfrei!!! (habe code abgeschnitten) Do 'read line 'this is the first data line DataLine = myfilestream.ReadLine Tokens = Split(DataLine, """") 'take the tokens for each cell in the excelsheet TempOrigiNum = Tokens(1) TempOrigiName = Tokens(3) Dim myfile, myfilestream Set myfile = fs.GetFile(Filename) Set myfilestream = myfile.OpenAsTextStream(1, -2) Super wenn ihr schnell antworten würdet.. sitze nämlihc noch atWork mfg eve*

Compare 1.Token beim Einlesen der nächsten Textdatei ....	31	eve	22.03.02 19:17
Re: Compare 1.Token beim Einlesen der nächsten Textdatei ......	220	unbekannt	22.03.02 19:34
Re: Compare 1.Token beim Einlesen der nächsten Textdatei ......	17	eve	25.03.02 07:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen