mehrere Zeilen einer Textdatei löschen

  • Word

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von alchimist.

    mehrere Zeilen einer Textdatei löschen

    Hi,

    folgendes:

    Ich habe eine Logdatei, die ich mit Hilfe von Word Makros bearbeiten möchte. Es sollen

    1. alle leeren Zeilen gelöscht werden

    Das habe ich folgendermaßen gelöst

    Quellcode

    1. 'Prüfen ob es eine Leerzeile ist
    2. If Len(Trim(Zeile.Text)) = 0 Then
    3. SchlechteZeile = True
    4. Exit Function

    außerdem lasse ich noch Zeilen mit bestimmten Wörtern löschen.

    Quellcode

    1. 'Prüfen ob "INTERRUPTION TEXT JOB" vorkommt
    2. If InStr(Zeile.Text, "INTERRUPTION TEXT JOB") Then
    3. SchlechteZeile = True
    4. Exit Function

    2. nach einem bestimmten Wort immer die 6 darauffolgenden Zeilen gelöscht werden.
    Keine Ahnung wie das funktionieren könnte, da ich die 6 Zeilen nicht wie oben gelöst einzeln ansprechen kann.

    3. bei einer Zeile mit einem bestimmten Wort drüber und drunter eine Leerzeile angelegt werden.


    Ich muss dazu sagen dass heute der erste Tag ist wo ich mich mit VB auseinander setze. Hab auch schon recht viel gegooglt, aber nix passendes gefunden.

    Danke schonmal!

    entweder aus SchlechteZeile ein Array machen wo du dann jede zeile extra bewerten kannst, oder du schreibst gleichzeitig eine neue Logdatei wo die schlechten Zeilen halt fehlen, wo du dann auch bei bestimmten zeichen 6 Zeilen ignorieren/löschen kannst
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Hi,

    bin jetzt so weit...aber ich finde den Fehler nicht! Beim Kompilieren beschwert er sich an 2 Stellen...


    Visual Basic-Quellcode

    1. Sub Start()
    2. Dim Zeilen As Collection
    3. Dim Dateiname As String
    4. 'Dateinamen organisieren
    5. Dateiname = ErfrageDateinamen
    6. 'Prüfen ob es einen Namen gibt
    7. If Dateiname = "" Then
    8. Exit Sub
    9. End If
    10. 'Eine Kollektion der Zeilen holen
    11. Set Zeilen = LeseDateiUni(Dateiname)
    12. 'geänderten Inhalt in Datei speichern
    13. SchreibeDatei Dateiname, Zeilen
    14. MsgBox "Fertig!!!", vbInformation
    15. End Sub
    17. Function ErfrageDateinamen() As String
    18. 'Mit Datei-Öffnen-Dialog anzeigen
    19. With Application.FileDialog(msoFileDialogOpen)
    20. '...anzeigen
    21. If .Show Then
    22. 'Ausgewählte Datei ermitteln und zurückgeben
    23. ErfrageDateinamen = .SelectedItems(1)
    24. End If
    25. End With
    26. End Function
    28. Function LeseDateiUni(Name As String) As Collection '<------------------------ hier
    29. 'Zugriff auf Dateinsystem mit Unicode
    30. Dim fso As New FileSystemObject
    31. Dim Text As Scripting.TextStream
    32. Dim Zeilen As New Collection
    33. Dim Zeile As String
    34. Set Text = fso.OpenTextFile(Name, , , TristateMixed)
    35. Do Until Text.AtEndOfStream
    36. 'Hier gehts los
    37. Zeile = Text.ReadLine()
    38. If (Len(Trim(Zeile)) > 0) And Not (Instr(Zeile, "INTERRUPTION TEXT JOB") > 0) Then
    39. ' Nächsten 6 zeilen überspringen
    40. If Instr(Zeile, "text1") > 0 Then
    41. Zeile = Zeile & vbCrLf
    42. For i = 0 To 5
    43. Text.SkipLine() '<---------------------------------------------------------
    44. Next
    45. ' Eine Leerzeile davor und dannach einfügen
    46. Elseif Instr(Zeile, "text2") > 0 Then
    47. Zeile = vbcrlf & Zeile & vbcrlf & vbcrlf
    48. ' Usw.
    49. Else
    50. Zeile = Zeile & vbcrlf
    51. End If
    52. End If
    53. Zeilen.Add Zeile
    54. Loop
    55. Text.Close
    56. Set LeseDateiUni = Zeilen
    57. End Function
    59. Sub SchreibeDatei(ByVal Dateiname As String, Zeilen As Collection)
    60. Dim Zeile As KlasseZeile
    61. Dim Dateinummer As Integer
    62. 'Dateinamen für Ausgabe verändern
    63. Dateiname = ZielDateiname(Dateiname)
    64. 'Freie Dateinummer ermitteln
    65. Dateinummer = FreeFile
    66. 'Öffnen der Datei zum Schreiben
    67. Open Dateiname For Output As Dateinummer
    68. 'in einer Schleife durch alle Zeilen
    69. For Each Zeile In Zeilen
    70. 'Prüfen, ob Zeile geschrieben werden muss
    71. If Not Zeile.Gelöscht Then
    72. 'Zeile in die Datei schreiben
    73. Print #Dateinummer, Zeile.Text
    74. End If
    75. Next
    76. Close Dateinummer
    77. End Sub




    Wie kann ich das berichtigen??

    Edit by LaMa5: VB Tag eingefügt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()

    Hallo bool,

    bitte so:

    Visual Basic-Quellcode

    1. For i = 0 To 5
    2. Text.SkipLine
    3. Next i


    der andere Fehler ist mir nicht klar. Ohne lauffähigen Quelltext von dir, mag ich auch nicht weiter suchen.
    Im obigen Fall hätte es gereicht, die Methode zu markieren und die F1-Taste zu drücken. Nebenbei empfehle ich dir immer Option Explicit zu verwenden.

    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „alchimist“ ()

Facebook