SaveFileDialog und OpenFileDialog - wie anwenden?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von roman.buergler83.

    SaveFileDialog und OpenFileDialog - wie anwenden?

    Hallo zusammen
    Leider weiss ich nicht weiter und muss das leidige Thema wieder aufgreifen. Langsam aber sicher bin ich am verzweifeln. Mein Programm soll zur Erfassung von Arbeitsrapporten dienen (Eingabe in diversen Text- und Comboboxen, File als txt speichern, öffnen und drucken. Da mein Programm mittlerweile bisschen gross ist, dass der ganze Code gepostet werden kann, habe ich eine Kurzversion gemacht.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Sub ToolStripButton_Speichern_Click(sender As Object, e As EventArgs) Handles ToolStripButton_Speichern.Click
    6. 'Speichern unter (Pfad kann frei gewählt werden)
    7. SaveFileDialog1.ShowDialog()
    9. 'wenn bereits File Exestiert, File überschreiben (speichern)
    10. ?????
    11. End Sub
    13. Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
    14. 'Was soll gespeichert werden
    15. Dim FileToSave As String = SaveFileDialog1.FileName
    16. Dim ObjektWriter As New System.IO.StreamWriter(FileToSave)
    17. ObjektWriter.Write(TextBox1.Text)
    18. ObjektWriter.Write(vbNewLine)
    19. ObjektWriter.Write(ComboBox1.Text)
    20. ObjektWriter.Write(vbNewLine)
    21. ObjektWriter.Write(TextBox2.Text)
    22. ObjektWriter.Close()
    23. End Sub
    25. Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    26. 'Öffnen
    27. Dim FileToOpen As String = OpenFileDialog1.FileName
    28. Dim ObjektReader As New System.IO.StreamReader(FileToOpen)
    29. TextBox1.Text = ObjektReader.ReadLine
    30. ComboBox1.Text = ObjektReader.ReadLine
    31. TextBox2.Text = ObjektReader.ReadLine
    32. ObjektReader.Close()
    33. End Sub
    35. Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
    36. 'Form schliessen
    37. Me.Close()
    38. End Sub
    40. Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
    41. 'Öffnen-Dialog öffen
    42. OpenFileDialog1.ShowDialog()
    43. NeuToolStripMenuItem.Visible = False
    44. TextBox1.Visible = True
    45. ComboBox1.Visible = True
    46. TextBox2.Visible = True
    47. End Sub
    49. Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
    50. 'Schaltflächen aktivieren, wenn SafeFileDialog ok
    51. ToolStripButton_Speichern.Visible = True
    52. ÖffnenToolStripMenuItem.Visible = False
    53. TextBox1.Visible = True
    54. ComboBox1.Visible = True
    55. TextBox2.Visible = True
    56. End Sub
    57. End Class



    Beim Speichern:
    Was muss ich machen (Code) damit das Programm überprüft, ob ein File existiert und wenn ja, dass er die Datei speichern (siehe Code ????)?

    Beim Öffnen:
    Die Datei wird eingelesen und wenn diese bearbeitet wird und anschliessend wieder mit dem Speicher-Button gespeichert werden soll, erfolgt eine Fehlermeldung. Warum habe ich keine Ahnung.

    Ich wäre sehr froh wenn mir jemand helfen könnte. Bisher habe ich immer durch das Forum gewühlt und Videos angeschaut bei Problemen, aber nun weiss ich nicht mehr weiter.
    Danke euch für eure Hilfe!

    Aus SaveFileDialog/OpenFileDialog-Filter - Multiple Extensions verschoben. ~Thunderbolt

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

    Willkommen im Forum. :thumbup:

    roman.buergler83 schrieb:

    Was muss ich machen (Code) damit das Programm überprüft, ob ein File existiert und wenn ja, dass er die Datei speichern (siehe Code ????)?
    Gar nix, das macht der SaveFileDialog für ich.
    Teste das in einem kurzen Snippet und wähle einmal eine Datei, die existiert, und einmal eine neue Datei.Eleganter ist es, wenn Du nicht die vom Designer generierten Routinen

    VB.NET-Quellcode

    1. Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
    und

    VB.NET-Quellcode

    1. Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    verwendest, sondern das DialogResult bei ShowDialog() auswertest. Außerdem gibt es auch eine Methode StreamWriter.WriteLine(), so dass sich 4 Prozeduren Deines Codes so zusammenfassen lassen (meine Button haben andere Namen als Deine ToolStripMenuItems):

    VB.NET-Quellcode

    1. Private Sub ToolStripButton_Speichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
    2. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    3. Using ObjektWriter As New System.IO.StreamWriter(SaveFileDialog1.FileName)
    4. ObjektWriter.WriteLine(TextBox1.Text)
    5. ObjektWriter.WriteLine(ComboBox1.Text)
    6. ObjektWriter.Write(TextBox2.Text)
    7. End Using
    8. End If
    9. End Sub
    11. Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles btnÖffnen.Click
    12. If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    13. Using ObjektReader As New System.IO.StreamReader(OpenFileDialog1.FileName)
    14. TextBox1.Text = ObjektReader.ReadLine
    15. ComboBox1.Text = ObjektReader.ReadLine
    16. TextBox2.Text = ObjektReader.ReadLine
    17. End Using
    18. TextBox1.Visible = True
    19. ComboBox1.Visible = True
    20. TextBox2.Visible = True
    21. End If
    22. End Sub
    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!

    Hallo Rod
    Danke für deine​ Antwort. Ich verstehe leider nicht ganz was du mir sagen willst, aber danke für deine Hilfe (diese nehme ich gerne an). Ich versuche dir mein Problem genauer zu erklären.
    Mich stört folgendes:
    wenn ich das File speichern will und auf den Button speichern klicke öffnet sich der Speicher-Dialog, das ist ok. Danach gebe ich den Filenamen ein, wähle den Pfad aus und speichere das Ding.
    Wenn ich jetzt aber weitere Eingaben mache im Programm und wieder auf Speichern klicke öffnet sich ja wieder der Speicher-Dialog und das stört mich! Das ist ja eigentlich nicht nötig, da er nur alles speichern soll im File, welches bereits existiert.
    Dies ist sicher möglich (denke oder hoffe ich). Wenn ja, könntest du mir erklären wie ich den Code schreiben muss und wo?
    Merci und Gruss aus der Schweiz

    Wenn du eine Datei öffnest, merke dir den Dateipfad in einer Variablen...
    Wenn du deine Änderungen gemacht hast, dann speicherst du sie entweder wieder im selben Pfad,
    den du dir in der Variablen gemerkt hast, ab und umgehst somit den SaveFileDialog.
    Oder du drückst extra einen Button Speichern unter... und rufst damit den SaveFileDialog wieder auf
    und wählst einen neuen Dateipfad, den du dir wieder in der Variablen merkst...

    ok, ich habe das so machen können und jetzt passt es mir auch :)
    jetzt habe ich aber noch eine andere Frage.

    zum Speichern der ListView habe ich folgendes gemacht und das funzt auch:
    For Each myItem As LIstViewItem In ListView_Fremdleistungen1.Items
    ObjektWriter.WriteLine(myItem.Text & " - " & myItem.SubItems(1).Text & " - " myItem.SubItems(2).Text & " - " myItem.SubItems(3).Text & myItem.SubItems(4).Text & " - " myItem.SubItems(5).Text)

    nun wollte ich den Code umkehren für das Öffnen der Datei, funktioniert aber nicht.... warum? hat jemand eine Lösung wie ich den obenerwähnten Speichersatz einlesen kann? (Code)
    Hier mein Code, welcher nicht funzt:
    For Each myItem As ListViewItem In ListView_Fremdleistungen1.Items
    ObjektReader.ReadLine(myItem.Text & usw wie oben)

    ​

    roman.buergler83 schrieb:

    nun wollte ich den Code umkehren
    Dann solltest Du anfangen, indem Du Deinen Code wegschmeißt. Sorry.
    Mach zunächst einen Plan, wie das gehen könnte:
    Kein ListView, sondern DataGridView. Keine Text-Datei mit Hin- und Her-gewurstel, sondern eine DataTable, deren Inhalt Du als XML-Datei speichern und laden kannst. Diese wird dem DataGridView als DataSource zugewiesen und feddich. :D
    Bevor Du nun anfängst Code zu schöpfen, lies Dich erst mal in die Materie ein und benutze die Suchfunktion hier im Forum: DataGridView DataTable Datensatz. Konzentriere Dich auf Posts vom @ErfinderDesRades , das ist der Datenbank-Guru hier.
    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!

    ach manno... jetzt habe ich alles vorbereitet und sollte eigentlich nur noch das Öffnen und Drucken programmieren, der Rest funktioniert.
    *er läuft fluchend aus dem Zimmer*

    ok, danke für den Hinweis. ich probiers mit DataGridView.​