Mittwoch, 12. Dezember 2018, 16:39 UTC+1

Sie sind nicht angemeldet.

  • Anmelden
  • Registrieren

An99

Besucher

Registrierungsdatum: 23. August 2018

Beiträge: 2

1

Donnerstag, 23. August 2018, 12:05

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...

An99

Besucher

Registrierungsdatum: 23. August 2018

Beiträge: 2

2

Donnerstag, 23. August 2018, 18:28

ERLEDIGT

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