Lettura di files ad accesso sequenziale con InputString.

Adesso vediamo gli altri metodi di lettura di un file aperto per accesso sequenziale.
Sono InputString e Input.

Proviamo con InputString, che consente di leggere,a quanto ho capito, una stringa di lunghezza voluta.

Module Module1

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

        Do Until EOF(1)
            stringa = InputString(1, 15)
            Console.WriteLine(stringa)
            Console.ReadKey()
        Loop
        
        FileClose(1)
    End Sub
End Module

Ed ecco:

Nel mezzo del c

Una stringa di 15 caratteri (inclusi gli spazi, ovviamente).

Ma se io ripeto più volte la pressione del tasto, ecco cosa ottengo:

Nel mezzo del c
ammin di nostra
 vita
mi ritro
vai per una sel
va oscura
che
la diritta via
era smarrita.

Perchè???

Analizziamo:

 vita
mi ritro

Contando i caratteri di questa stringa, oltre a tener conto della spaziatura devo tener conto anche del carattere di fine riga, che viene contato nella lunghezza della stringa, e fa effetto nella presentazione a video dei risultati. Contando in totale 11 caratteri letterali, 3 spazi e 1 cambio riga, ottengo il totale atteso di 15.