IBM Lotus Symphony


Input#-lause [käytönaikainen]

Lukee tietoja avatusta peräkkäistiedostosta.

Syntaksi:

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

Parametrit:

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.

Esimerkki:

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


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit