Guten Tag,
habe neu mit Visual Basic angefangen:D
Bin gerade dabei mich an einem Programm zu vesuchen welches eine Textdatei per Button einliest den Inhalt in einer TextBox anzeigt und dann mit drücken eines zweiten Buttons bearbeitet und in einer neuen Textdatei abspeichert.
Soweit so gut habe eine Anwendungsform erstellt mit 2 Buttons und einer RichTextBox.
Mein Code sieht sieht wie folgt aus:
Der Code für das Einlesen der Textdatei funktioniert fehlerfrei, das probelm is aber das die neue Textdatei leer ist.
Eigentlich sollte das Programm vor jede Zeile der eingelesenen Textdatei den Satz "Text vor dem Inhalt jeder Zeile:" einfügen und nach jeder eingelesenen Zeile der Textdatei "Text nach dem Inhalt jeder Zeile!".
Also sollte bei dem Inhalt
Zwischentexttest1
Zwischentexttest2
Zwischentexttest3
Zwischentexttest4
,das Programm in der neu Erstellten Textdatei den Text wie folgend gespeichert haben
Text vor dem Inhalt jeder Zeile: Zwischentexttest1 Text nach dem Inhalt jeder Zeile!
Text vor dem Inhalt jeder Zeile: Zwischentexttest2 Text nach dem Inhalt jeder Zeile!
Text vor dem Inhalt jeder Zeile: Zwischentexttest3 Text nach dem Inhalt jeder Zeile!
Text vor dem Inhalt jeder Zeile: Zwischentexttest4 Text nach dem Inhalt jeder Zeile!
Leider ist die vom Programm gespeicherte textdatei aber leer
Würde mich sehr über hilfreiche Erleuterungen freuen,
MFG Tim
habe neu mit Visual Basic angefangen:D
Bin gerade dabei mich an einem Programm zu vesuchen welches eine Textdatei per Button einliest den Inhalt in einer TextBox anzeigt und dann mit drücken eines zweiten Buttons bearbeitet und in einer neuen Textdatei abspeichert.
Soweit so gut habe eine Anwendungsform erstellt mit 2 Buttons und einer RichTextBox.
Mein Code sieht sieht wie folgt aus:
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- 'Read Button
- Private Sub Readbtn_Click(sender As Object, e As EventArgs) Handles readbtn.Click
- Dim DatenLesen As String = File.ReadAllText("C:\Users\Tim\Desktop\VBlernen\Test.txt")
- RichTextBox1.Text = DatenLesen
- End Sub
- 'Write Button
- Private Sub Writebtn_Click(sender As Object, e As EventArgs) Handles writebtn.Click
- Dim DatenSpeichern As System.IO.StreamWriter
- DatenSpeichern = New StreamWriter("C:\Users\Tim\Desktop\VBlernen\TestBearbeitet.txt")
- DatenSpeichern.Write("Text vor dem Inhalt jeder Zeile:" & RichTextBox1.Text & "Text nach dem Inhalt jeder Zeile!")
- End Sub
- End Class
Der Code für das Einlesen der Textdatei funktioniert fehlerfrei, das probelm is aber das die neue Textdatei leer ist.
Eigentlich sollte das Programm vor jede Zeile der eingelesenen Textdatei den Satz "Text vor dem Inhalt jeder Zeile:" einfügen und nach jeder eingelesenen Zeile der Textdatei "Text nach dem Inhalt jeder Zeile!".
Also sollte bei dem Inhalt
Zwischentexttest1
Zwischentexttest2
Zwischentexttest3
Zwischentexttest4
,das Programm in der neu Erstellten Textdatei den Text wie folgend gespeichert haben
Text vor dem Inhalt jeder Zeile: Zwischentexttest1 Text nach dem Inhalt jeder Zeile!
Text vor dem Inhalt jeder Zeile: Zwischentexttest2 Text nach dem Inhalt jeder Zeile!
Text vor dem Inhalt jeder Zeile: Zwischentexttest3 Text nach dem Inhalt jeder Zeile!
Text vor dem Inhalt jeder Zeile: Zwischentexttest4 Text nach dem Inhalt jeder Zeile!
Leider ist die vom Programm gespeicherte textdatei aber leer
Würde mich sehr über hilfreiche Erleuterungen freuen,
MFG Tim