clip_difference.au3

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("RoM .db difference", 623, 110, 192, 114, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Input1 = GUICtrlCreateInput("", 8, 8, 609, 21)
$Input2 = GUICtrlCreateInput("", 8, 32, 609, 21)
$GO = GUICtrlCreateButton("GO", 8, 56, 75, 25)
$dif = GUICtrlCreateLabel("differences:", 8, 88, 59, 17)
$result = GUICtrlCreateLabel("0", 72, 88, 10, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F1}", "set1")
HotKeySet("{F2}", "set2")
HotKeySet("{ESC}", "nulll")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $GO
           doo();
    EndSwitch
 WEnd

Func doo()
   local $str1 = StringSplit(ControlGetText($Form1, "", $Input1), "#@|@#")
   local $str2 = StringSplit(ControlGetText($Form1, "", $Input2), "#@|@#")
   local $ress = 0;

   if $str1[0] <> $str2[0] then
      ControlSetText($Form1, "", $result, "length not equal")
   Else
      For $i = 1 To UBound($str1)-1
         ;ConsoleWrite($str1[$i]&" - "&$str2[$i] & @LF );
         if $str1[$i] <> $str2[$i] Then
            $ress = $ress + 1;
         EndIf
      Next
   EndIf
   ControlSetText($Form1, "", $result, $ress)
   WinActivate("[CLASS:AutoIt v3 GUI]");
EndFunc

Func set1()
   Send("^c")
   Sleep(200)
   ControlSetText($Form1, "", $Input1, ClipGet())
   doo();
EndFunc

Func set2()
   Send("^c")
   Sleep(200)
   ControlSetText($Form1, "", $Input2, ClipGet())
   doo();
EndFunc

Func nulll()
EndFunc