Bu bahsettiğim işlem excelde yapılıyor fakat ben autoit le yapmak istiyorum
Örnek bir excell vba kodu
http://www.excel.web.tr/showpost.php?s= ... ostcount=9
ve benim kodlarım
Kod: Tümünü seç
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 360, 405)
$Edit1 = GUICtrlCreateEdit("", 41, 48, 119, 121)
GUICtrlSetData(-1, "")
$Edit2 = GUICtrlCreateEdit("", 200, 48, 121, 121)
GUICtrlSetData(-1, "")
$Sil = GUICtrlCreateButton("Sil", 256, 368, 75, 25)
$Edit3 = GUICtrlCreateEdit("", 48, 184, 281, 176)
GUISetState(@SW_SHOW)
$AddTxtFile1 = FileOpen(@ScriptDir & '\File1.txt', 0)
GUICtrlSetData($Edit1, FileRead($AddTxtFile1))
$AddTxtFile2 = FileOpen(@ScriptDir & '\File2.txt', 0)
GUICtrlSetData($Edit2, FileRead($AddTxtFile2))
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Sil
$okuedit1 = GUICtrlRead($Edit1)
$okuedit2 = GUICtrlRead($Edit2)
$aUniques =_ArrayUnique($okuedit1)
$aUniques2 =_ArrayUnique($okuedit2)
For $i = UBound($aUniques) To UBound($aUniques2) -1
If $aUniques[$i] = $aUniques2[$i] Then
$ayniolansil1 = _ArrayDelete($aUniques, $i)
$ayniolansil2 = _ArrayDelete($aUniques2, $i)
EndIf
GUICtrlSetData($Edit3, $aUniques[$i] & @CRLF & $aUniques2[$i])
Next
EndSwitch
WEnd