FileSystemObject - Zeile löschen + anhängen

Sinac

Erfahrenes Mitglied
Morgen!

Also folgendes Prob:
Mein Programm ließt mit "FileSystemObject" aus der
text datei "file.txt" mit "OpenTextFile" und "readline"
und schreibt die Datei neu mit "CreateTextFile" und
"writeline".
Aber ich möcht gerne wissen ob und wenn ja wie ich
Zeilen löschen und hinzufügen kann! Achja,kann ich
auch die ganze Datei löschen?

Hoff ma ihr könnt mir folgen und vorallem helfen,
weißt ja... imma diese Newbies...

Nochma der Code zum Zeilen lesen:


Dim fso, lese
Set fso = CreateObject("Scripting.FileSystemObject")
Set lese = fso_OpenTextFile("file.txt")
Irgnetwas.text = lese.readline
lese.close



THX schonma
 

MSuter

Erfahrenes Mitglied
Private Sub Command1_Click()
'Schreiben
Dim fso, schreibe
Set fso = CreateObject("Scripting.FileSystemObject")
Set schreibe = fso_OpenTextFile("C:\Dokumente und Einstellungen\Administrator\Desktop\file.txt", ForWriting)
schreibe.WriteLine Text1.Text
schreibe.Close
End Sub

Private Sub Command2_Click()
'Anhängen
Dim fso, schreibe
Set fso = CreateObject("Scripting.FileSystemObject")
Set schreibe = fso_OpenTextFile("C:\Dokumente und Einstellungen\Administrator\Desktop\file.txt", ForAppending)
schreibe.WriteLine Text1.Text
schreibe.Close
End Sub

Private Sub Command3_Click()
'Löschen
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Kill "C:\Dokumente und Einstellungen\Administrator\Desktop\file.txt"
End Sub

Private Sub Command4_Click()
'Lesen
Dim fso, lese
Set fso = CreateObject("Scripting.FileSystemObject")
Set lese = fso_OpenTextFile("C:\Dokumente und Einstellungen\Administrator\Desktop\file.txt", ForReading)
Text1.Text = lese.ReadLine
lese.Close
End Sub

Private Sub Command5_Click()
'Datei erstellen
Dim fso, lese
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "C:\Dokumente und Einstellungen\Administrator\Desktop\file.txt"""
End Sub


Gruss MSuter
 

Sinac

Erfahrenes Mitglied
Erstma thx für die schnelle antwort!
Hab das mit dem Anhängen ma probiert,
dann kommt aber der Fehler "Invalid procedure
call or argument"!

Und kann man auch einzelne Zeilen aus der
Datei löschen?
 

MSuter

Erfahrenes Mitglied
Eigentlich sollte es funktionieren,ich habe es direkt aus meinem Quelltext kopiert, aber wie du dir das mit den Zeilen Löschen vorstellst weiss ich auch nicht so genau. Willst du sagen, welche zeilennummer du löschen möchtest und dann soll diese aus dem Textfile gelöscht werden? Wenn ja weiss ich auch keine Direkte lösung, aber eine funktion dazu liesse sich bestimmt realisieren!!
 

xtrem

Mitglied
Hosa,

hier ein Beispiel um eine Zeile aus der Textdatei zu löschen.....

gruß xtrem
;-]
 

Anhänge

  • beispiel.zip
    1,8 KB · Aufrufe: 168