Procedure Rewrite creates a new ASCII text file or opens an existing one prior to writing data to the file. If the file exists, new data written to the file will overwrite any data currently within the file.
If the filename includes a fully qualified path, the path has to use the appropriate notation for the local operating system:
: Macintosh HD:Applications:VectorWorks:Plug-Ins:Data:Notes.txt
: C:\Program Files\VectorWorks\Plug-Ins\Data\Notes.txt
If the filename includes a path relative to the location of the VectorWorks executable, the subfolder delimiters have to be backslashes:
: Plug-Ins\Data\Notes.txt
If the filename does not include a path, the file is assumed to exist in the same folder as the VectorWorks executable.
PROCEDURE Rewrite(fileName : STRING);def vs.Rewrite(fileName):
return None| Name | Type | Description |
|---|---|---|
| fileName | STRING | Name of file. |
PROCEDURE Example;
VAR
fileName :STRING;
major, minor, maintenance, platform :INTEGER;
BEGIN
GetVersion(major, minor, maintenance, platform);
IF platform = 1 THEN BEGIN
fileName := '/Example.txt';
END ELSE BEGIN
fileName := 'C:Example.txt';
END;
ReWrite(fileName);
WriteLn('example text');
Close(fileName);
END;
RUN(Example);Writing binary data: :Write of ARRAY OF INTEGER with write two bytes per INTEGER. So, 10 bytes will be written for 'arr'. :This code will produce file with the following bytes(hex): 01 02 FF FE 00 00 00 00 00 00
arr : ARRAY [1..5] OF INTEGER;
FUNCTION MixBytes(b1, b2: INTEGER) : INTEGER;
BEGIN
MixBytes := b1 + b2 * 256;
END;
BEGIN
arr[1] := MixBytes( 1, 2 );
arr[2] := MixBytes( 255, 254 );
Write(arr);Availability: from All Versions