Come rilevare la fine di un file in Visual Basic

November 9

Il framework .NET all'interno di Visual Basic include diversi modi per aprire e leggere un file su disco. La maggior parte utilizza una qualche forma di classe StreamReader per convertire il file in un flusso sequenziale di caratteri o 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 costruire un breve programma che copia il file sorgente alla console mentre si guarda per la fine di indicatore di file.

istruzione

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, scegliere Applicazione Windows in Visual Basic, scegliere l'icona di applicazione console quindi fare clic sul pulsante "OK". Dopo una breve attesa, apparirà una nuova finestra del codice.

2 Aggiungere la seguente riga alla parte superiore del file prima della dichiarazione del modulo:

Imports System.IO

Module Module1

Questo dice a Visual Basic che si prevede di utilizzare le classi nello spazio dei nomi System.IO.

3 Dichiarare alcune variabili di memoria all'inizio della subroutine Main, come segue:

Sub Main ()

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

rdr fioco come StreamReader

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 dalla directory corrente. Dal momento che il programma viene eseguito nella cartella di rilascio bin \ debug o bin \, abbiamo bisogno di muoversi su due cartelle per trovare il file di origine.

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

Il txt variabile sarà utilizzato per contenere ogni riga del file come si è copiato.

4 Aprire il file di testo utilizzando il seguente codice:

Provare

rdr = File.OpenText(fileName)

Fermo ex come eccezione

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

Ritorno

End Try

Il metodo File.OpenText crea un'istanza della StreamReader indicò il file. Se il file non esiste, viene generata un'eccezione e un messaggio di errore viene scritto.

5 Leggere il file e copiarlo alla console utilizzando il seguente codice:

Mentre rdr.EndOfStream = false

txt = rdr.ReadLine

Console.WriteLine (txt)

End While

Il ciclo è abbastanza semplice. Prima che il ciclo si avvia, il EndOfStream è falso (a meno che il file è vuoto). Su ogni occorrenza del ciclo, una riga di testo viene letto nella txt variabile quindi 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 ()

End Sub

Modulo fine

Chiudere il metodo del StreamReader rilascia il file, quindi il programma termina.

Consigli e avvertenze

  • Chiudere sempre la corrente dopo l'ultima lettura.