独自の拡張(file)
SET #経路番号 : CODING "SYSTEM"
入出力ファイルの文字コードをShift−JISに変更する(Windowsのみ)。
SET #経路番号 : ENDOFLINE 文字列式
PRINT文,WRITE文における行末(または記録末)文字を設定する。
設定可能な値は,CHR$(13)&CHR$(10),CHR$(13),CHR$(10)のいずれか。
ASK #経路番号 : FILESIZE 数値変数
バイト単位のファイル長を数値変数に代入する。
SET DIRECTORY
a$
カレントディレクトリを文字列式
a$が指定するディレクトリに変更する。
ASK DIRECTORY s$
カレントディレクトリを表す文字列を文字列変数s$に代入する。
FILE GETNAME s$
FILE GETNAME s$, 文字列式
ファイルを開くダイアログを表示し,利用者が指定するファイル名を文字列変数s$に代入する。
文字列式を書くと,その値を既定の拡張子としてファイルダイアログを開く。
FILE GETOPENNAME s$
FILE GETOPENNAME s$, 文字列式
存在しないファイルは指定できない。他はFILE GETNAMEと同じ。
FILE GETSAVENAME s$
FILE GETSAVENAME s$, 文字列式
保存ダイアログを表示する。機能的にはFILE GETNAMEと同じ。
FILE SPLITNAME (
a$) path$, name$, ext$
ファイル名を表す文字列式
a$を,ドライブ名とパス名を表す部分,ファイル名本体,拡張子部分の3つに分割し,文字列変数path$, name$, ext$に代入する。
FILE RENAME
a$,
b$
a
$が示すファイルの名前を
b$に変える。
a$,
b$は文字列式を書く。
a
$が指示するファイルが存在しないとextype9003,
b$が指示するファイルがすでに存在する場合はextype 9004,他の理由で改名できないときはextype 9000 の例外状態になる。
FILE DELETE
a$
文字列式
a$が示すファイルを削除する。
ファイルが存在しないとextype 9003,削除できないときはextype 9000の例外状態になる。
True BASICのUNSAVE文,Microsoft BASICのKILL文に相当。
FILE文の使用例
指定ファイルに含まれる英字をすべて大文字に変換する。
100 FILE GETNAME s$
110 FILE SPLITNAME(s$) path$,name$,ext$
120 LET t$=path$ & name$ & ".TMP"
130 OPEN #1:NAME s$
140 OPEN #2:NAME t$
150 ERASE #2
160 DO
170 LINE INPUT #1,IF MISSING THEN EXIT DO:line$
180 LET line$=UCASE$(line$)
190 PRINT #2:line$
200 LOOP
210 CLOSE #2
220 CLOSE #1
230 FILE DELETE s$
240 FILE RENAME t$,s$
250 END
DIRECTORY GETNAME s$
フォルダ選択ダイアログを表示し,利用者が指定するフォルダのパス名を文字列変数s$に代入する。
MAKE DIRECTORY 文字列式
ディレクトリを作成する。
REMOVE DIRECTORY 文字列式
ディレクトリを削除する。