Open Scrn
直接打开控制台作为文件输入和输出
Open Scrn [for mode ] as [#]filenum
如果Open Err成功完成，则返回零（0），否则返回非零值表示失败。
此命令打开作为文件的输入和输出的控制台，允许使用正常的文件命令读取/写入它。
在某些实现中，此命令可以直接访问控制台，因此在输入/输出需要使用OS命令进行重定向或管道传输时，不能使用该控制台。
正常的控制台命令（如Color和Locate）在此模式下不起作用，因为它们不接受文件编号。
允许[For Input|Output]子句兼容，但会被忽略。
filenum 是未使用的文件编号。
使用FreeFile可以找到未使用的文件编号。
运行时错误：
Open Cons会抛出以下运行时错误之一：
(1) Illegal function call
语法
用法
Open Scrn [for mode ] as [#]filenum
or
result = Open Scrn( [for mode ] as [#]filenum )参数
返回值
如果Open Err成功完成，则返回零（0），否则返回非零值表示失败。
说明
此命令打开作为文件的输入和输出的控制台，允许使用正常的文件命令读取/写入它。
在某些实现中，此命令可以直接访问控制台，因此在输入/输出需要使用OS命令进行重定向或管道传输时，不能使用该控制台。
正常的控制台命令（如Color和Locate）在此模式下不起作用，因为它们不接受文件编号。
允许[For Input|Output]子句兼容，但会被忽略。
filenum 是未使用的文件编号。
使用FreeFile可以找到未使用的文件编号。
运行时错误：
Open Cons会抛出以下运行时错误之一：
(1) Illegal function call
- filenumber 当时不是免费的。请使用FreeFile确保filenumber 免费。
例子
Dim a As String
Open Scrn For Input As #1
Print #1,"请写一些东西，然后按ENTER"
Line Input #1,a
Print #1, "你写了";a
Close
Sleep
Open Scrn For Input As #1
Print #1,"请写一些东西，然后按ENTER"
Line Input #1,a
Print #1, "你写了";a
Close
Sleep
与QB差别
- QB使用OPEN“SCRN：”...
参考