De . Net framework in Visual Basic bevat verschillende manieren om te openen en te lezen van een bestand op schijf . De meeste gebruiken een of andere vorm van StreamReader klasse om het bestand om te zetten in een opeenvolgende stroom van tekens of lijnen . Elk teken of lijntje wordt vervolgens in het geheugen gelezen en het programma verwerkt de gegevens van begin tot eind . Wanneer het laatste teken wordt gelezen door het programma , is het EndOfStream indicator ingesteld op true . U kunt een kort programma dat het bronbestand gekopieerd naar de console tijdens het kijken naar het einde van het bestand indicator bouwen . Instructies
1 Maak een nieuwe Visual Basic console applicatie . Open Visual Basic Express ( of Visual Studio ) . Klik op " File ", " New Project . " Vanuit de boomstructuur , klik op Windows Application onder Visual Basic , kiest u op het pictogram Toepassing Console en klik op de knop "OK " . Na een korte wachttijd , zal een nieuw venster verschijnen code kopen van 2 Voeg de volgende regel toe aan de top van het bestand voordat de module verklaring : . Imports
System.IO
Module Module1
Dit vertelt Visual Basic dat je van plan bent om lessen te gebruiken binnen de namespace System.IO .
3 Verklaar een paar geheugen variabelen aan het begin van de Main subroutine als volgt : Sub Main
( ) Dim fileName
As String = " .. \\ .. \\ Module1.vb " Dim rdr
zoals StreamReader < br > Dim txt As String
de variabele bestandsnaam bevat de naam van het bestand dat moet worden gelezen . De twee dubbele punten ( .. \\ ) geeft aan dat het bestand is twee mappen uit de huidige map . Omdat het programma draait in de bin \\ debug of bin map \\ release, moeten we overgaan tot twee mappen naar het bronbestand te vinden .
De variabele rdr zal een instantie van de klasse StreamReader houden in de System.IO pakket . De StreamReader bevat alle van de methoden die worden gebruikt om het bestand te lezen .
De variabele txt zal worden gebruikt om elke regel van het bestand te houden als het wordt gekopieerd .
4 Open de tekst bestand met de volgende code :
Try rdr = File.OpenText ( fileName ) Catch ex
als Uitzondering Console.WriteLine
( " Kan niet openen bestand " & ex.Message ) Terug Einde
Try de methode File.OpenText maakt een instantie van de StreamReader wees naar het bestand . Als het bestand niet bestaat , wordt een uitzondering gegenereerd en een foutbericht wordt geschreven
5 Lees het bestand en kopieer deze naar de console met behulp van de volgende code : .
Terwijl rdr . EndOfStream = False
txt = rdr.ReadLine Console.WriteLine
( txt ) Einde
Terwijl
De lus is vrij eenvoudig . Voordat de lus begint , de EndOfStream vals is ( tenzij het bestand is leeg) . Op elk exemplaar van de lus , is een regel tekst te lezen in de variabele txt vervolgens naar de console geschreven. Na de laatste regel is gelezen , wordt de EndOfStream indicator ingesteld op true en eindigt de lus .
6 Sluit het bestand wanneer de lus is voltooid . Rdr.Close ( ) op < br > End Sub End Module
methode Close The StreamReader 's releases het bestand , dan is het programma afgelopen .
|
