IBM Lotus Symphony
|
Načíta údaje z otvoreného sekvenčného súboru.
Input #FileNumber As Integer; var1[, var2[, var3[,...]]]
FileNumber: Číslo súboru, obsahujúceho údaje, ktoré chcete načítať. Tento súbor musí byť otvorený príkazom Open, používajúcim kľúčové slovo INPUT.
var: Číselná alebo reťazcová premenná, ku ktorej priradíte hodnoty, načítané z otvoreného súboru.
Príkaz Input# načíta číselné hodnoty alebo reťazce z otvoreného súboru a tieto údaje priradí k jedenej alebo viacerým premenným. Číselná premenná sa načítava až po prvý znak zalomenia riadka (Asc=13), posun riadka (Asc=10), medzeru alebo čiarku. Reťazcové premenné sa načítavajú až po prvý znak zalomenia riadka (Asc=13), posun riadka (Asc=10) alebo čiarku.
Údaje a typy údajov v otvorenom súbore sa musia zobraziť v rovnakom poradí ako premenné, odovzdané do parametra "var". Ak priradíte k číselnej premennej iné ako číselné hodnoty, parameter "var" bude mať priradenú hodnotu "0".
K reťazcovej premennej nemôžu byť priradené záznamy, oddelené čiarkami. Úvodzovky (") v súbore sú tiež ignorované. Ak chcete načítať tieto znaky zo súboru, použite príkaz Line Input# a načítajte čisté textové súbory (súbory, obsahujúce len tlačiteľné znaky) riadok po riadku.
Ak je koniec súboru dosiahnutý počas načítavania údajového prvku, nastane chyba a proces je prerušený.
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, "toto je riadok textu"
Print #iNumber, "Toto je iný riadok textu"
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