Accesso sequenziale a un file: lettura di linee.

Bene.
Non avendo salvato, riscrivo di nuovo il codice (stavolta su un progetto tipo Console)

Module Module1

    Sub Main()

        FileOpen(1, "C:\Users\Antonello\AltroFile2", OpenMode.Output)
        FileClose(1)
        Console.ReadKey()
    End Sub

End Module

Fatto questo, esercitiamoci a leggere e scrivere su un file aperto per accesso sequenziale.

Mi sono creato un file con i primi versi della Divina Commedia, come materiale per l'esercizio.

Nel mezzo del cammin di nostra vita
mi ritrovai per una selva oscura
che la diritta via era smarrita.

Ahi quanto a dir qual era è cosa dura
esta selva selvaggia e aspra e forte
che nel pensier rinova la paura!

E vediamo:

Module Module1

    Sub Main()
        Dim linea As String
        FileOpen(1, "C:\Users\Antonello\AltroFile2", OpenMode.Input)

        Do Until EOF(1)
            linea = LineInput(1)
            Console.WriteLine(linea)
            Console.ReadKey()
        Loop
        
        FileClose(1)
    End Sub
End Module

Ecco! Così facendo ottengo uno per volta i versi, ognuno dei quali sta su una linea, ogni volta che schiaccio un tasto.

Nel mezzo del cammin di nostra vita
mi ritrovai per una selva oscura
che la diritta via era smarrita.

Ahi quanto a dir qual era è cosa dura

ottenendo le linee in sequenza, da zero fino a quando finisce il file (EOF).