Guten Tag da ich neu bin und mich zZ an Vb versuchen möchte hatte ich mir eine kleine Aufgabe gestellt
Aufgabe:
-Lesen aus einer Text Datei
-Schreiben in eine Neue Text Datei
Im ersten Sub wird ein Fenster geöffnet wo ich die zu "lesende" Datei auswähle.
Der Zweite Sub sollte die vollständige Datei importieren in eine neue Text Datei, was leider nur bedingt funktioniert da nur die letzte Zeile geschrieben wird
vorangestellt von einen Return.
Der Dritte sub stellt einfach nur schreib() zur Verfügung wo der Ort und der Name der File angegeben sind
Nun bräuchte ich einen Denkanstoß damit es weiter gehen kann...
Spoiler anzeigen
Aufgabe:
-Lesen aus einer Text Datei
-Schreiben in eine Neue Text Datei
Im ersten Sub wird ein Fenster geöffnet wo ich die zu "lesende" Datei auswähle.
Der Zweite Sub sollte die vollständige Datei importieren in eine neue Text Datei, was leider nur bedingt funktioniert da nur die letzte Zeile geschrieben wird
vorangestellt von einen Return.
Der Dritte sub stellt einfach nur schreib() zur Verfügung wo der Ort und der Name der File angegeben sind
Nun bräuchte ich einen Denkanstoß damit es weiter gehen kann...
VB.NET-Quellcode
- Dim vorgelesenes As String
- Dim reader As String
- Dim datei As New OpenFileDialog
- ' Dim datei1 As New OpenFileDialog
- Public Sub datei_auswahl()
- datei.InitialDirectory = "E:\Vb_Prog\KlemmDef\Vergleich\WindowsApplication1\bin\Debug\"
- datei.Title = "Datei zum Importieren auswählen"
- If datei.ShowDialog() = DialogResult.OK Then
- Else MsgBox("Nichts ausgewählt", MsgBoxStyle.OkOnly, "Fehler!")
- End If
- End Sub
- Private Sub import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles import.Click
- Dim lesen As New FileStream(datei.FileName, FileMode.Open)
- Dim vorlesen As New StreamReader(lesen)
- Dim wort As String
- Do Until vorlesen.Peek() = -1
- wort = vorlesen.ReadLine()
- vorgelesenes = wort & vbCrLf
- Loop
- vorlesen.Close()
- schreiben()
- End Sub
- Private Sub schreiben()
- Dim fs As New FileStream("E:\Vb_Prog\KlemmDef\Vergleich\WindowsApplication1\bin\Debug\DB_Bib\Datenbank\Datenbank.txt", FileMode.Append)
- Dim sw As New StreamWriter(fs)
- sw.WriteLine(vorgelesenes)
- sw.Close()
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Orange“ () aus folgendem Grund: Expander eingefügt