IBM Lotus Symphony
|
Lukee tietoja avatusta peräkkäistiedostosta.
Input #FileNumber As Integer; var1[, var2[, var3[,...]]]
FileNumber: Luettavat tiedot sisältävän tiedoston numero. Tiedosto on avattava käyttämällä Open-lausetta ja avainsanaa INPUT.
var: Numero- tai merkkijonomuuttuja, johon avatusta tiedostosta luetut arvot osoitetaan.
Input#-lause lukee numeroarvoja tai merkkijonoja avatusta tiedostosta ja osoittaa tiedot yhteen tai useaan muuttujaan. Järjestelmä lukee numeerisen muuttujan tiedot ensimmäiseen rivinvaihtoon (Asc=13), rivinsiirtoon (Asc=10), välilyöntiin tai pilkkuun asti. Järjestelmä lukee merkkijonomuuttujan tiedot ensimmäiseen rivinvaihtoon (Asc=13), rivinsiirtoon (Asc=10) tai pilkkuun asti.
Avatun tiedoston tietojen ja tietolajien on esiinnyttävä samassa järjestyksessä kuin var-parametrissa välitettävät muuttujat. Jos osoitat numeeriseen muuttujaan muita kuin numeroarvoja, järjestelmä osoittaa var-parametriin arvon 0.
Pilkuin erotettuja tietueita ei voi osoittaa merkkijonomuuttujaan. Järjestelmä ohittaa myös tiedoston sisältämät lainausmerkit ("). Jos haluat lukea kyseiset merkit tiedostosta, käytä tekstitiedostojen (pelkkiä tulostettavia merkkejä sisältävien tiedostojen) lukemiseen tarkoitettua Line Input# -lausetta rivi kerrallaan.
Jos järjestelmä tulee tiedoston loppuun tietoelementtiä luettaessa, ilmenee virhe ja käsittely keskeytyy.
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