RichTextBox Text speichern als .txt - Datei

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von xtts02.

    So müßte es ungefähr aussehen

    VB.NET-Quellcode

    1. Sub Saver(Wert As String)
    2. Try
    3. Dim sr3 As IO.StreamWriter = New IO.StreamWriter(Application.StartupPath & "Test.txt", True)
    5. If Wert = Nothing Then
    6. sr3.Close()
    7. Exit Sub
    8. End If
    10. sr3.WriteLine(Wert)
    11. sr3.Close()
    13. Catch ex As Exception
    14. MsgBox(ex.Message)
    15. End Try
    16. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. Saver(RichTextBox1.Text)
    20. End Sub


    MfG

    Die gesamte Klasse:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. '.....
    5. End Sub
    8. Sub Saver(Wert As String)
    9. Try
    10. Dim sr3 As IO.StreamWriter = New IO.StreamWriter(Application.StartupPath & "Test.txt", True)
    12. If Wert = Nothing Then
    13. sr3.Close()
    14. Exit Sub
    15. End If
    17. sr3.WriteLine(Wert)
    18. sr3.Close()
    20. Catch ex As Exception
    21. MsgBox(ex.Message)
    22. End Try
    23. End Sub
    25. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    26. Saver(RichTextBox1.Text)
    27. End Sub
    28. End Class


    MfG

    Geht leider auch nicht... :/

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. 'Speichern
    5. Dim pfad As String
    6. pfad = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    8. IO.File.WriteAllText("pfad \ TextBox1.Text & - Google.txt", RichTextBox1.Text)
    10. End Sub


    Edit:

    Meine Eingabe!
    Hab ich beim Verändern einen Fehler gemacht?

    machs so:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. 'Speichern
    5. Dim pfad As String
    6. pfad = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    8. IO.File.WriteAllText(pfad & "\" & TextBox1.Text & "- Google.txt", RichTextBox1.Text)
    10. End Sub

    Nein..

    Ich habe in meinem Programm eine TextBox, namens TextBox1.
    In diese werde ich etwas hineinschreiben. Ich möchte, dass die Datei am Schluss den Namen der TextBox + - Google annimmt.

    zB.: Quelltext - Google

    MFG

    Edit:

    Hat sich erübrigt ;)
    Hab nur einen kleinen Schreibfehler in meinem Code gehabt!
    Funktioniert! Danke nochmals für die schnelle und effiziente Hilfe! :thumbup:

    Hier der Code falls ihn jemand benötigt:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. 'Speichern
    5. Dim pfad As String
    6. pfad = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    8. IO.File.WriteAllText(pfad & "\" & TextBox1.Text & "- Google.txt", RichTextBox1.Text)
    10. End Sub

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