我首先往一个文本中写入内容,当写入完成后关闭,然后再读取出来,但是我的脚本的输出总是为空,我的脚本如下:#include <File.au3>
#include<array.au3>
Global $x
If $cmdline[0] = 1 Then
$x = $cmdline[1]
EndIf
$file2 = FileOpen(FileGetLongName($x), 0)
If $file2 = -1 Then
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf
$file2 = FileRead($file2)
FileClose($file2)
FileDelete(@ScriptDir & "\输出1.txt")
$file3 = FileOpen(@ScriptDir & "\输出1.txt", 2)
If $file3 = -1 Then
MsgBox(0, "错误", "不能打开输出文件.")
Exit
EndIf
FileDelete(@ScriptDir & "\输出.txt")
$file = FileOpen(@ScriptDir & "\输出.txt", 2)
If $file = -1 Then
MsgBox(0, "错误", "不能打开输出文件.")
Exit
EndIf
Local $Result,$line, $_line, $str
$Reg = StringRegExp(@CRLF & $file2, '\n\s*[^\d](\d{2,4}\s+.+)|\(OCC\).+', 3)
For $i = 0 To UBound($Reg) - 1
$Result &= $Reg[$i] & @CRLF
Next
FileWrite($file3, $Result)
$close=FileClose($file3)
If $close=1 Then
$file = FileRead($file3)
MsgBox(0,0,$file )
EndIf
这个脚本输出的msgbox为空,但是文本$file3又是正确的,请问是怎么回事呢? |