PUT - mkilgore/QB64pe GitHub Wiki

The PUT # file or port statement writes data to a specific byte or record location.

PUT #filenumber&, [position][,]

• File/port number is the number used in the OPEN statement.
• The INTEGER or LONG file byte position in a BINARY file or the record position in a RANDOM file must be greater than zero.
• The file byte or record position can be omitted if the PUT or GET is consecutive or when creating new file data sequentially.
• The holding variable type determines byte size and the next byte position in the file when the position is ommitted.
• The first byte or record position is 1. This may require adding one to an offset value when documentation uses that position as 0.
• Both the file position and holding variable(and comma) can be omitted when using a FIELD definition.
• If a LEN = record length statement is omitted in an OPEN FOR RANDOM statement the record size defaults to 128 bytes!
• Warning: Not designating a PUT position can overwrite previous file data based on the current file position!
• When using a numeric holding variable, values do NOT require conversion using MKI$, MKL$, MKS$ or MKD$.
• QB64 can load array data directly(brackets required) to a BINARY file using one PUT to a BINARY file: PUT #1, , array()

INPUT "Enter a first name: ", Contact.first
INPUT "Enter a last name: ", Contact.last
INPUT "Enter an age: ", Contact.age

OPEN "Record.lst" FOR...NEXT RANDOM AS #1 LEN = LEN(Contact)
NumRecords% = LOF(1) \ LEN(Contact)
PRINT NumRecords%; "previous records"

PUT #1, NumRecords% + 1, Contact ' add a new record TYPE record value
CLOSE #1 '' ''

Note: The DOT record variable values were created or changed before the PUT. The record length is 32 bytes.

FOR...NEXT i = 1 TO 100
  array(i) = i
NEXT
showme  'display array contents

OPEN "BINFILE.BIN" FOR...NEXT BINARY AS #1

PUT #1, , array()

ERASE array 'clear element values from array and display empty
showme
CLOSE #1

OPEN "BINFILE.BIN" FOR...NEXT BINARY AS #2
GET #2, , array()
CLOSE #2
showme  'display array after transfer from file

END

SUB showme
FOR...NEXT i = 1 TO 100
  PRINT array(i);
NEXT
PRINT "done"
END SUB '' ''

Note: Use empty brackets in QB64 when using GET to create an array or PUT to create a BINARY data file.

See also:

• GET #
• SEEK, SEEK (statement)
• PRINT #
• FIELD
• PUT (graphics statement)
• PUT (TCP/IP statement)