IBM Lotus Symphony


Line Input #-setningen [kjøretid]

Leser strenger fra en sekvensiell fil til en variabel.

Syntaks:

Line Input #Filnummer som heltall, Var som streng

Parametere:

Filnummer: Nummeret til filen som inneholder dataene du vil lese. Filen må være åpnet på forhånd med Open-setningen med nøkkelordet INPUT.

var: Navnet på variabelen som lagrer resultatet.

Med Line Input#-setningen kan du lese strenger fra en åpen fil inn i en variabel. Strengvariabler leses linje for linje frem til første linjeskift (Asc=13) eller nye linje (Asc=10). Linjesluttmerker er ikke inkludert i resultatstrengen.

Eksempel:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "Dette er en linje med tekst"

Print #iNumber, "Dette er en annen linje med tekst"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker