Dienstag, 16. April 2024, 18:12 UTC+2

Sie sind nicht angemeldet.

  • Anmelden
  • Registrieren

VBS - TXT durchsuchen

Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

An99

unregistriert

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

unregistriert

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

Ähnliche Themen