IBM Lotus Symphony


Stavek Line Input # [izvajalno okolje]

Prebere nize iz zaporedne datoteke v spremenljivko.

Skladnja:

Line Input #FileNumber As Integer, Var As String

Parametri:

FileNumber: Številka datoteke, ki vsebuje podatke, ki jih želite prebrati. Datoteka mora biti predhodno odprta s stavkom Open s ključno besedo INPUT.

var: Ime spremenljivke, ki shrani rezultat.

S stavkom Line Input# lahko berete nize iz odprte datoteke v spremenljivko. Nizovne spremenljivke se berejo po vrsticah do prvega znaka za pomik na začetek vrstice (Asc=13) ali pomika v novo vrstico (Asc=10). Oznake za konec vrstice niso vključene v nastali niz.

Primer:

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, "This is a line of text"

Print #iNumber, "This is another line of text"

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


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke