用 FileOpen() 打开txt文件，返回-1 发生错误，怎么解决？

crazyowen

我有两个问题：
第一个：
在另外一个程序正在调用test.tx文件时，用 FileOpen() 打开txt文件，返回-1 发生错误，该怎么解决？
第二个：
test.txt 文件内的 内容是随时改变的（内容不断增加，就像log）。而我需要读取文本最末尾一行的 前4个字
我感觉我写的代码效率不高，有没有更简短更快的方法？

我的代码如下：

$file = FileOpen("test.TXT", 0)

; 检查打开的文件是否可读
If $file = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf

; 每次读取一行文本,直到文件结束.
$i = 0
$a = 1
$x = 1
$b = 1
While $a = 1
        $line = FileReadLine($file)
        
    If @error = -1 then 
        $a = 0
        $b = StringLeft($x, 4)
    MsgBox(0, "最后一行前4位数为：", $b)
    Else
        
        $x = $line
        $i = $i+1

    EndIf
 
 Wend
 


FileClose($file)

netegg

#include<file.au3>
$string = stringright(fileread($file,_filecountlines($file)),4）

第一个问题不知道具体情况解释不了

crazyowen

#include
$string = stringright(fileread($file,_filecountlines($file)),4）

第一个问题不知道具体情 ...
netegg 发表于 2010-6-1 15:25

   
谢谢！

稍微有点笔误，应该是 $string = stringleft(filereadline($file,_filecountlines($file)),4）

netegg

不好意思写错了，filereadline

crazyowen

还有第一个问题没有解决~　，　我代码中的　ｔｅｓｔ．ｔｘｔ　文件是 另外一个程序的log 文件， 当我打开那个程序时 ， 运行上面代码 就会返回错误“不能打开文件”， 当我关闭那个程序时， 就能正确读取了。
希望帮我分析一下 该怎么办？

我自己想了一个办法，就是在代码最前面添加代码 把 test.txt 复制 一份重命名为 log.txt , 后面fileopen （“log.txt”，0）   ，但有没有更好的办法呢？

shqf

另外一个程序打开了txt文件，就是句柄占用着，你的au3程序当然不能再打开了。如果想要读写被其它进程占用的文件，可以说这是一个重量级的问题。

yejier1983

应该是句柄的问题

lchl0588

我也来一段代码：
貌似最短的代码吧？？
第一个问题:在偶的代码 中没发现不能用，连续我打开三个相同的文件("test.txt")都发现很正常哇！！（不知道你是什么操作的？）
第二个问题：在代码中，自个看吧！

游客，如果您要查看本帖隐藏内容请回复

crazyowen

已经解决了
最简单的代码如下：

#include<file.au3>
; 把数据文件复制一份，防止原txt文件被其他程序占用而不能读写
FileCopy ("test.TXT","log.txt",1)
$file = FileOpen("log.txt", 0)
; 检查打开的文件是否可读
If $file = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf
; 读取最后一行前四位数
$string = StringLeft(FileReadLine("log.txt",_filecountlines("log.txt")), 4)
MsgBox(0, "最后一行前4位数为：", $string)