Tipp 0195 Textdatei komplett lesen und überschreiben
Autor/Einsender:
Datum:
  Thomas Becker
12.10.2009
Entwicklungsumgebung:   VB.Net 2005
Framework:   2.0
Der Tipp veranschaulicht, wie in VB .Net mit dem praktischen Einzeiler IO.File.ReadAllText der Inhalt einer Textdatei ausgelesen und mit IO.File.WriteAllText wieder in die Datei zurückgeschrieben werden kann. Außerdem wird alternativ die Verwendung von IO.StreamReader und IO.StreamWriter aufgezeigt. Vorteil an den genannten IO.File - Membern ist, dass man sich um das Schließen einer Datei und um eine Objektfreigabe (Dispose) nicht kümmern braucht. Dies erledigt das Framework im Hintergrund.
 
Public Class Form1
  'Pfad befindet sich im bin\Debug-Verzeichnis des Projektes
  Dim Pfad As String = Application.StartupPath & "\Test.dat"

  Private Sub Form1_Load(ByVal sender As Object, -
          ByVal e As EventArgs) Handles MyBase.Load
    TextBox1.Text = Pfad
    TextBox2.Text = "Hallo"
    TextBox3.Text = ""
  End Sub

  Private Sub Button1_Click(ByVal sender As Object, _
          ByVal e As EventArgs) Handles Button1.Click
    ' Zuerst prüfen ob Datei existiert
    If IO.File.Exists(Pfad) = False Then
      MsgBox("Datei Test.dat ist noch nicht vorhanden. Bitte erst"_
             """Uuml;berschreiben"" wählen")
      Exit Sub
    End If

    Select Case RadioButton1.Checked
      Case True
        ' Lesen mit IO.File
        TextBox3.Text = IO.File.ReadAllText(Pfad)

      Case False
        ' Lesen mit IO.StreamReader
        Using sr As New IO.StreamReader(Pfad)
          TextBox3.Text = sr.ReadToEnd
          sr.Close()
        End Using

    End Select
  End Sub

  Private Sub Button2_Click(ByVal sender As Object, _
          ByVal e As EventArgs) Handles Button2.Click
    Select Case RadioButton1.Checked
      Case True
        ' Überschreiben mit IO.File
        IO.File.WriteAllText(Pfad, TextBox2.Text)

      Case False
        ' Überschreiben mit IO.StreamWriter
        Using sw As New IO.StreamWriter(Pfad, False)
          sw.WriteLine(TextBox2.Text)
          sw.Close()
        End Using
    End Select
  End Sub

  Private Sub Button3_Click(ByVal sender As Object, _
          ByVal e As EventArgs) Handles Button3.Click
    ' Beenden
    Me.Close()
  End Sub
End Class
 
Weitere Links zum Thema
Textdateien lesen und schreiben (Dateizugriff)

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (15 kB) Downloads bisher: [ 443 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 17. Oktober 2011