. The Net rammeverket inne Visual Basic inneholder flere måter å åpne og lese en fil på harddisken. De fleste bruker noen form for StreamReader klasse å konvertere filen til en sekvensiell strøm av tegn eller linjer . Hvert tegn eller linje blir deretter lest inn i minnet og programmet behandler dataene fra start til slutt. Når det siste tegnet blir lest av programmet, er det EndOfStream indikatoren satt til true . Du kan bygge et kort program som kopierer kildefilen til konsollen mens du ser på slutten av filen indikator . Instruksjoner
en

Opprett en ny Visual Basic konsoll applikasjon . Åpen Visual Basic Express (eller Visual studio) . Klikk på "File ", "New Project ". Fra treet , klikker du Windows Application henhold til Visual Basic, velger Console Application ikonet og klikk på "OK "-knappen . Etter en kort ventetid, vil en ny kode vindu vises
2

Legg til følgende linje til toppen av filen før modulen erklæring: .

Importen System.IO

Module Module1
p Dette forteller Visual Basic som du planlegger å bruke klasser innenfor navnerommet System.IO .
3

Erklærer noen minnevariabler i begynnelsen av Main subrutine som følger : en

Sub Main ( )

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

Dim rdr som StreamReader

Dim txt As String

variable filnavnet inneholder navnet på filen som skal leses . De to doble -perioder (.. \\) angir at filen er to mapper opp fra gjeldende katalog. Siden programmet kjører i bin \\ debug eller bin \\ utgivelsen mappen , må vi flytte opp to mapper for å finne kildefilen .

Variable rdr vil holde en forekomst av StreamReader klasse i System.IO pakke . Den streamReader inneholder alle de metodene som brukes for å lese filen .

Variable txt vil bli brukt til å holde hver linje av filen som den er kopiert.
4

Åpne teksten filen ved hjelp av følgende kode :

Prøv

rdr = File.OpenText (filnavn )

Catch ex As Exception

Console.WriteLine ( "Kan ikke åpne file "& ex.Message )

Return

End Prøv

metoden File.OpenText oppretter en forekomst av StreamReader pekte på filen. Hvis filen ikke eksisterer , er et unntak kastes og en feilmelding blir skrevet
5

Les filen og kopier den til konsollen ved hjelp av følgende kode : .

Mens rdr . EndOfStream = False

txt = rdr.ReadLine

Console.WriteLine ( txt )

End Mens

sløyfen er ganske grei. Før løkken starter , er EndOfStream falsk (med mindre filen er tom) . På hver forekomst av loopen , er en tekstlinje leses inn i variabelen txt deretter skrevet til konsollen . Etter den siste linjen er lest , får EndOfStream indikator satt til true og løkken slutter.
6

Lukk filen når loopen er fullført.

Rdr.Close ( )

End Sub

End Module

StreamReader Close metode frigir filen , så programmet avsluttes.