[VB 2008]Text aus Textdatei auslösen

[Jay Niize]

Hallo Elitepvpers!

Für den einen oder anderen erscheint es neu, aber auch für einige sehr bekannt! Ja! Heute zeige ich euch, wie ihr aus Dateien wie zum Beispiel Textdateien den Text auslesen könnt! Das geht auf zwei verschiedene Varianten: Einmal auf die String Variante und auf die StreamReader Variante.In der String Variante, wird der Inhalt der Textdatei in String konvertiert, den wir dann mit einer Textbox, oder Richtextbox abrufen können. In der StreamReader Variante wird die Datei gesucht, und dann Gleich in die Textbox befördert!

Nun fangen wir mit der String Variante an. Zuerst mal müssen wir alles in unsere Form ziehen was wir brauchen, z.B 2 Textboxen, 1 Button und einen Openfiledialog! Den Button1 Beschriften wir mit Auslesen. Die Textbox2 stellen wir auf MultiLine, und Ziehen sie etwas größer! Das kann dann so aussehen :



Sry. Da steht beim packen Durchsuchen

Nun kommen wir endlich zum Code WIr wählen den Button aus, aber Zunächst müssen wir einen Namen finden, in den wir den String packen! Ich nenn' das mal... hmm... datei. OK wir Konvertieren datei nun in String mit :

PHP Code:

Dim datei as String 


Aber so wird das ganze nur in String konvertiert! Was machen wir nun? Achja! Wir müssen erstmal unsere Datei auswählen, also schreiben wir folgendes, das unser kleine Programm auch weiss, welche Datei ausgelesen wird! Das schreiben wir hinter

PHP Code:

Dim datei as String 


Also wie gesagt DAS hinter ↑ packen :

PHP Code:

= My.computer.FileSystem.ReadAllText(Textbox1.text) 


So dann ist die Datei.txt nun im String datei! jetzt wollen wir das noch auslesen, also schreiben wir noch hin :

PHP Code:

Textbox2.text = datei 


So... Schreiben wir vor Dem was wir gerade programmiert haben das :

PHP Code:

Openfiledialog1.showdialog
Textbox1.text = Openfiledialog1.filename 


Mit Openfiledialog1.showdialog wird der Openfiledialog gezeigt! Wenn du nun eine Datei anklickst, und auf OK klickst, wird mit Textbox1.text = Openfiledialog1.filename Der Pfad, wo die Datei sich befindet in die Textbox geladen!
Also ist unser Code von der String Variante so :

PHP Code:

Openfiledialog1.showdialog
Textbox1.text = Openfiledialog1.filename
Dim datei as String= My.computer.FileSystem.ReadAllText(Textbox1.text)
Textbox2.text = datei 


Nun kommen wir zur StreamReader Variante. Wie gehabt ziehen wir die oben gegebenen Elemente auf unsere Form, und klicken Doppelt auf den Button. Zunäcst sollten wir wieder ein Name für unseren StreamReader finden. Ich nenn' das teil mal SR1. Dann sollten wir nochmal den Pfad Checken! Ich mache es dieses mal ohne Textbox, des wegen Tippen wir in dem Code den Pfad ein. Also dann der Pfad, und jetzt nehmen wir als Encoding System Default! Alles zusammen gesetzt, erhält man das hier :

PHP Code:

Dim SR1 As New StreamReader("C:\Datei.txt", System.Text.Encoding.Default) 


Wie gesagt, wird SR1 nun als StreamReader erstellt. Jetzt wird es ziemlich einfach! Jetzt müssen wir nur noch Den Text von der Datei.txt in unsere textbox2 senden, also geben wir folgendes ein :

PHP Code:

TextBox2.Text = SR1.ReadToEnd() 


Wer English kann, sollte wissen was es besdeuted! ReadToEnd heisst übersetzt bis zum ende lesen. Also liest der Stream Reader alle zeilen Der Datei aus! Wegen textbox2.text, wird dieser inhalt in die Textbox2 geschrieben. Das auch keine Fehelr nach diesem Vorgang kommen, schließen wir noch unseren StreamReader mit SR1.Close()

Es gibt natürlich noch mehrere Arten, unterdenen z.B die System.IO variante, die ich heir nicht erklärt habe.

ich hofe ich konnte euch helfen, und auch manche Probleme lösen

MFG Jusikid