IBM Lotus Symphony
|
Læser strenge fra en sekventiel fil ind i en variabel.
Line Input #Filnummer As Integer, var As String
Filnummer: Nummeret på den fil, som indeholder de data, du vil læse. Filen skal være åbnet i forvejen med sætningen Open med nøgleordet INPUT.
var: Navnet på den variabel, hvor resultatet gemmes.
Sætningen Line Input# kan bruges til at læse strenge fra en åben fil ind i en variabel. Strengvariabler læses linje for linje indtil det første vognreturtegn (Asc=13) eller linjeskifttegn (Asc=10). Linjesluttegn medtages ikke i resultatstrengen.
Sub ArbejdMedEnFilEksempel
Dim iNummer As Integer
Dim sLinje As String
Dim aFil As String
Dim sMeddl as String
aFil = "c:\data.txt"
iNummer = Freefile
Open aFil For Output As #iNummer
Print #iNummer, "Dette er en tekstlinje"
Print #iNummer, "Dette er en anden tekstlinje"
Close #iNummer
iNummer = Freefile
Open aFil For Input As iNummer
While not eof(iNummer)
Line Input #iNummer, sLinje
If sLinje <>"" then
sMeddl = sMeddl & sLinje & chr(13)
End If
wend
Close #iNummer
Msgbox sMeddl
End Sub