. NET Framework in Visual Basic enthält mehrere Möglichkeiten zum Öffnen und Lesen einer Datei . Die meisten benutzen irgendeine Form der StreamReader-Klasse , um die Datei in einen sequentiellen Strom von Zeichen oder Zeilen zu konvertieren. Jedes Zeichen oder Zeile wird dann in den Speicher eingelesen und das Programm verarbeitet die Daten von Anfang bis Ende . Wenn das letzte Zeichen vom Programm gelesen wird , wird die Anzeige EndOfStream auf true gesetzt. Sie können ein kurzes Programm, das die Quelldatei an die Konsole kopiert , während Sie auf das Ende der Datei Indikator . Anleitung
1
Neues Visual Basic -Konsolenanwendung. Öffnen Sie Visual Basic Express ( oder Visual Studio) . Klicken Sie auf " Datei", " New Project". Von der Baumansicht auf Windows-Anwendung unter Visual Basic , wählen Sie das Symbol Konsolenanwendung klicken Sie dann auf die Schaltfläche "OK" . Nach einer kurzen Wartezeit , wird ein neuer Code-Fenster erscheinen
2
Fügen Sie die folgende Zeile am Anfang der Datei, bevor das Modul Erklärung : .
Imports System.IO
Module Module1
Damit Visual Basic , dass Sie Klassen im Namensraum System.IO verwenden möchten .
3
Declare ein paar Variablen Speicher zu Beginn des die Main-Unterroutine wie folgt:
Sub Main () Dim
Dateinamen als String = " .. \\ .. \\ Module1.vb "
Dim rdr wie StreamReader
Dim txt As String
die Variable filename enthält den Namen der Datei, die gelesen werden. Die beiden Doppel - Punkte (.. \\) bedeutet, dass die Datei zwei Ordner ist aus dem aktuellen Verzeichnis. Da das Programm läuft im bin \\ Debug oder Bin \\ Release Ordner , müssen wir nach oben zwei Ordner , um die Quelldatei zu finden.
Die Variable rdr wird eine Instanz der StreamReader-Klasse in der System.IO halten Paket . Der StreamReader enthält alle Methoden verwendet, um die Datei zu lesen.
Die Variable txt wird verwendet, um jede Zeile der Datei zu halten, wie sie kopiert werden.
4
Öffnen Sie den Text Datei mit dem folgenden Code:
Versuchen
rdr = File.OpenText (Dateiname)
Fang ex As Exception
Console.WriteLine (" kann nicht geöffnet werden Datei " & ex.Message )
Return
End Try
die Methode File.OpenText erstellt eine Instanz der StreamReader wies auf die Datei. Wenn die Datei nicht existiert, wird eine Ausnahme ausgelöst und eine Fehlermeldung wird geschrieben
5
Lesen Sie die Datei und kopieren Sie es auf der Konsole mit dem folgenden Code : .
Während rdr . EndOfStream = False
txt = rdr.ReadLine
Console.WriteLine (txt)
End While
Die Schleife ist recht unkompliziert . Bevor die Schleife beginnt , ist die EndOfStream falsch ( es sei denn, die Datei leer ist ) . Auf jedes Auftreten der Schleife wird eine Textzeile in die Variable txt dann in die Konsole geschrieben zu lesen. Nachdem die letzte Zeile gelesen wird , wird der Indikator EndOfStream auf true gesetzt und die Schleife endet .
6
Schließen Sie die Datei , wenn die Schleife beendet .
Rdr.Close () < br >
End Sub End Module
die StreamReader Close-Methode gibt die Datei, dann endet das Programm .
