. NET Framework in Visual Basic include diversi modi per aprire e leggere un file su disco . La maggior parte utilizzare una qualche forma di classe StreamReader per convertire il file in un flusso sequenziale di caratteri o di linee . Ogni carattere o linea viene quindi letto in memoria e il programma elabora i dati dall'inizio alla fine . Quando l' ultimo carattere viene letto dal programma , l'indicatore EndOfStream è impostata su true . È possibile creare un breve programma che copia il file sorgente alla console mentre si guarda per la fine di indicatore di file. Istruzioni
1

Creare una nuova applicazione console Visual Basic . Aprire Visual Basic Express ( o Visual Studio ) . Fare clic su " File ", "Nuovo progetto ". Dalla vista ad albero , fare clic su Applicazione Windows in Visual Basic , scegliere l'icona di applicazione console quindi fare clic sul pulsante "OK" . Dopo una breve attesa , viene visualizzata una nuova finestra di codice
2

Aggiungere la seguente riga all'inizio del file prima della dichiarazione del modulo : .

Imports System.IO

Module Module1

Questo dice a Visual Basic che si prevede di utilizzare le classi all'interno dello spazio dei nomi System.IO .
3

dichiarare alcune variabili di memoria , all'inizio della la subroutine principale come segue :

Sub Main ( ) per

Dim fileName As String = " .. \\ .. \\ Module1.vb "

Dim rdr come StreamReader < br >

Dim txt As String

il nome del file variabile contiene il nome del file da leggere . I due doppi punti ( .. \\ ) indica che il file è di due cartelle su dalla directory corrente . Dal momento che il programma viene eseguito nella cartella bin rilascio \\ debug o bin \\ , abbiamo bisogno di muoversi su due cartelle per trovare il file di origine.

RDR variabile conterrà un'istanza della classe StreamReader nel System.IO pacchetto . Il StreamReader contiene tutti i metodi utilizzati per leggere il file .

La variabile txt sarà utilizzato per tenere ogni riga del file durante la copia .
4

Aprire il testo file utilizzando il seguente codice :

Prova

rdr = File.OpenText ( fileName ) per

Catch ex As Exception

Console.WriteLine ( "Impossibile aprire file " & ex.Message ) per

Torna

End Try

il metodo File.OpenText crea un'istanza di StreamReader puntato al file . Se il file non esiste , viene generata un'eccezione e un messaggio di errore viene scritto
5

Leggere il file e copiarlo nella console utilizzando il seguente codice : .

Mentre rdr . EndOfStream = False

txt = rdr.ReadLine

Console.WriteLine ( txt ) per

End While

Il circuito è abbastanza semplice . Prima dell'inizio del ciclo, il EndOfStream è falso ( a meno che il file è vuoto ) . Su ogni occorrenza del ciclo , una riga di testo viene letto nella variabile txt poi scritti nella console . Dopo l'ultima riga viene letta , l'indicatore EndOfStream viene impostata su true e il ciclo termina .
6

chiudere il file quando il ciclo viene completato.

Rdr.Close ( ) < br >

End Sub End Module

metodo Close del StreamReader rilascia il file , poi il programma termina .