Write # Statement
Writes data to a sequential file.
Write #filenumber, [outputlist]
The Write # statement syntax has these parts:
Required. Any valid file number.
Data written with Write # is usually read from a file with Input #.
If you omit outputlist and include a comma after filenumber, a blank line is printed to the file. Multiple expressions can be separated with a space, a semicolon, or a comma. A space has the same effect as a semicolon.
When Write # is used to write data to a file, several universal assumptions are followed so the data can always be read and correctly interpreted using Input #, regardless of locale:
Numeric data is always written using the period as the decimal separator.
If outputlist data is Null data, #NULL# is written to the file.
For Error data, the output appears as #ERROR errorcode# . The Error keyword is not translated, regardless of locale.
Unlike the Print # statement, the Write # statement inserts commas between items and quotation marks around strings as they are written to the file. You don't have to put explicit delimiters in the list. Write # inserts a newline character, that is, a carriage return–linefeed (Chr(13) + Chr(10)), after it has written the final character in outputlist to the file.
You should not write strings that contain embedded quotation marks, for example, "1,2""X" for use with the Input # statement: Input # parses this string as two complete and separate strings.
This example uses the Write # statement to write raw data to a sequential file.
Open "TESTFILE" For Output As #1 ' Open file for output. Write #1, "Hello World", 234 ' Write comma-delimited data. Write #1, ' Write blank line. Dim MyBool, MyDate, MyNull, MyError ' Assign Boolean, Date, Null, and Error values. MyBool = False : MyDate = #February 12, 1969# : MyNull = Null MyError = CVErr(32767) ' Boolean data is written as #TRUE# or #FALSE#. Date literals are ' written in universal date format, for example, #1994-07-13# 'represents July 13, 1994. Null data is written as #NULL#. ' Error data is written as #ERROR errorcode#. Write #1, MyBool ; " is a Boolean value" Write #1, MyDate ; " is a date" Write #1, MyNull ; " is a null value" Write #1, MyError ; " is an error value" Close #1 ' Close file.