At læse fra en fil

Jeg læser ofte hele indholdet af en text fil ind i en variabel og derefter manipulerer denne. Dette gør jeg på følgende måde:

Dim session As New NotesSession
Dim stmFile As NotesStream
Dim strBuffer$
Set stmFile = Session.CreateStream 'Opretter en Byte Stream (max. 2Gb i størrelse)
   
stmFile.Open("c:\input.txt") ' Åbner en fil ind i streamen
strBuffer$ = stmFile.ReadText() ' Læser indholdet ind i variablen
stmFile.Close ' Lukker strømmen

Bemærk at mængden af data der kan være i variablen, er begrænset af hukommelsen på computeren. Dog kan NotesStream max. indeholde 2 Gb!

Hvis du ønsker at læse en linie ad gangen kan du gøre det på følgende måde:

Dim intFreeFile as Integer
Dim strLine as String
intFreeFile = Freefile()
Open "c:\input.txt" For Input As intFreeFile
Do While Not Eof(intFreeFile)
        Line Input #intFreeFile,strLine
        'Her kan du gøre ved strLine som du vil!
Loop

Mvh
HanZi