Txt Datei auslesen und beschreiben Verfasst am: 05.01.2008, 16:56
Hat jemand eine Idee wie man eine txt Datei auslesen und beschreiben kann.
Ich bräuchte den Code für VBScript so das ich es im Editor schreiben könnte. Ich habe schon einige "Lösungen" bei google gefunden welche bei mir aber nicht funktionieren.
Danke
Topmaster_ Tutorial Leser
Anmeldedatum: 15.09.2007 Beiträge: 32
Verfasst am: 05.01.2008, 17:15
Das thema wurde vorkurzem besporchen:)
Hier etwa der Sorce
Zitat:
Imports System.IO
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
ofd.Filter = _
"Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
ofd.Title = "Öffnen"
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
' falls ein Fehler auftreten sollte, muss dieser behandelt werden
Try
Dim sr As IO.StreamReader = New IO.StreamReader(ofd.FileName)
TextBox1.Text = sr.ReadToEnd()
sr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Texteditor")
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Filter = _
"Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
SaveFileDialog1.ShowDialog()
Try
Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.FileName, False)
sw.Write(TextBox1.Text)
sw.Close()
Catch f As Exception
MessageBox.Show(f.Message)
Return
End Try
TextBox1.Modified = False
End Sub
Registrieren
Login
