LibreOffice 7.1 laguntza
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:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Hasierako kokagunea
Put #iNumber,, "Hau testuaren lehen lerroa da" ' Bete lerroa testuarekin
Put #iNumber,, "Hau testuaren bigarren lerroa da"
Put #iNumber,, "Hau testuaren hirugarren 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