Put# sakinys
Rašo įrašą į santykinį failą arba baitų seką į dvejetainį failą.
Naudokite Print# sakinį duomenims spausdinti į nuoseklųjį tekstinį failą. Naudokite Write# sakinį duomenims rašyti į nuoseklųjį tekstinį failą su skiriamaisiais simboliais.
Put [#]fileNum, [recordNum|filePos], kintamasis
fileNum: Bet kuri sveikojo skaičiaus išraiška, apibrėžianti failą, į kurį norite rašyti.
recordNum, filePos: santykinių failų (atsitiktinės prieigos) atveju – įrašo, kurį norite parašyti, numeris.
Dvejetainiams failams (dvejetainė prieiga) nurodoma failo baito vieta, kurioje norima pradėti rašyti.
variable: Kintamojo, kurį norite įrašyti į failą, vardas.
Pastaba santykinių failų atveju: Jei šio kintamojo turinys neatitinka įrašo ilgio, nurodyto Atverti sakinio Ilgis sąlygoje, tai tarpas tarp pabaigos naujai užrašyto įrašo ir kito įrašas yra užpildomas esamais failo, į kurį rašote, duomenimis.
Pastaba dvejetainių failų atveju: Kintamųjų turinys įrašomas į nurodytą vietą, o failo žymeklis įterpiamas iškart po paskutiniojo baito. Tarp įrašų nelieka vietos.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Turi būti variantas
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Pozicionuojama pradžioje
Put #iNumber, , "This is the first line of text" ' Fill line with text
Put #iNumber, , "This is the second line of text"
Put #iNumber, , "This is the third line of text"
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, , "This is a new text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Must be a variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Position at beginning
Put #iNumber, , "This is the first line of text" ' Fill line with text
Put #iNumber, , "This is the second line of text"
Put #iNumber, , "This is the third line of text"
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, , "This is a new text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iNumber, 20, "This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
