Suchergebnisse
Suchergebnisse 1-2 von insgesamt 2.
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
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 Fe...