VBS - TXT durchsuchen
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...