Edukiak

# Put# instrukzioa

Erregistroak fitxategi erlatiboetan edo byten sekuentziak fitxategi bitarretan idazten ditu.

Erabili Print# instrukzioa datuak testu-fitxategi sekuentzial batean inprimatzeko. Erabili Write# instrukzioa datuak karaktere mugatzaileak dituen testu-fitxategi sekuentzial batean idazteko.

### Sintaxia:

    Jarri [#]fileNum, [recordNum|filePos], aldagaia

### Parametroak:

fileNum: Idatzi nahi den fitxategia zehazten duen osoko adierazpen oro.

recordNum, filePos: Fitxategi erlatiboen kasuan (ausazko atzipen-fitxategiak), idatzi nahi den erregistroaren zenbakia.

Fitxategi bitarren kasuan (atzipen bitarra), fitxategian idazten hasi nahi duzun bytearen kokagunea.

variable: Fitxategian idatziko den aldagaiaren izena.

Fitxategi erlatiboei buruzko oharra: aldagaiaren edukia bat ez badator Open instrukzioko Len klausulan zehaztutako erregistroaren luzerarekin, azkena idatzi den erregistroaren eta hurrengo erregistroaren arteko zuriunea idazten ari zaren fitxategiko datuekin beteko da.

Fitxategi bitarrei buruzko oharra: aldagaien edukia zehaztutako kokagunean idazten da eta fitxategi-erakuslea zuzenean azken bytearen ondoren txertatzen da. Erregistroen artean ez da tarterik uzten.

### 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

Close instrukzioa

Get instrukzioa

Open instrukzioa

Emaguzu laguntza!