Instructie Put#
Schrijft een record naar een relationeel bestand of een reeks van bytes naar een binair bestand.
Gebruik de instructie Print# om gegevens in een sequentieel tekstbestand toe te voegen. Gebruik de instructie Write# om gegevens met scheidingstekens in een sequentieel tekstbestand toe te voegen.

Put [#]fileNum, [recordNum|filePos], variabele
fileNum: Een getal dat aangeeft in welk bestand u wilt schrijven.
recordNum, filePos: Bij relatieve bestanden (random toegang), het recordnummer dat u wilt schrijven.
Voor binaire bestanden (Binary-toegang) de bytepositie in het bestand waarop moet worden begonnen met schrijven.
variabele: Naam van de variabele die u naar het bestand wilt schrijven.
Opmerking voor relationele bestanden: Als de inhoud van deze variabele niet overeenstemt met de lengte van een record zoals die gespecificeerd is in de Len-variable van de Open-insstructie, wordt de ruimte vanaf het einde van de nieuw geschreven gegevens tot de volgende record gevuld met de bestaande gegevens in het bestand.
Attentie voor binaire bestanden: De inhoud van de variabelen wordt geschreven naar de gespecificeerde positie en de bestandaanwijzer wordt direct na de laatste byte ingesteld, zonder enige ruimte tussen de records.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sTekst As Variant ' Moet een variant zijn
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Zoek #iGetal,1 REM Positie bij het begin
Put #iGetal,, "Dit is de eerste tekstregel" ' Vul de regel met tekst
Put #iGetal,, "Dit is de tweede tekstregel"
Put #iGetal,, "Dit is de derde tekstregel"
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 #iGetal,, "Dit is een nieuwe tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iGetal, 20, "Dit is de tekst in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Moet een variant zijn
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iGetal,1 ' Beginpositie voor het zoeken
Put #iGetal, "Dit is de eerste tekstregel" 'Vul de regel met tekst
Put #iGetal,, "Dit is de tweede tekstregel"
Put #iGetal,, "Dit is de derde tekstregel"
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 #iGetal,, "Dit is een nieuwe tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iGetal, 20, "Dit is de tekst in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub