OPEN ERR

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOpenErr
• 最后更新: 2023-06-24

---

同时打开标准输入（stdin）和标准错误（stderr）流，将其作为文件操作使用。

语法

` Open Err [for mode] as [#]filenumber as long

`

用法

Open Err [for mode] as [#]filenumber

or

result = Open Err( [for mode[,]] as [#]filenumber )

参数

mode

忽略。

filenumber

未使用的文件编号。

返回值

32 位 Long：如果 Open Err() 成功完成则返回零，否则返回非零值以表示失败。

描述

该命令打开 stdin 用于读取，打开 stderr 用于向控制台写入，允许使用普通文件命令进行读写操作。

stderr 是不同于 stdout 的输出流，允许将错误消息与主控制台输出分开重定向。

普通控制台命令（如 Color 和 Locate）在此模式下不起作用，因为它们不接受文件编号。

TAB 关键字，无论给定的列数是多少，都始终被解释为简单的逗号（,）（下一个输出将从下一个 14 列边界处开始）。

[For Input|Output] mode 允许使用，但会被忽略（仅为兼容性目的）。

Open Err 返回的错误代码可以在下一行使用 Err 检查。Open Err 的函数版本直接以 32 位 Long 的形式返回错误代码。

运行时错误： Open Err 会抛出以下运行时错误之一：

(1) 非法函数调用

• Filenumber 当时不空闲。使用 Freefile 以确保 filenumber 是空闲的。

示例

start GeSHi

Dim a As String
Open Err For Input  As #1
Print #1,"Please write something and press ENTER"
Line Input #1, a
Print #1, "You wrote"; a
Close
Sleep

end GeSHi

与 QB 的差异

• FreeBASIC 新增

参见

• Open

返回 目录