IBM Lotus Symphony
|
Lukee muuttujaan suhteellisen tiedoston tietueen tai binaaritiedoston sisältämän tavusarjan.
Katso myös: PUT-lause
Get [#] FileNumber As Integer, [Position], Variable
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.
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