Text wird nicht in Textdatei geschrieben

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    Text wird nicht in Textdatei geschrieben

    Hallo, ich mach es einfach mal kurz und Knapp: Ich teste ein wenig herum, und wollte ein Speichersystem erstellen. Ich habe ein TextBox, dessen Text in einer .txt gespeichert werden soll. Wenn ich auf den Speichern Knopf drücke, wird der Ordner erstellt, die Textdatei mit dem jeweiligen Namen (Den man sich aussuchen kann) erstellt und alle Dateinamen die in dem Ordner sind werden in einer Listbox aufgelistet. Dies Funktioniert wunderbar, jedoch habe ich ein Problem: Den Text den ich in die TextBox schreibe wird nicht gespeichert. Die .txt wird erstellt, jedoch ohne Text. ich bekommen auch keine Fehlermeldung.

    Hier mein Code:

    Dies passiert wenn sich das Programm öffnet:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Public Class Hauptfenster
    3. ' Variablen
    5. Public Pfad As String = "C:\TestTest1\"
    7. Public Datei As String
    9. Public Leer As String = ""
    11. Public Script As String
    13. Public auflistung
    15. Public Script_Text_V As String
    17. 　
    19. 　
    21. ' Speichersystem
    23. Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
    25. Speichern_Name.Show()
    27. End Sub
    29. 　
    31. 　
    33. Public Sub Hauptfenster_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    35. Dim Script_Text_V As String = Script_Text.Text
    37. Dim dir As New System.IO.DirectoryInfo(Me.Pfad)
    39. Me.Script_Auflister.Items.Clear()
    41. For Each file As System.IO.FileInfo In dir.GetFiles
    43. Me.Script_Auflister.Items.Add(file.Name)
    45. Next
    47. End Sub
    49. 　
    51. 　
    53. 　
    55. 　
    57. End Class


    Wenn ich auf Speichern drücke geschieht dies:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Public Class Speichern_Name
    3. 'Speichersystem
    5. Private Sub Speichern_Knopf_Click(sender As Object, e As EventArgs) Handles Speichern_Knopf.Click
    7. 　
    9. ' Checkt ob ein Name zugewiesen wird oder nicht
    11. If Name_Script.Text = Hauptfenster.Leer Then
    13. MsgBox("Bitte geben Sie einen Namen an!")
    15. Else
    17. ' Name wurde zugewiesen
    19. Hauptfenster.Script = Hauptfenster.Script_Text_V
    21. Hauptfenster.Datei = "C:\TestTest1\" + Name_Script.Text + ".txt"
    23. ' Test ob Pfad Existiert
    25. If (System.IO.Directory.Exists(Hauptfenster.Pfad)) Then
    27. OrdnerErstellt:
    29. 'Pfad Existiert
    31. If (System.IO.File.Exists(Hauptfenster.Datei)) Then
    33. 'Datei Existiert
    35. Speichern_Name_Vorhanden.Show()
    37. Else
    39. 'Datei Existiert nicht
    41. System.IO.File.WriteAllText(Hauptfenster.Datei, Hauptfenster.Script_Text_V)
    43. Dim dir As New System.IO.DirectoryInfo(Hauptfenster.Pfad)
    45. Hauptfenster.Script_Auflister.Items.Clear()
    47. For Each file As System.IO.FileInfo In dir.GetFiles
    49. Hauptfenster.Script_Auflister.Items.Add(file.Name)
    51. Next
    53. End If
    55. Else
    57. 'Pfad existiert nicht
    59. IO.Directory.CreateDirectory(Hauptfenster.Pfad)
    61. GoTo OrdnerErstellt
    63. End If
    65. End If
    67. Close()
    69. End Sub

    Wie ihr seht, wird ein Fenster geöffnet wenn der Dateiname bereits vorhanden ist
    Wenn ich bei diesem auf "Ja" drücke, soll die Datei überschrieben werden, dabei passiert einfach das gleiche wie bei dem Reiter: 'Datei Existiert nicht

    Ich hoffe ich habe euch nun nicht mit Infos überhäuft und das ihr mir helfen könnt :)

    Daenni schrieb:

    VB.NET-Quellcode

    1. GoTo OrdnerErstellt
    Stell das Programm so um, dass Du ohne GoTo auskommst. Hatten wir bereits.
    Und:
    Warum hast Du VB6 angeklickt? Ändere das bitte.

    Daenni schrieb:

    VB.NET-Quellcode

    1. Speichern_Name.Show()
    Gugst Du hier.
    Wenn Du das verstanden und umgesetzt hast, ist Dein Problem gelöst. :thumbsup:


    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 nun mehrfach Probiert es zu verstehen und umzusetzen.. leider ist die Seite für mich nur verwirrend. Ich verstehe das es wohl daran liegt wie ich die Form aufrufe, jedoch kapier ich ehrlich gesagt kein Wort von dem Post. Mir ist beim durchlesen auch nicht klar welcher Teil des Postes mir bei meinem Problem helfen könnte. Würde es gerne selber herausfinden und es verstehen, das ist ja klar, aber mit dem Post komm ich nicht klar.. die menge erschlägt mich einfach.. wenn du mir eventuell die Stelle im Post sagen könntest bei der ich meine Lösung bzw. den Lösungsansatz finde wäre es sehr nett von dir :)
    Trotzdem danke für die Hilfe, leider bin ich zu doof sie zu kapieren ;)

    Du arbeitest wohl zu allererst nicht mit:

    VB.NET-Quellcode

    1. Option Strict On
    in Deinen Einstellungen!

    Ansonsten würde z.B. sofort folgender Unsinn angemeckert werden:

    VB.NET-Quellcode

    1. Public auflistung
    Was soll das sein???

    Du definierst einmal als Public:

    VB.NET-Quellcode

    1. Public Script_Text_V As String

    dann in der Load-Routine abermals:

    VB.NET-Quellcode

    1. Dim Script_Text_V As String = Script_Text.Text

    Wenn dann definiere gleich nur einmalig:

    VB.NET-Quellcode

    1. Public Script_Text_V As String = Script_Text.Text

    Evtl. könnte dann Dein Programm funktionieren - aber ich steige wirklich nicht durch all Deine Bezeichnungen durch!

    Daenni schrieb:

    Lösungsansatz
    Du musst in Instanzen denken, objektorientiert.
    Wenn Du von der Hauptklasse in eine Unterklasse (kann auch ne Form sein) was reinreichen willst, machst Du in der Unterklasse eine Property, die Du von außen lesen und schreiben kannst.
    Wenn die Unterklasse der Hauptklasse was mitzuteilen hat, gib der Unterklasse ein Event, das die Hauptklasse abonieren muss.
    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!

    @Daenni

    Habe für Dich eine kleine Anwendung, die verdeutlichen soll, was @RodFromGermany meint.

    Diese Anwendung soll folgende einfache Formel berechen: a2 = b
    Eingabe von "a" auf Form1 und allein zu Übungszwecken Ausgabe von "b" auf Form2

    Hier der Code für Form1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On ' Nur für alle - die es immer noch nicht standardmäßig in den Einstellungen haben.
    3. ' Zu berechnen sei: a hoch 2 gleich b
    4. ' Eingabe von "a" auf Form1 und allein zu Übungszwecken Ausgabe von "b" auf Form2
    5. ' Der Button und das NumericUpDown werden hier in der Subroutine New angelegt - erfolgt normalerweise mit Hilfe des Designers!
    7. Public Class Form1
    9. Friend WithEvents bt1 As Button
    10. Friend WithEvents a As NumericUpDown
    12. Public Sub New()
    14. ' Dieser Aufruf ist für den Designer erforderlich.
    15. InitializeComponent()
    17. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    19. Me.a = New NumericUpDown()
    20. Me.a.Location = New System.Drawing.Point(49, 139)
    21. Me.a.Maximum = CType(Math.Sqrt(Decimal.MaxValue), Decimal) - 1
    22. Me.a.Name = "a"
    23. Me.a.Size = New System.Drawing.Size(120, 20)
    24. Me.Controls.Add(a)
    26. Me.bt1 = New Button
    27. Me.bt1.Location = New System.Drawing.Point(49, 196)
    28. Me.bt1.Name = "bt1"
    29. Me.bt1.Size = New System.Drawing.Size(150, 23)
    30. Me.bt1.Text = "Berechne: a hoch 2"
    31. Me.Controls.Add(bt1)
    33. End Sub
    35. Private Sub bt1_Click(sender As System.Object, e As System.EventArgs) Handles bt1.Click
    36. Using frm2 As New Form2
    37. frm2.Quadrat(a.Value)
    38. frm2.ShowDialog()
    39. End Using
    40. End Sub
    41. End Class


    Und hier der Code für Form2:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form2
    3. ' Zu berechnen sei: a hoch 2 gleich b
    4. ' Eingabe von "a" auf Form1 und allein zu Übungszwecken Ausgabe von "b" auf Form2
    5. ' Das NumericUpDown wird hier in der Subroutine New angelegt - erfolgt normalerweise mit Hilfe des Designers!
    7. Friend WithEvents b As NumericUpDown
    9. Public Sub New()
    11. ' Dieser Aufruf ist für den Designer erforderlich.
    12. InitializeComponent()
    14. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    16. Me.b = New NumericUpDown()
    17. Me.b.Location = New System.Drawing.Point(49, 139)
    18. Me.b.Maximum = Decimal.MaxValue
    19. Me.b.Name = "b"
    20. Me.b.Size = New System.Drawing.Size(120, 20)
    21. Me.Controls.Add(b)
    23. End Sub
    25. Public Sub Quadrat(a As Decimal)
    26. b.Value = a * a
    27. End Sub
    29. End Class




    Frage an @RodFromGermany oder an alle die mit OOP gut bewandert sind:

    Was ist zu programmieren, wenn da 20 Variablen oder mehr von Form1 in Form2 benötigt werden?

    Klar, die könnten alle als Argumente übergeben werden, aber dies wäre ein ellenlanger Aufruf.

    Und natürlich könnten alle diese Variablen erst in eine Klasse gesteckt werden und dann wird die Instanz der Klasse als Argument übergeben.

    Persönlich neige ich ehrlicherweise dann eben in solchen extremen Fällen manchmal aus Bequemlichkeit immer noch zu so etwas wie "Form1.a.Value" in Form2.

    Kommentar zu Post 7 von @ErfinderDesRades: Hmm - ich bin doch (beim Programmieren) super-faul - und nicht unbedingt super-sauber. :huh: :( ;)

    Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „Thias“ ()

    Thias schrieb:

    Was ist zu programmieren, wenn da 20 Variablen oder mehr von Form1 in Form2 benötigt werden?
    Ja, da muss man - will man super-sauber bleiben - tatsächlcih ein Daten-Objekt haben mit 20 Properties.
    Ansonsten kann das MainForm ja auch ins Sub-Form reingrabschen, und die 20 Controls auslesen.
    Also das Event muss nicht unbedingt 20 Properties haben.

    Oft (oder meist) kann man allerdings auch Databinding für sich arbeiten lassen, dann codet der Designer den BoilerPlate-Code.

    Thias schrieb:

    20 Variablen
    würde ich in eine separate Datenklasse packen und die als Instanz handeln.
    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!

    ErfinderDesRades schrieb:

    Ansonsten kann das MainForm ja auch ins Sub-Form reingrabschen, und die 20 Controls auslesen.

    Da kommt bei mir dann doch noch eine Frage hoch.

    Warum ist es OK, dass die MainForm in die Sub-Form "reingrabschen" darf, aber nicht die Sub-Form in die MainForm. Wer hat dieses Gesetz warum aufgestellt?

    Thias schrieb:

    "reingrabschen"
    Da gilt die Ordnung Hauptklasse und Unterklasse.
    Die Instanz der Unterklasse liegt in der Hauptklasse, da ist der Zugriff eben ganz easy.
    Die Unterklasse ist gekapselt, die soll nix von der "Außenwelt" wissen müssen, also kein "grapschen", sondern Events: "Herr Lehrer, ich weiß was".
    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!

    So nachdem ich Events durch @RodFromGermany Erklärung: "Events: Herr Lehrer, ich weiß was" nun noch besser verstanden habe, habe ich die simple Anwendung, welche a2 = b berechnet, noch durch Events erweitert.

    Form1:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On ' Nur für alle - die es immer noch nicht standardmäßig in den Einstellungen haben.
    3. ' Zu berechnen sei: a hoch 2 gleich b
    4. ' Eingabe von "a" auf Form1 und allein zu Übungszwecken Ausgabe von "b" auf Form2
    5. ' Der Button und das NumericUpDown werden hier in der Subroutine New angelegt - erfolgt normalerweise mit Hilfe des Designers!
    7. Public Class Form1
    9. Friend WithEvents bt1 As Button
    10. Friend WithEvents a As NumericUpDown
    11. Private WithEvents frm2 As Form2
    13. Public Sub New()
    15. ' Dieser Aufruf ist für den Designer erforderlich.
    16. InitializeComponent()
    18. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    20. Me.a = New NumericUpDown()
    21. Me.a.DecimalPlaces = 2
    22. Me.a.Location = New System.Drawing.Point(49, 139)
    23. Me.a.Maximum = CType(Math.Sqrt(Decimal.MaxValue), Decimal) - 1
    24. Me.a.Name = "a"
    25. Me.a.Size = New System.Drawing.Size(120, 20)
    26. Me.Controls.Add(a)
    28. Me.bt1 = New Button
    29. Me.bt1.Location = New System.Drawing.Point(49, 196)
    30. Me.bt1.Name = "bt1"
    31. Me.bt1.Size = New System.Drawing.Size(150, 23)
    32. Me.bt1.Text = "Zuerst Form2 anzeigen" ' dort mittels Button Event wirklich berechnen: a hoch 2 = b
    33. Me.Controls.Add(bt1)
    35. End Sub
    37. Private Sub bt1_Click(sender As System.Object, e As System.EventArgs) Handles bt1.Click
    38. If frm2 Is Nothing OrElse frm2.IsDisposed Then frm2 = New Form2
    39. If Not frm2.Created Then
    40. frm2.Show(Me)
    41. Else
    42. frm2.Visible = True
    43. frm2.Focus()
    44. End If
    45. End Sub
    47. Private Sub Form2_Click(sender As System.Object, e As System.EventArgs) Handles frm2.MyEvent
    48. ' MessageBox.Show("Event empfangen")
    49. frm2.Quadrat(a.Value)
    50. End Sub
    52. End Class

    Form2:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form2
    3. ' Zu berechnen sei: a hoch 2 gleich b
    4. ' Eingabe von "a" auf Form1 und allein zu Übungszwecken Ausgabe von "b" auf Form2
    5. ' Der Button und das NumericUpDown werden hier in der Subroutine New angelegt - erfolgt normalerweise mit Hilfe des Designers!
    7. Friend WithEvents b As NumericUpDown
    8. Friend WithEvents bt1 As Button
    9. Public Event MyEvent(sender As System.Object, e As System.EventArgs)
    11. Public Sub New()
    13. ' Dieser Aufruf ist für den Designer erforderlich.
    14. InitializeComponent()
    16. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    18. Me.b = New NumericUpDown()
    19. Me.b.DecimalPlaces = 4
    20. Me.b.ReadOnly = True
    21. Me.b.Location = New System.Drawing.Point(49, 139)
    22. Me.b.Maximum = Decimal.MaxValue
    23. Me.b.Name = "b"
    24. Me.b.Size = New System.Drawing.Size(120, 20)
    25. Me.Controls.Add(b)
    27. Me.bt1 = New Button
    28. Me.bt1.Location = New System.Drawing.Point(49, 196)
    29. Me.bt1.Name = "bt1"
    30. Me.bt1.Size = New System.Drawing.Size(200, 23)
    31. Me.bt1.Text = "Nun durch Event auslösen berechnen"
    32. Me.Controls.Add(bt1)
    34. End Sub
    36. Public Sub Quadrat(a As Decimal)
    37. b.Value = a * a
    38. End Sub
    40. Private Sub bt1_Click(sender As System.Object, e As System.EventArgs) Handles bt1.Click
    41. RaiseEvent MyEvent(Me, EventArgs.Empty)
    42. End Sub
    44. End Class


    Natürlich lässt sich dies ohne Events schneller und einfacher berechnen (s.o.) - aber es geht ja darum die Funktion von Events zu demonstrieren - insbesondere für @Daenni.

    Edit @Daenni: Falls Du damit immer noch nicht klar kommst, dann poste bitte mal evtl. Deine Form1.Desigenr.vb und Form2.Designer.vb oder halt das ganze Projekt gezippt - denn Deinen Form-Aufbau ansonsten nachzuvollziehen ist so gut wie unmöglich!

    Dieser Beitrag wurde bereits 10 mal editiert, zuletzt von „Thias“ ()

    Thias schrieb:

    Warum ist es OK, dass die MainForm in die Sub-Form "reingrabschen" darf, aber nicht die Sub-Form in die MainForm. Wer hat dieses Gesetz warum aufgestellt?

    Ein Programm ist eine Baumstruktur von Objekten.
    Also ein Objekt, das beinhaltet einige Objekte, davon einige beinhalten viele Objekte, davon viele ganz viele, davon...

    Jedes Objekt ist programmiert.

    Wenn also ein Datentyp einen anderen Datentyp beinhaltet, dann isser abhängig von dem.
    Also das Prog kompiliert nur, wenn im Code vom Owner der Datentyp des SubObjekts bekannt ist.
    Das Subobjekt ist aber unabhängig, und dadurch ist es besser wiederverwendbar.

    Also ein Form mit einem ChangeFont-Button.
    Das Form kennt den Button, der Button kennt das Form aber nicht.
    So kann das Form den Button-Click empfangen, und seinen Font changen.
    Würde der Button selbst ins Form grabschen, und da den Font changen, dann könnte man die Button-Klasse nur noch für dieses eine Form verwenden.
    Was natürlich Crap wäre, zuende gedacht müsste man ja millionen verschiedene Button-Klassen Coden, und jede bewirkt was anderes in anderen Forms, wies grad erforderlich.

    hmm - ich glaub besser erklärt habichs hier: home.arcor.de/eckardahlers/Programmer/Blogs/VeryBasics.html

    Übrigens in begründeten Ausnahmen macht mans durchaus, dass die SubObjekte Verweise auf ihre Owner halten - etwa TreeView-TreeNode, oder DataRows im Dataset oder sowas.
    Ist halt gelegentlich sinnvoll, aber immer erkauft durch eine "enge Kopplung" der Datentypen miteinander.