. NET Framework i Visual Basic innehåller flera sätt att öppna och läsa en fil på datorn . De flesta använder någon form av StreamReader klass att konvertera filen till en sekventiell ström av tecken eller linjer . Varje tecken eller en rad läses sedan in i minnet och programmet behandlar datan från början till slut . När sista tecknet blir läst av programmet , är det EndOfStream indikatorn satt till true . Du kan bygga ett kort program som kopierar källfilen till konsolen medan du tittar på slutet av filen indikator . Instruktioner
1
Skapa ett nytt Visual Basic konsol ansökan . Öppna Visual Basic Express ( eller Visual Studio ) . Klicka på " File ", " Nytt projekt . " Från trädvyn klickar Windows Application under Visual Basic väljer du ikonen Console Application och klicka sedan på " OK " -knappen . Efter en kort väntetid , kommer en ny kod fönster visas
2
Lägg till följande rad i början av filen innan modulen förklaring : .
Import System.IO
modul Modul1
Detta talar Visual Basic som du planerar att använda klasser inom namnrymden System.IO .
3
Deklarera några minnesvariabler i början av Main subrutinen enligt följande :
Sub Main ( ) katalog
Dim filnamn As String = " .. \\ .. \\ module1.vb "
Dim rdr som StreamReader
Dim txt As String
variabeln filnamn innehåller namnet på den fil som ska läsas . De två dubbla - perioder ( .. \\ ) indikerar att filen är två mappar upp från den aktuella katalogen . Eftersom programmet körs i bin \\ debug eller bin \\ frisättning mapp , måste vi flytta upp två mappar för att hitta källfilen .
Rörliga rdr kommer att hålla en instans av StreamReader klassen i System.IO paket. Den streamReader innehåller alla de metoder som används för att läsa filen .
Variabeln txt kommer att användas för att hålla varje rad i filen som den är kopierad .
4
Öppna text fil med följande kod :
Prova
RDR = File.OpenText (filename ) katalog
Catch ex Som Exception
Console.WriteLine ( " Kan inte öppna file " & ex.Message ) katalog
Return
End Försök
metoden File.OpenText skapar en instans av StreamReader pekade på filen . Om filen inte finns , är ett undantag och ett felmeddelande som skrivs
5
Läs filen och kopiera den till konsolen med hjälp av följande kod : .
Rdr . EndOfStream = False
txt = rdr.ReadLine
Console.WriteLine ( txt ) katalog
Slut Medan
slingan är ganska enkel . Innan slingan startar , är EndOfStream falskt ( om inte filen är tom ) . På varje förekomst av slingan , är en textrad läses in variabeln txt skrivs sedan till konsolen . Efter den sista raden är läst , blir EndOfStream indikatorn inställd på true och slingan avslutas .
6
Stäng filen när slingan är klar .
Rdr.Close ( )
End Sub
ändmodul
StreamReader s Close metod släpper filen , då programmet avslutas .
