. NET Framework inde Visual Basic indeholder flere måder at åbne og læse en disk fil. De fleste bruge nogle form af StreamReader klasse til at konvertere filen til en sekventiel strøm af tegn eller linjer . Hver karakter eller linje læses derefter ind i hukommelsen og programmet behandler dataene fra start til slut . Når det sidste tegn bliver læst af programmet , er EndOfStream indikator sat til true . Du kan bygge et kort program , der kopierer kildefilen til konsollen , mens du ser til slutningen af ​​filen indikator. Instruktioner
1

Opret en ny Visual Basic konsol applikation. Open Visual Basic Express ( eller Visual Studio ) . Klik på " File ", " Nyt projekt ". Fra trævisningen klikke på Windows Application under Visual Basic , vælg Console Application ikonet og klik på " OK" knappen. Efter en kort ventetid , vil en ny kode vindue
2

Tilføj følgende linje til toppen af ​​filen, før modulet erklæring: .

Import System.IO

Modul Module1

Dette fortæller Visual Basic , som du planlægger at bruge klasser i namespace System.IO .
3

Erklær nogle hukommelsesvariable i begyndelsen af Main subrutine som følger : Hej

Sub Main ( )

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

Dim RDR som StreamReader < br >

Dim txt As String

variable filnavn indeholder navnet på den fil, der skal læses. De to dobbelt- perioder (.. \\ ) angiver, at filen er to mapper op fra den aktuelle mappe . Da programmet kører i bin \\ debug eller bin \\ release mappe , er vi nødt til at gå op to mapper for at finde kildefilen.

Variable RDR vil afholde en instans af StreamReader klasse i System.IO pakke . Den StreamReader indeholder alle de metoder, der anvendes til at læse filen .

Variable txt vil blive brugt til at holde hver linje i filen som den er kopieret .
4

Åbn teksten fil ved hjælp af følgende kode : Hej

Prøv

RDR = File.OpenText ( filename)

Fang ex Som Exception

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

Return

End Prøv

metoden File.OpenText opretter en instans af StreamReader pegede på filen. Hvis filen ikke findes, er en undtagelse kastes , og en fejlmeddelelse bliver skrevet
5

Læs filen og kopiere det til konsollen ved hjælp af følgende kode : .

RDR . EndOfStream = False

txt = rdr.ReadLine

Console.WriteLine ( txt)

End Mens

løkken er forholdsvis ligetil . Før løkken starter, EndOfStream er falsk (medmindre filen er tom ) . På hver forekomst af løkken er en linje af tekst læst ind i variablen txt derefter skrevet til konsollen . Efter den sidste linje er læst , bliver EndOfStream indikator sat til true og sløjfen slutter.
6

Luk filen , når løkken er færdig .

Rdr.Close () < br >

End Sub

End Module

StreamReader s Close metode frigiver filen, så programmet slutter .