Reset
关闭所有打开的文件，或重置标准 I/O 句柄。
Reset
or
Reset( streamno )
streamno
Reset，当没有参数调用时，关闭所有磁盘文件。
Reset，当使用streamno 参数调用时，将重置与stdin（0）或stdout（1）相关联的重定向或管道流。
运行时错误：
Reset(streamno )可以设置以下运行时错误之一：
(1) Illegal function call
语法
用法
Reset
or
Reset( streamno )
参数
streamno
要为stdout 0或1重新设置的流号码。
说明
Reset，当没有参数调用时，关闭所有磁盘文件。
Reset，当使用streamno 参数调用时，将重置与stdin（0）或stdout（1）相关联的重定向或管道流。
运行时错误：
Reset(streamno )可以设置以下运行时错误之一：
(1) Illegal function call
- streamno 既不是0也不1
- 重置stdin或stdout失败
例子
Open "的test.txt" For Output As #1
Print #1, "测试123"
Reset
Print #1, "测试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 "输入一些文字："
Input x
''从STDIN读取（现在从键盘）
Open Cons For Input As #1
While EOF(1) = 0
Input #1, x
Print """"; x; """"
Wend
Close #1
''从管道输入从STDIN读取
Open Cons For Input As #1
While EOF(1) = 0
Input #1, x
Print """"; x; """"
Wend
Close #1
''重置为从键盘读取
Reset(0)
Print "输入一些文字："
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差别
- 重启（）无。
- 重启（streamno ）的用法是FreeBASIC的新功能。
参考