In Textdatei Zeile löschen und nächste soll nachrutschen!

  • VB6

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Malcolm.

    In Textdatei Zeile löschen und nächste soll nachrutschen!

    Moin Leutz,

    wie kann ich eine Zeile in einer Textdatei löschen ?! und die darauf folgenden nachrutschen lassen siehe so.

    Text1
    Text2 <- soll entfernt werden
    Text3

    nach dem löschen denk ich siehts so aus

    Text1
    <- die lücke soll auch weg
    Text3

    so soll es aussehen

    Text1
    Text3


    hoffe Ihr könnt was damit anfangen :)

    mfg Myers

    das sieht schonmal ganz gut aus . jedoch sehe ich da nich wo man den Pfad zur Textdatei eingeben kann oO bin auf diesen Gebiet noch nen noob :P .. gibt es nicht eine Variante die kleiner ist? oO

    ich erkläre mal wie mein Programm aussieht

    In einer Form hab ich eine listbox . In dieser Listbox wird mir der Inhalt einer bestimmten Textdatei angezeigt.(Pfad will ich ändern können)

    Nun bin ich soweit, dass wenn ich in der List Box was anklickt z.b so

    Listboxinhalt

    Text1
    Text2 <- angeklickt
    Text3

    Dann Drück ich auf einen ClearButton und es wird aus der Textdatei entfernt

    ich weiss ja schon wie ich alles umsetze nur das mit der Zeile löschen funzt nich : (

    Hallo

    Hier ein Beispiel:

    Visual Basic-Quellcode

    1. Private Sub cmdDateiLesen_Click()
    2. ' Datei in ListBox einlesen
    4. Dim FNr As Integer
    5. Dim cText As String
    6. Dim Zeile() As String
    7. Dim N As Integer
    9. FNr = FreeFile
    11. Open "D:\Test.txt" For Input As #FNr
    12. cText = Input(LOF(FNr), #FNr)
    13. Close #FNr
    15. Zeile = Split(cText, vbCrLf)
    17. For N = 0 To UBound(Zeile)
    18. Me.List1.AddItem Zeile(N)
    19. Next
    20. End Sub
    22. Private Sub cnmdZeileLöschen_Click()
    23. ' markierten Eintrag aus ListBox entfernen und speichern
    25. Dim FNr As Integer
    26. Dim N As Integer
    28. Me.List1.RemoveItem Me.List1.ListIndex
    30. FNr = FreeFile
    32. Open "D:\Test.txt" For Output As #FNr
    33. For N = 0 To List1.ListCount - 1
    34. Print #FNr, List1.List(N)
    35. Next
    36. Close #FNr
    37. End Sub

    Hi.

    @wincnc

    Warum denn der Umweg über die ListBox? Man kann doch direkt die entsprechende Zeile vom Array löschen. Dann hat man zwar auch eine Lücke, aber wenn man dann die Zeilen des Arrays wieder in die Datei reinschreibt kann man ja vorher sowas schreiben:

    Visual Basic-Quellcode

    1. If Zeile(n) <> "" Then 'Schreiben


    Ich verstehe den Umweg nicht so ganz. :)

    mfG

    Malcolm

Facebook
Telefonspende