IBM Lotus Symphony


Stavek Input# [izvajalno okolje]

Prebere podatke iz odprte zaporedne datoteke.

Skladnja:

Input #FileNumber As Integer; var1[, var2[, var3[,...]]]

Parametri:

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.

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