IBM Lotus Symphony


Get-lause [käytönaikainen]

Lukee muuttujaan suhteellisen tiedoston tietueen tai binaaritiedoston sisältämän tavusarjan.

Katso myös: PUT-lause

Syntaksi:

Get [#] FileNumber As Integer, [Position], Variable

Parametrit:

FileNumber: Mikä tahansa tiedoston numeron määrittävä kokonaislukulauseke.

Position: Jos tiedosto on avattu Random-tilassa, Position on luettavan tietueen numero.

Jos tiedosto on avattu Binary-tilassa, Position on tiedoston tavupaikka, josta lukeminen aloitetaan.

Jos Position jätetään pois, järjestelmä käyttää tiedoston nykyistä paikkaa tai datatietuetta.

Variable: Luettavan muuttujan nimi. Sallittuja muuttujalajeja ovat kaikki muuttujalajit objektimuuttujia lukuun ottamatta.

Esimerkki:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Tähän on määritettävä muunnos

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Paikka alussa

Put #iNumber,, "Tämä on ensimmäinen tekstirivi" REM Täyttää rivin tekstillä

Put #iNumber,, "Tämä on toinen tekstirivi"

Put #iNumber,, "Tämä on kolmas tekstirivi"

Seek #iNumber,2

Get #iNumber,,sText

Print sText

Close #iNumber

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Get #iNumber,2,sText

Put #iNumber,,"Tämä on uutta tekstiä"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"Tämä on tietueen 20 teksti"

Print Lof(#iNumber)

Close #iNumber

end sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit