Edukiak

# Get instrukzioa

Erregistroak fitxategi erlatibotik aldagaira edo byte-sekuentziak fitxategi bitarretik aldagaira irakurtzen ditu.

Ikus baita ere: PUT instrukzioa

### Sintaxia:

    Get [#]fitxategiZenbkia, [erregistroZenbakia|fitxategiPosizioa], aldagaia

### Parametroak:

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.

### Adibidea:

      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

Erlazionatutako gaiak

Open instrukzioa

Put# instrukzioa

Close instrukzioa