Lesen / Schreiben

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von MemoAnMichSelbst.

    Lesen / Schreiben

    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

    VB.NET-Quellcode

    1. Dim vorgelesenes As String
    2. Dim reader As String
    3. Dim datei As New OpenFileDialog
    4. ' Dim datei1 As New OpenFileDialog
    7. Public Sub datei_auswahl()
    10. datei.InitialDirectory = "E:\Vb_Prog\KlemmDef\Vergleich\WindowsApplication1\bin\Debug\"
    11. datei.Title = "Datei zum Importieren auswählen"
    13. If datei.ShowDialog() = DialogResult.OK Then
    15. Else MsgBox("Nichts ausgewählt", MsgBoxStyle.OkOnly, "Fehler!")
    17. End If
    19. End Sub
    21. Private Sub import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles import.Click
    23. Dim lesen As New FileStream(datei.FileName, FileMode.Open)
    24. Dim vorlesen As New StreamReader(lesen)
    25. Dim wort As String
    27. Do Until vorlesen.Peek() = -1
    29. wort = vorlesen.ReadLine()
    30. vorgelesenes = wort & vbCrLf
    32. Loop
    34. vorlesen.Close()
    35. schreiben()
    39. End Sub
    42. Private Sub schreiben()
    44. Dim fs As New FileStream("E:\Vb_Prog\KlemmDef\Vergleich\WindowsApplication1\bin\Debug\DB_Bib\Datenbank\Datenbank.txt", FileMode.Append)
    45. Dim sw As New StreamWriter(fs)
    47. sw.WriteLine(vorgelesenes)
    49. sw.Close()
    51. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Orange“ () aus folgendem Grund: Expander eingefügt

    Edit by ErfinderDesRades: unnötiges Vollzitat entfernt


    mehr nicht ?

    Könnte mir da noch jemand sagen was ich da falsch gemacht habe ? Nur aus Fehlern lernt man ;)

    Peek() geht doch bis zum ende der Datei und gibt dann ein -1 aus wenn alle Zeilen durchlaufen wurden, solang läuft doch der loop und füllt den string vorgelesenes, hab das doch richtig verstanden ?

    also schiebt er jede Zeile gefolgt von einem return nach und nach in vorgelesenes.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Willkommen im Forum. :thumbup:
    Wenn Du zum zweiten Mal in Deine Prozedur datei_auswahl() reinkommst, knallt es.
    Die File-Dialoge werden so benutzt:

    VB.NET-Quellcode

    1. Using dlg As New OpenFileDialog
    2. dlg.Filter = "Text files|*.txt|All files|*.*"
    3. If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
    4. Return
    5. End If
    6. ' mit dlg.FileName was tun
    7. End Using
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. vorgelesenes = wort & vbCrLf


    VB.NET-Quellcode

    1. vorgelesenes = string.concat(vorgelesenes, wort, vbCrLf)


    Du hast die Variable vorgelesenes immer neu beschrieben... Nicht ergänzt.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Immer noch das das letzte Zeichen :P

    Danke, soweit habe ich den Code mal abgeändert

    VB.NET-Quellcode

    1. Public Sub datei_auswahl()
    3. Using auswahl As New OpenFileDialog
    5. auswahl.Filter = "Text files (*.txt)|*.txt; *.doc|" & "E-Plan5 (*.efx)|*.exf|" & "All files... (*.*)|*.*"
    6. auswahl.Title = "Datei zum Importieren auswählen"
    8. If auswahl.ShowDialog <> Windows.Forms.DialogResult.OK Then
    9. Return
    10. End If
    12. Dim lesen As New FileStream(auswahl.FileName, FileMode.Open)
    13. Dim vorlesen As New StreamReader(lesen)
    14. Dim wort As String
    17. Do Until vorlesen.Peek() = -1
    18. wort = vorlesen.ReadLine()
    19. vorgelesenes = string.concat(vorgelesenes, wort, vbCrLf)
    20. Loop
    21. vorlesen.Close()
    23. Dim fs As New FileStream("E:\Vb_Prog\KlemmDef\Vergleich\WindowsApplication1\bin\Debug\DB_Bib\Datenbank\Datenbank.txt", FileMode.Append)
    24. Dim sw As New StreamWriter(fs)
    25. sw.WriteLine(vorgelesenes)
    26. sw.Close()
    28. End Sub


    In der auszuwählenden Datei stehen 10 Zeichen in jeder Zeile und er gibt mir immer noch nur das 10. Zeichen in der Neuen Datei aus.

    Gibt es eine Möglichkeit auch dann außerhalb des Subs datei_auswahl() auf auswahl.filename zugreifen zu können wenn ich den code von dem sub zb in ein Modul auslagere ?

    Hast du dir meinen Post überhaupt durchgelesen?
    Der Fehler ist nämlich noch immer drin!
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Orange schrieb:

    außerhalb des Subs datei_auswahl() auf auswahl.filename zugreifen zu können
    Modul ist nicht gut.
    Mach Dir eine

    VB.NET-Quellcode

    1. Public Function datei_auswahl() As String
    2. Return String.Empty ' bei Abbruch des Dialoges
    3. ' ...
    4. Return DIE_AUSGEWÄHLTE_DATEI
    5. End Function
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich hab nu ein leichtes Problem zu verstehen was du meinst...

    Du meinst nicht das hier enthaltene Return:

    VB.NET-Quellcode

    1. If auswahl.ShowDialog <> Windows.Forms.DialogResult.OK Then
    2. Return
    3. End If


    Sondern meinst, dass er in "vorgelesenes" eine leerzeile an den Anfang setzt?

    Was genau ist der Sinn der Anwendung?
    Liest du aus einer Datei aus und willst dann jeden Buchstaben in ne eigene Zeile schreiben?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Using auswahl As New OpenFileDialog
    2. auswahl.Filter = "Text files (*.txt)|*.txt; *.doc|E-Plan5 (*.efx)|*.exf|All files... (*.*)|*.*"
    3. auswahl.Title = "Datei zum Importieren auswählen"
    4. If auswahl.ShowDialog = Windows.Forms.DialogResult.OK Then
    5. Dim buchstabe As String
    6. Dim vorgelesenes As String = ""
    7. Dim lesen As New System.IO.FileStream(auswahl.FileName, System.IO.FileMode.Open)
    8. Using vorlesen As New System.IO.StreamReader(lesen)
    9. Do
    10. buchstabe = vorlesen.Read()
    11. vorgelesenes = String.Concat(vorgelesenes, buchstabe, vbCrLf)
    12. Loop Until buchstabe Is Nothing
    13. End Using
    14. My.Computer.FileSystem.WriteAllText("E:\Vb_Prog\KlemmDef\Vergleich\WindowsApplication1\bin\Debug\DB_Bib\Datenbank\Datenbank.txt", vorgelesenes, True)
    15. End If
    16. End Using


    Ups: Kleiner Fehler war drin XD
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D