#include <GUIConstantsEx.au3>
#include <File.au3>
Local $filename_1
Local $filename_2
Local $hGUI = GUICreate("Example",500,250)
Local $idbutton_1 = GUICtrlCreateButton("Открыть файл", 0, 0, 100, 25)
Local $idinput_1 = GUICtrlCreateInput("путь к файлу",100,0,500,25)
Local $idbutton_2 = GUICtrlCreateButton("Открыть файл", 0, 50, 100, 25)
Local $idinput_2 = GUICtrlCreateInput("путь к файлу",100,50,500,25)
Local $idbutton_3 = GUICtrlCreateButton("Сравнить файлы", 0, 100, 100, 25)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idbutton_1
$filename_1 = FileOpenDialog("Задать файл", @WindowsDir & "\", "Все типы файлов (*.*)")
GUICtrlSetData($idinput_1,$filename_1)
Case $idbutton_2
$filename_2 = FileOpenDialog("Задать файл", @WindowsDir & "\", "Все типы файлов (*.*)")
GUICtrlSetData($idinput_2,$filename_2)
Case $idbutton_3
if FileGetSize($filename_1) <> FileGetSize($filename_2) then
MsgBox(0,"title", "Разный размер.Файлы не равны")
ContinueCase
endif
Local $A,$B
_FileReadToArray(GUICtrlRead($idinput_1),$A)
_FileReadToArray(GUICtrlRead($idinput_2),$B)
Local $result = 0
for $iteration = 1 to $A[0]
if ($A[$iteration] = $B[$iteration]) then
$result = 1
else
$result = 2
endif
next
if $result = 1 then MsgBox(0,"title", "Файлы равны")
if $result = 2 then MsgBox(0,"title", "Файлы не равны")
EndSwitch
WEnd
|