Visual Basic/Het lezen van bestanden

Het lezen van bestanden

In onderstaand voorbeeld gaan we de bestanden lezen en de voor- en achternamen aan elkaar koppelen.

Start Visual Studio en maak een console-toepassing met de naam console005. Breid de module als volgt uit:

Module module1
  Sub Main()
    Dim bestandsnummer 1, bestandsnummer2 As Integer
    Dim regel1, regel2 As String
    voornaam = FreeFile()
    achternaam = FreeFile()
    OpenFile(voornaam, "D:\console004a.txt", OpenMode.Input)
    OpenFile(achternaam, "D:\console0004b.txt", OpenMode.Input)
    Do While (Not Eof(voornaam)) And (Not Eof(achternaam))
      regel1 = LineInput(voornaam)
      regel2 = LineInput(achternaam)
      Console.WriteLine(regel1 & " " & regel2)
    Loop
    FileClose(voornaam)
    FileClose(achternaam)
    Console.ReadLine()
  End Sub
End Module

In de regel die begint met Do While wordt getest of van beide bestanden nog een regel gelezen kan worden. Dit wordt zo gedaan omdat in theorie het ene bestand korter kan zijn dan het andere. Als het ene bestand aan het einde is en het andere niet en je leest toch een nieuwe regel, geeft het programma een foutmelding en stopt de verwerking. En dat wil je natuurlijk niet.

De uitvoer van het programma is:

Jan Janssen
Piet Pietersen
Klaas Klassen