Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmte Zeilen einer Textdatei löschen..

Bestimmte Zeilen einer Textdatei löschen..
Justin
Hallo miteinander...
Als Aufgabe erhielt ich eine Script zu schreiben , VBA, damit eine vorhandene .txt datei verändert wird.
Die Veränderung soll so ablaufen, dass leere Zeilen verschwinden und zeilen wo weniger als 12 Kommatas vorkommen auch .. :-) ich bin die ganze zeit am durchlesen...
Hab vieles Interessantes entdecken können .. jedoch habe ich irgendwie kein durchblick..
Ich würde mich über eine kleine Hilfe sehr freuen...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bestimmte Zeilen einer Textdatei löschen..
05.09.2012 13:25:16
ransi
HAllo
Kannst du mal so anonymisierte Textdatei hochladen ?
ransi

AW: Bestimmte Zeilen einer Textdatei löschen..
05.09.2012 13:30:07
Justin
ja klar bin dabei...
Hab mittlerweile etwas zusammengebastelt, was die Zeilenumbrüche am ende löscht...das selbe brauch ich dann für die Umbrüche im Text.. und halt für die Zeilen die weniger als 12 Kommata haben ich lad sofort eine bsp. TXT hoch..

AW: Bestimmte Zeilen einer Textdatei löschen..
05.09.2012 13:31:52
Rudi
Hallo,
Sub testtext()
Dim arrText, arrTmp, i As Long
Open "c:\temp\testtext.txt" For Input As #1
arrText = Split(Input(LOF(1), 1), vbCrLf)
Close #1
Open "c:\temp\testtext.txt" For Output As #1
For i = 0 To UBound(arrText)
arrTmp = Split(arrText(i), ",")
If UBound(arrTmp) > 12 Then
Print #1, Join(arrTmp, ",")
End If
Next
Close #1
End Sub

Gruß
Rudi
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige