IBM Lotus Symphony
|
Prebere nize iz zaporedne datoteke v spremenljivko.
Line Input #FileNumber As Integer, Var As String
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.
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