IBM Lotus Symphony
|
Prebere podatke iz odprte zaporedne datoteke.
Input #FileNumber As Integer; var1[, var2[, var3[,...]]]
FileNumber: Številka datoteke, ki vsebuje podatke, ki jih želite prebrati. Datoteka mora biti odprta s stavkom Open s ključno besedo INPUT.
var: Številska ali nizovna spremenljivka, kateri dodelite vrednosti, prebrane iz odprte datoteke.
Stavek Input# prebere številske vrednosti ali nize iz odprte datoteke ter dodeli podatke eni ali več spremenljivkam. Številska spremenljivka se prebere do prvega znaka za pomik na začetek vrstice (Asc=13), pomika v novo vrstico (Asc=10), presledka ali vejice. Nizovne spremenljivke se preberejo do prvega znaka za pomik na začetek vrstice (Asc=13), pomika v novo vrstico (Asc=10) ali vejice.
Podatki in vrste podatkov v odprti datoteki se morajo pojaviti v istem vrstnem redu kot spremenljivke, ki so posredovane v parametru "var". Če številski spremenljivki dodelite neštevilske vrednosti, se spremenljivki "var" dodeli vrednost "0".
Zapisov, ki so ločeni z vejicami, ni mogoče dodeliti nizovni spremenljivki. Narekovaji (") v datoteki se prav tako prezrejo. Če želite brati te zanke iz datoteke, uporabite stavek Line Input# za branje datotek s čistim besedilom (datoteke, ki vsebujejo samo natisljive znake) vrstico za vrstico.
Če je konec datoteke dosežen med branjem podatkovnega elementa, pride do napake, proces pa se prekini.
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