检索当前文件的位置.
FileGetPos ( 句柄 )
句柄 | 先前调用 FileOpen() 函数返回的文件句柄. |
成功: | 返回文件从一开始的位置偏移(第一索引为 0). |
失败: | 返回 0, 并设置 @error. |
#include <Constants.au3>
Local Const
$sFile =
"test.txt"
Local $hFile
= FileOpen($sFile, 2)
; 检查文件是否为写模式打开
If $hFile
= -1 Then
MsgBox(0, "错误", "无法打开文件.")
Exit
EndIf
; 写一些东西到文件.
FileWriteLine($hFile, "一行文本,")
FileWriteLine($hFile, "Line2")
FileWriteLine($hFile, "Line3")
; 刷新文件到磁盘.
FileFlush($hFile)
; 检查文件位置, 并尝试读取当前位置的内容.
MsgBox(0, "", "位置:
" & FileGetPos($hFile) & @CRLF & "数据: " & @CRLF & FileRead($hFile))
; 现在, 开始调整位置.
Local $n
= FileSetPos($hFile, 9, $FILE_BEGIN)
; 检查文件位置, 并尝试读取当前位置的内容.
MsgBox(0, "", "位置:
" & FileGetPos($hFile) & @CRLF & "数据: " & @CRLF & FileRead($hFile))
; 关闭句柄.
FileClose($hFile)
; 清理临时文件.
FileDelete($sFile)
provider with jb51.net (unicode) |