Textbox als .txt speichern und den Inhalt der Textbox bzw. .txt Datei wieder in der Textbox anzeigen

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von HSVFan.

    Textbox als .txt speichern und den Inhalt der Textbox bzw. .txt Datei wieder in der Textbox anzeigen

    Moin,

    Ich habe eine Textbox erstellt, und möchte den Eingegebenen Text in eine vorgefertigte .txt Datei sichern. Dieser Text soll beim nächsten Programmstart in der selben Textbox wieder angezeigt werden. Die txt Datei soll in einem speziellen Ordner gespeichert werden.

    Ich brauche, wenn möglich, eine detaillierte Beschreibung, bzw. einen Code.


    MfG
    HSVFan

    Abend ..
    zunächst solltest du die Datei erstellen. Das machst du So:

    VB.NET-Quellcode

    1. Dim datei As System.IO.FileStream
    2. datei = System.IO.File.Create("c:\textdatei.txt")
    3. FileClose(datei)
    4. ​


    Dann wird der Text reingeschrieben:

    VB.NET-Quellcode

    1. ​My.Computer.FileSystem.WriteAllText("c:\textdatei.txt", textbox1.text, True)

    Du solltest aber dann noch vorher prüfen ob die Datei exsistiert. Sonst gibts n Error

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    4. Public Class Form1
    6. Dim Dateipfad As String = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "Test.txt")
    8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    10. Using sw As StreamWriter = New StreamWriter(Dateipfad)
    11. sw.WriteLine(TextBox1.Text)
    12. End Using
    14. End Sub
    16. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    18. Dim line As String = ""
    19. Using reader As StreamReader = New StreamReader(Dateipfad)
    20. line = reader.ReadLine
    21. End Using
    22. MsgBox(line)
    24. End Sub
    26. End Class

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Dim Dateipfad As String = "Test.txt" 'Dateipfad !
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. 'Beim laden der Form prüfen ob die Datei schon da ist
    6. If IO.File.Exists(Dateipfad) Then
    7. 'Wenn ja dann auslesen und in Textbox schreiben
    8. TextBox1.Text = System.IO.File.ReadAllText(Dateipfad)
    9. End If
    10. End Sub
    11. 'Textbox Inhalt speichern per Button
    12. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    13. System.IO.File.WriteAllText(Dateipfad, TextBox1.Text)
    14. End Sub
    15. 'Textbox Inhalt speichern beim beenden
    16. Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    17. System.IO.File.WriteAllText(Dateipfad, TextBox1.Text)
    18. End Sub
    19. End Class

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

    TextBox1.Text.ToString

    @TVX Das ist doppelt gemoppelt, Text is ja bereits ein String, deshalb braucht's da keine Umformung ;)
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Leute die sich um einen kümmer verdienen auch ab und zu ein Kü...Hilfreich
    Trade, ThuCommix - immer zuvorkommend und freundlich .
    Danke ;)

    Oberer Beitrag (( 8 )) ediert !

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

    TVX schrieb:

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Dim Dateipfad As String = "Test.txt" 'Dateipfad !
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. 'Beim laden der Form prüfen ob die Datei schon da ist
    6. If IO.File.Exists(Dateipfad) Then
    7. 'Wenn ja dann auslesen und in Textbox schreiben
    8. TextBox1.Text = System.IO.File.ReadAllText(Dateipfad)
    9. End If
    10. End Sub
    11. 'Textbox Inhalt speichern per Button
    12. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    13. System.IO.File.WriteAllText(Dateipfad, TextBox1.Text)
    14. End Sub
    15. 'Textbox Inhalt speichern beim beenden
    16. Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    17. System.IO.File.WriteAllText(Dateipfad, TextBox1.Text)
    18. End Sub
    19. End Class


    und wie ist das bei mehreren textboxen?

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Dim Dateipfad As String = "Test.txt" 'Dateipfad !
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. 'boxen aus datei laden wenn diese schon exsistiert
    6. If System.IO.File.Exists(Dateipfad) Then
    7. Using sr As New IO.StreamReader(Dateipfad)
    8. TextBox1.Text = sr.ReadLine()
    9. TextBox2.Text = sr.ReadLine()
    10. TextBox3.Text = sr.ReadLine() 'usw...
    11. End Using
    12. End If
    13. End Sub
    15. 'Textbox Inhalt speichern beim beenden
    16. Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    17. Using sw As New IO.StreamWriter(Dateipfad)
    18. sw.WriteLine(TextBox1.Text)
    19. sw.WriteLine(TextBox2.Text)
    20. sw.WriteLine(TextBox3.Text) 'usw...
    21. End Using
    22. End Sub
    23. End Class


    Oder mit na Schleife alle Controls - Texboxen - durchlaufen - in nem String sammeln -und dann in ne Datei (( Wenn es sehr viele werden ))

    Hier gibt es gute Tuts .. (( dotnetperls.com/ ))
    http://www.dotnetperls.com/streamwriter-vbnet
    dotnetperls.com/streamreader-vbnet

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

Facebook
Telefonspende