Text Auslesen , Bearbeiten , Speichern

Hi @ all ,
Also ich will nen Programm machen was eine Text Datei Öffnet ,und alle zeilen wo ich ";" dafür is löscht und eine neue zeile "; Hallo du" macht

code: 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: Private Sub Form_Load() Dim Nr As Integer Dim Text As String CommonDialog1.Filter = "TEXT Files|*.txt" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub Nr = FreeFile Open CommonDialog1.FileName For Binary As #Nr Text = Space$(LOF(Nr)) Get #Nr, , Text Close #Nr Text1.Text = Text End Sub

Soweit bin ich scho gekommen , jetz kann ich zum start die txt öffnen und der text wird in text1.text ausgegeben ... aber wie mach ich jetzt damit alle Zeilen die ein ";" davor haben gelöscht werden und eine neue zeile "; Hallo du" dahin kommt ? Und damit das dann in der selben datei gleich gespeichert wird

Danke für Hilfe schonmal im Vorraus

Greetz
Doom2003