FileOpen

打开文件, 从其中读取特定内容和/或将新内容写入其中.

FileObj := FileOpen(Filename, Flags , Encoding)

参数

Filename

类型: 字符串整数

要打开文件的路径, 如果未指定绝对路径则假定在 A_WorkingDir 中.

如下所示, 指定一个(或两个) 星号来打开标准输入(input)/输出(output)/错误(error) 流:

FileOpen("*", "r")   ; 标准输入
FileOpen("*", "w")   ; 标准输出
FileOpen("**", "w")  ; 标准错误
Flags

类型: 字符串

表示所需的访问模式的字符串, 后面跟着其他选项(中间有可选的空格或制表符); 或数字标志的组合(总和). 支持的值在下表中描述.

Encoding

类型: 字符串整数

如果省略, 将使用默认编码(由 FileEncoding 或 CP0 设置). 如果为空, 则默认为 CP0(系统默认的 ANSI 代码页). 否则, 指定用于文本 I/O 的编码或代码页, 例如 "UTF-8", "UTF-16", "CP936"936.

如果文件包含 UTF-8 或 UTF-16 字节顺序标记(BOM), 或者如果使用 h(句柄) 标记, 则该参数和默认编码将被忽略, 除非文件以只写访问方式打开(即文件的先前内容被丢弃).

Flags

访问模式(互斥的)

Flag 十进制 十六进制 描述
r 0 0x0 读取: 当文件不存在时失败.
w 1 0x1 写入: 创建新文件, 覆盖任意已存在的文件.
a 2 0x2 追加: 如果文件不存在则创建新文件, 否则移动文件指针到文件末尾.
rw 3 0x3 读取/写入: 当文件不存在时创建新文件.
h     表示 Filename 是包装在对象中的文件句柄. 忽略共享模式标志, 并且不检查句柄表示的文件或流的字节顺序标记. 当文件对象销毁时, 当文件对象销毁时, 文件句柄 不会 自动关闭并且调用 File.Close 没有效果. 注意当 Filename 是非搜寻设备(例如管道或通信设备) 的句柄时, 不应该使用 File.Seek, File.PosFile.Length.

共享模式标志

Flag 十进制 十六进制 描述
-rwd     为读取, 写入和/或删除访问进行文件锁定. 可以使用 r, wd 的任意组合. 指定 - 相当于指定 -rwd. 如果完全省略, 默认为共享所有访问.
  0 0x0 如果 Flags 是数值的, 缺少共享模式标志会让文件被锁定.
  256 0x100 共享 读取 访问.
  512 0x200 共享 写入 访问.
  1024 0x400 共享 删除 访问.

行结束符(EOL) 选项

Flag 十进制 十六进制 描述
`n 4 0x4 读取时把 `r`n 替换为 `n 而写入时把 `n 替换为 `r`n.
`r 8 0x8 读取时把单独的 `r 替换为 `n.

返回值

类型: Object

返回值是一个封装文件打开句柄的新文件对象. 使用此对象的方法和属性来访问文件的内容.

错误

如果文件不能打开, 则抛出 OSError.

备注

File.ReadLine 始终支持 `n, `r`n`r 作为行结束符, 并且不将它们包含在返回值中, 无论是否使用 `r`n 选项. 这些选项仅影响 File.Read 返回的或由 File.WriteFile.WriteLine 写入的文本中的行结束符的转换.

当创建 UTF-8 或 UTF-16 文件时, 会写入字节顺序标记(BOM) 到文件中, 除非 Encoding 或默认编码(由 FileEncoding 设置) 是 "UTF-8-RAW""UTF-16-RAW".

当以读取方式打开含有 UTF-8 或 UTF-16 字节顺序标记(BOM) 的文件时, 会把文件指针放置到这个标志后, 来从输出中排除 BOM. 因此, 在刚刚打开这样的文件时 File.Pos 可能为 3 或 2.

如有必要, 可使用 FileObj.Read(如 FileObj.Read(0)) 刷新写缓冲区. 请参阅下面的示例 #3.

FileEncoding, 文件对象, FileRead

示例

写入一些文本到文件, 然后从文件读取回内存(它提供了与这个 DllCall 示例相同的功能).

FileName := FileSelect("S16",, "Create a new file:")
if (FileName = "")
    return
try
    FileObj := FileOpen(FileName, "w")
catch as Err
{
    MsgBox "Can't open '" FileName "' for writing."
        . "`n`nError " Err.Extra ": " Err.Message
    return
}
TestString := "This is a test string.`r`n"  ; 通过这种方式写入内容到文件时, 要使用 `r`n 而不是 `n 来开始新行.
FileObj.Write(TestString)
FileObj.Close()

; 现在已经把内容写入文件了, 把它们读取回内存中.
try
    FileObj := FileOpen(FileName, "r-d") ; 读取文件 ("r"), 共享除了删除 ("-d") 外的所有访问权限
catch as Err
{
    MsgBox "Can't open '" FileName "' for reading."
        . "`n`n" Type(Err) ": " Err.Message
    return
}
CharsToRead := StrLen(TestString)
TestString := FileObj.Read(CharsToRead)
FileObj.Close()
MsgBox "The following string was read from the file: " TestString

以只读模式打开脚本并读取它的首行.

Script := FileOpen(A_ScriptFullPath, "r")
MsgBox Script.ReadLine()

演示标准 input/output 流的用法.

; 打开控制台窗口以进行此次演示:
DllCall("AllocConsole")
; 打开应用程序的 stdin/stdout 流.
stdin  := FileOpen("*", "r")
stdout := FileOpen("*", "w")
stdout.Write("Enter your query.`n\> ")
stdout.Read(0) ; 清除写入缓冲区.
query := RTrim(stdin.ReadLine(), "`n")
stdout.WriteLine("Your query was '" query "'. Have a nice day.")
stdout.Read(0) ; 清除写入缓冲区.
Sleep 5000