Zeichen tauschen in großem txt-File
11.02.2004 10:29:03
Reiner
ich habe eine immerwiederkehrende Datei (*.txt), in der ich Semikolons und Anführungszeichen austauschen muß, um nach Rückspeichern mit Excel drauf zugreifen zu können. (Feldtrenner korrigieren)
Nun wächst das File permanent und ist bei 7500KB angelangt, sodaß die benutzte VBA-Routine sehr lange benötigt.
Unten habe ich die wichtigsten Statements angefügt.
Eure Tipps würden mir sehr helfen, wenn es gelänge die Verarbeitungszeit zu reduzieren.
Danke Reiner
~Open ZuöffnendeDatei For Input Access Read As #1 Len = 32767 'input
~Open ZuöffnendeDatei & "x" For Output As #2 'output
~Do Until EOF(1)
~ Line Input #1, Text
~ For z = 1 To Len(Text)
~ Next z
~ Print #2, Text
~Loop