INVESTOX-Forum

Hallo,

ich habe eine TXT Datei mit einigen Zeilen von Text.

Beispiel:
gsgdsgdsgds
sdgdfdsfdsfdsfds
dfsdsfsdf
sf
=======
So soll es dann aussehen:
dfsdsfsdfsf
sf

Ich möchte das jede Zeile die mehr als z.B. 10 Zeichen (egal welche) hat, aus der TXT entfernt wird.

Kann mir bitte jemand sagen wie die For Each Schleife dafür aussehen muss?
Danke im Voraus.

Set fso = CreateObject("Scripting.FileSystemObject")
Original = "1.txt"
Neu = "2.txt"
T = Split(fso.OpenTextFile(Original).ReadAll, vbCrLF)
Set Fertig = fso.CreateTextFile(Neu, True)
For Each Z In T
...
Next
Fertig.Close

Mit Excel würde ich das mit =LÄNGE(xx) machen, aber aufgrund der Größe der TXT (Zeilen) funktioniert das leider nicht...

Lösung gefunden:

Set fso = CreateObject("Scripting.FileSystemObject")
Original = "1.txt"
Neu = "2.txt"
T = Split(fso.OpenTextFile(Original).ReadAll, vbCrLF)
Set Fertig = fso.CreateTextFile(Neu, True)
For Each Z In T
'Alle Zeilen in der TXT durchsuchen, und die Zeilen mit mehr als z.B. 37 Zeichen löschen:
If Len(Z) <=37 Then Fertig.WriteLine Z Next
Fertig.Close