Get instrukzioa
Erregistroak fitxategi erlatibotik aldagaira edo byte-sekuentziak fitxategi bitarretik aldagaira irakurtzen ditu.
Ikus baita ere: PUT instrukzioa
Get [#]fitxategiZenbkia, [erregistroZenbakia|fitxategiPosizioa], aldagaia
fitxategiZenbakia: Fitxategi-zenbakia zehazten duen edozein zenbaki osoko adierazpen.
erregistroZenbakia: Ausazko moduan irekitako fitxategien kasuan, erregistroZenbakia irakurri nahi den erregistroaren zenbakia da.
Modu bitarrean irekitako fitxategien kasuan, fitxategiPosizioa fitxategiaren irakurketa hasten den byte posizioa da.
erregistroZenbakia eta fitxategiPosizioa ematen ez badira, fitxategiko uneko datu-erregistroko uneko posizioa erabiliko da.
aldagaia: Irakurriko den aldagaiaren izena. Edozein aldagai mota erabili daiteke, objektu-aldagaiak salbu.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Aldagaia izan behar du
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Hasierako kokagunea
Put #iNumber, , "Hau lehen testu-lerroa da" ' Bete lerroa testuarekin
Put #iNumber, , "Hau bigarren testu-lerroa da"
Put #iNumber, , "Hau hirugarren testu-lerroa da"
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, , "Hau testu berria da"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Hau 20. erregistroko testua da"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Variant motakoa izan behar du
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Kokatu hasieran
Put #iNumber, , "Hau lehen testu-lerroa da" ' Bete lerroa testuarekin
Put #iNumber, , "Hau bigarren testu-lerroa da"
Put #iNumber, , "hau hirugarren testu-lerroa da"
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,,"Hau testu berria da"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "Hau 20. erregistroko testua da"
Print Lof(#iNumber)
Close #iNumber
End Sub