En LotusScript, il est relativement facile d'effectuer la lecture d'un fichier texte séquentiel. Prenons pour acquis que le fichier «readtext.txt» est le contenu:

Un Deux Trois Quatre Cinq Six Sept Huit Neuf Dix Onze Douze Treize Quatorze Quinze Seize

Pour lire le fichier «readtext.txt» et afficher chacune de ses lignes avec un numéro en avant, il suffit d'écrire les instructions dans l'ordre et la ressemblant suivante:

Sub Main()      Dim Handle As Integer      Dim I As Long      Dim CurrLine As String      Handle = Freefile()      I = 1      Open "readtext.txt" For Input As Handle      Do While Not Eof(Handle)           Line Input #Handle, CurrLine           Print Str$(I) &":" &CurrLine           I = I + 1      Loop End Sub

on obtiendra le résultat suivant:

1:Un 2:Deux 3:Trois 4:Quatre 5:Cinq 6:Six 7:Sept 8:Huit 9:Neuf 10:Dix 11:Onze 12:Douze 13:Treize 14:Quatorze 15:Quinze 16:Seize