IBM Lotus Symphony


Sætningen Line Input # [Runtime]

Læser strenge fra en sekventiel fil ind i en variabel.

Syntaks:

Line Input #Filnummer As Integer, var As String

Parametre:

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.

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker