au3实现文件对比

;要打开的文件

Local $file = FileOpen("D:\au3_test\ice2.conf", 0)

Local $file2 = FileOpen("D:\au3_test\ice.conf", 0)

; 检查打开的文件是否可读

If $file = -1 Then

    MsgBox(0, "错误", "不能打开文件.")

    Exit

EndIf

$i = 1

; 每次读取一行文本,直到文件结束.

While 1

Local $line = FileReadLine($file)

    If @error = -1 Then 

ExitLoop

EndIf

Local $line2 = FileReadLine($file2)

If @error = -1 Then 

ExitLoop

EndIf

;比较对应行号的行是否相同，不相同则输出不同的行到文件diff.txt

If $line <> $line2 Then

Local $file3 = FileOpen("D:\au3_test\diff.txt", 1)

; 检查打开的文件是否可写

If $file3 = -1 Then

MsgBox(0, "错误", "不能打开文件.")

Exit

EndIf

FileWriteLine($file3, @CRLF&"第"&$i&"行配置不一致"&@CRLF&"file1:"&$line&@CRLF&"file2:"&$line2&@CRLF)

FileClose($file3)

EndIf

$i = $i + 1

Wend

FileClose($file)