Четверг, 28.11.2024, 04:29 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

Сравнение файлов

#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

Категория: Autoit | Добавил: moskov (26.03.2018)
Просмотров: 373 | Рейтинг: 2.0/1
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [108]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [236]
Gentee [1]
Python [204]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 7
Гостей: 7
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск