OPEN - QB64 Wiki

OPEN

From QB64 Wiki

Jump to: navigation, search

The OPEN statement is used to open a file or COM serial communications port.


Qbasic: Syntax:

OPEN FileName$ [FOR mode] [{ACCESS|{LOCK|SHARED}} [{READ|WRITE}] AS [#]FileNumber& [LEN = recordLEN]


Parameters:

  • FileName$ is a STRING variable or literal file name in quotes.
  • FOR mode can be: INPUT (read), OUTPUT (write new), APPEND (write to end), BINARY (read/write), RANDOM (read/write).
  • File number can be any positive INTEGER or LONG whole number value or an unused value determined by the FREEFILE function.
  • LEN = is optional to denote RANDOM record length. LEN = statement is ignored in BINARY mode.


Description:

  • QB64 can open as many files as your computer memory can handle. Qbasic could only open about 15 at a time.
  • QB64 will allocate 4 bytes of memory for every possible file number up to the highest number used in a program.
  • The mode defaults to RANDOM if the mode or FOR access statement is omitted. (see open modes described below)
  • Only the filename, file number and LEN = record length values can use variable values in the Qbasic OPEN syntax.
  • If LEN = is ommitted, sequential file record sizes default to 512 and RANDOM to 128 bytes in Qbasic.
  • QB64 filenames can be up to 255(Windows) characters with no limit on file name extension length.
  • Once a file or port is opened, it can be used in any program procedure using the assigned file number.
  • Devices such as "KYBD:", "SCRN:", "CONS:" and "LPTn:" are currently NOT supported in QB64!.
Note: OPEN LPTn is not supported by QB64, but may be supported directly by your operating system.
  • OPEN COM can also be used for serial port access in QB64.


Errors:

  • Illegal Qbasic filename characters are " * / \ + | ? [ ] , ; : < > and more than one dot(period).
  • Illegal QB64 filename characters are " * / \ | ? : < > . Multiple dots(periods) are allowed, but only the first one will be used.
  • Qbasic filenames must not exceed 12 characters(including dot) with a maximum of 3 file type extension characters using the DOS 8.3 naming convention limits.
  • Possible OPEN errors include "Bad file name or number", "Bad File Mode", "File Not Found" or "Path Not Found".


File ACCESS and LOCK Permissions
  • ACCESS clause limits file access to READ, WRITE or READ WRITE on a network ONLY with DOS 3.1 or greater.
  • LOCK clause can specify SHARED or a LOCK READ or LOCK WRITE file lock in an OPEN statement working on a network.
  • A separate LOCK statement can lock or UNLOCK file access on a network ONLY using a format that can lock specific records.
  • Note: Qbasic ACCESS and LOCK clauses required that the DOS SHARED.EXE program be run for networking access.


The 5 Qbasic File Access Modes:
  • OUTPUT: Sequencial mode creates a new file or erases an existing file for new program output. Use WRITE # to write numerical or text data or the PRINT # for text. OUTPUT clears files of all data and clears the receive buffer on other devices such as COM.
  • APPEND: Sequencial mode creates a new file if it doesn't exist or appends program output to an existing file. Use WRITE # for numerical or text data or the PRINT # for text as in the OUTPUT mode. APPEND does not remove previous data.
  • BINARY: Creates a new file when it doesn't exist or uses input and/or output from an existing binary file. Use GET # to read or PUT # to write byte positions simultaneously. LEN = statements are ignored in this mode only.
  • RANDOM: Creates a new file when it doesn't exist or uses input and/or output from an existing file. Use GET # or PUT # to read or write to file records. A LEN = statement can define the byte size of a record(no LEN statement defaults to 128 bytes).
  • INPUT : Sequencial mode only reads input from an existing file. File error if file does not exist! Use _FILEEXISTS and _DIREXISTS to avoid errors. Use INPUT # for numerical or text data and LINE INPUT # or INPUT$ to only read text data.
  • The INPUT, BINARY and RANDOM file modes allow a file to be concurrently opened in a different mode and number.


GW Basic OPEN statements


GW Basic Syntax:
OPEN modeletter$, [#]filenumber, filename$[, recordLEN]


  • Mode letter is a variable or literal STRING letter value as one of the following:
  • "A" APPEND sequential mode allows data to be appended to an existing file using PRINT or WRITE.
  • "B" BINARY byte mode allows data to be read or written using GET or PUT
  • "I" INPUT sequential mode allows data to be read using INPUT or LINE INPUT in existing files only.
  • "O" OUTPUT sequential mode creates or clears a file to write new data using PRINT or WRITE.
  • "R" RANDOM record mode allows TYPE or FIELD records to be read or written using GET or PUT.


  • File number can be any variable or literal INTEGER value between 1 and 255 or a FREEFILE value.
  • File name can be a variable or literal STRING file name value.
  • RecordLEN can be a variable or literal INTEGER value used in "R" mode only.
  • This type of OPEN allows the statement to be made using program variables only. A holdover for compatibility with GW Basic.
  • Note: Does not support any file ACCESS or LOCK restrictions.


Comparing the GWBasic OPEN to a Qbasic OPEN statement:


GWBasic: OPEN "A", #1, Filename$
Qbasic: OPEN Filename$ FOR APPEND AS #1
Where Filename$ is the filename variable or a literal string name such as "Data1.DAT" is used. The Qbasic syntax cannot use a variable to change the OPEN mode so the programmer must determine it ahead of time.


Example 1: Function that displays errors and the number of errors in Qbasic filenames. Returns 0 when filename is OK.

file$ = "Hello,~1.mp3" 'example call below LOCATE 20, 30: errors% = CheckName%(file$): COLOR 14: PRINT " Total Errors ="; errors% FUNCTION CheckName% (Filename$) 'NOTE: Function also displays filename errors so LOCATE on screen before call! DIM L AS INTEGER, DP AS INTEGER, XL AS INTEGER L = LEN(Filename$): DP = INSTR(Filename$, "."): IF DP THEN XL = L - DP 'extension IF L = 0 OR L > 12 OR DP > 9 OR XL > 3 THEN CheckName% = -1: COLOR 12: PRINT "Illegal format!"; : EXIT FUNCTION END IF FOR i% = 1 TO L 'check each filename character" code% = ASC(MID$(Filename$, i%, 1)): COLOR 10 ' see ASCII codes SELECT CASE code% 'check for errors and highlight in red CASE 34, 42 TO 44, 47, 58 TO 63, 91 TO 93, 124: E% = E% + 1: COLOR 12 ' Qbasic errors 'CASE 34, 42, 47, 58, 60, 62, 92, 124: E% = E% + 1: COLOR 12 ' QB64 errors CASE 46: dot% = dot% + 1: IF dot% > 1 THEN E% = E% + 1: COLOR 12 END SELECT PRINT CHR$(code%); 'use LOCATE before FUNCTION call to place print NEXT CheckName% = E% END FUNCTION

Note: The QB64 character list is commented out. Comment out the Qbasic one if using QB64 list.

Hello,~1.mp3 Total Errors = 1

Note: The screen output displays filename characters in green except for red comma Qbasic error.


Example 2: A function that verifies that a file exists if it is NOT empty. Note: May create a file that is deleted if empty.

INPUT "Enter a file name: ", file$ IF Exist%(file$) THEN OPEN file$ FOR INPUT AS #1: found% = -1 'function call demo CLOSE #1 IF found% THEN PRINT "File exists!" ELSE PRINT "File not found!" END FUNCTION Exist% (filename$) f% = FREEFILE OPEN filename$ FOR APPEND AS #f% IF LOF(f%) THEN Exist% = -1 ELSE Exist% = 0: CLOSE #f%: KILL filename$ CLOSE #f% END FUNCTION

Code by Ted Weissgerber



See also:



Navigation:
Go to Keyword Reference - Alphabetical
Go to Keyword Reference - By usage
Go to Main WIKI Page
Personal tools