Ukaz Put#

Zapiše zapis v relativno datoteko ali pa zaporedje bajtov v binarno datoteko.

Uporabite ukaz Print# za izpis podatkov v sekvenčno besedilno datoteko. Uporabite ukaz Write# za zapisovanje podatkov v sekvenčno besedilno datoteko z ločilnimi znaki.

Put [#]štDatoteke, [štZapisa|položajDatoteka], Spremenljivka

štDatoteke: poljuben celoštevilski izraz vrste Integer, ki definira datoteko, v katero želite pisati.

štZapisa, položajDatoteka: za relativne datoteke (to je datoteke z naključnim dostopom) je to številka zapisa, ki ga želite zapisati.

Za binarne datoteke (binarni dostop) je to položaj bajta v datoteki, kjer želite začeti s pisanjem.

Spremenljivka: ime spremenljivke, ki jo želite zapisati v datoteko.

Opomba glede relativnih datotek: Če dolžina te spremenljivke ne odgovarja dolžini zapisa, ki je navedena v izrazu Len stavka Open, se prostor med koncem novega zapisa in začetkom naslednjega zapisa zapolni s podatki, ki se v datoteki, na katero pišete, že nahajajo.

Opomba glede binarnih datotek: Vsebina spremenljivk se piše na navedeno mesto in kazalka datoteke se prestavi neposredno za zadnji zapisani bajt. Med zapisi ni praznih mest.

  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sBesedilo As Variant ' mora biti Variant
      Dim aFile As String
      aFile = "C:\Users\ThisUser\data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Seek #iStevilka,1 ' Postavi se na začetek datoteke
      Put #iStevilka, , "To je prva vrstica besedila" ' napolni vrsto z besedilom
      Put #iStevilka, , "To je druga vrstica z besedilom"
      Put #iStevilka, , "To je tretja vrstica z besedilom"
      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 #iStevilka, , "To je novo besedilo"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Put #iStevilka, 20, "To je besedilo v zapisu 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub
  

  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sBesedilo As Variant ' mora biti Variant
      Dim aFile As String
      aFile = "~/data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Seek #iStevilka,1 ' Postavi se na začetek datoteke
      Put #iStevilka, , "To je prva vrstica besedila" ' napolni vrsto z besedilom
      Put #iStevilka, , "To je druga vrstica z besedilom"
      Put #iStevilka, , "To je tretja vrstica z besedilom"
      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 #iStevilka, , "To je novo besedilo"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Put #iStevilka, 20, "To je besedilo v zapisu 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub