Datei öffnen/speichern

Question

Hallo

Wer hat ein einfaches Programm um eine Textdatei in "Visual Basic 2008" zu speichern und diese auch später wieder zu öffnen?

wisalla

Answer 1

Hallo,

Wer hat ein einfaches Programm um eine Textdatei in "Visual Basic 2008" zu speichern und diese auch später wieder zu öffnen?

das .NET Framework bereits eingebaut:

  ' Text schreiben:
  System.IO.File.WriteAllText("C:\temp\test.txt", "Hallo Welt", System.Text.Encoding.Default)

  ' Text lesen:
  Dim lText As String = System.IO.File.ReadAllText("C:\temp\test.txt", System.Text.Encoding.Default)

---

Thorsten Dörfler
Microsoft MVP Visual Basic
vb-faq.de

Answer 2

Hallo,

Wer hat ein einfaches Programm um eine Textdatei in
"Visual Basic 2008" zu speichern und diese auch später
wieder zu öffnen?

Im einfachsten Fall z.b. so:

        Dim FileName As String = "C:MeineTestdatei.txt"
        Dim NL As String = ControlChars.CrLf

        Dim OutBuffer As String = "Hallo Welt" & NL
        OutBuffer &= _
            "Diese Datei wurde am " & _
            Today.ToShortDateString & _
            " um " & _
            Now.ToShortTimeString & " erstellt."

        ' Datei schreiben
        IO.File.WriteAllText(FileName, OutBuffer)
        MsgBox(FileName & " wurde geschrieben!", MsgBoxStyle.Information)

        ' Datei lesen
        Dim InBuffer As String = IO.File.ReadAllText(FileName)
        MsgBox("Inhalt von " & FileName & NL & NL & InBuffer, MsgBoxStyle.Information)

Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)

Answer 3

Wenn du Zeilenweise einlesen und auch schreiben möchtest empfielt sich der Streamreader:

 

Imports System.IO 'Verwenden der IO-Routinen

Und dann später einfach öffnen mit:

Dim SR as New StreamReader(<DeinDateiname>)

Lesen mit:

Do While Not SR.EndOfStream

      Zeile = SR.ReadLine()

      'irgendwas damit tun ...

Loop

Schließen dann mit:

SR.Close

 

Analog das Schreiben:

Dim SW As New StreamWriter(<Dateiname>)

... For / Do ... SW.Write(<Dein Text>) / SW.WriteLine(<Dein Tex, mit Zeilenumbruch>) ... Next / Loop ...

SW.Flush

SW.Close

 

Hab die wichtigen Wörter zum weiteren Nachschlagen in der Hilfe markiert. Hoffe das hilft.

LG, Dennis.

Answer 4

Hallo Thorsten

Das war genau das Programm das ich gesucht habe !

Herzlichen Dank und viele Grüße aus Köln

wisalla