開いている全てのファイルを、閉じます。あるいは、標準入出力ハンドルを、リセットします。
構文:
用法:
Reset
or
Reset( streamno )
パラメタ:
streamno
リセットするストリーム番号。stdin は 0、stdout は 1。
記述:
Reset を、引数なしで呼ぶと、すべてのディスク・ファイルを閉じます。
Reset を、streamno 引数を付けて 呼ぶと、stdin (0)、か stdout (1) に関連している、向け直された流れ、あるいは配管された流れをリセットします。
実行時エラー:
Reset(streamno) は、以下の
runtime errors の1つを設定することができます:
(1) Illegal function call
- streamno が、0 でも 1 でも、どちらでもない。
(3) File I/O error
- stdin または stdout のリセットは失敗しました。
例:
Open "test.txt" For Output As #1
Print #1, "testing 123"
Reset
Dim x As String
'' STDIN から、パイプ入力から読みます
Open Cons For Input As #1
While EOF(1) = 0
Input #1, x
Print """"; x; """"
Wend
Close #1
'' キーボードからの読込みをリセットします
Reset(0)
Print "Enter some text:"
Input x
'' STDINから、読みます。(今度は、キーボードから)
Open Cons For Input As #1
While EOF(1) = 0
Input #1, x
Print """"; x; """"
Wend
Close #1
注意:
Windows の下では、データ・エントリーが完了する(EOFを転送する)ことをプログラムに明示するために、CTRL+Z を押します。その後、ENTERを押します。
QBからの違い:
- Reset() は違いなし。
- Reset(streamno) の用法は、FreeBASICで新規作成。
参照: