[Автоматизация] Сравнение элементов одномерного массива

Local $a[11]
$a[0] = 1
$a[1] = 1
$a[2] = 2
$a[3] = 2
$a[4] = 3
$a[5] = 5
$a[6] = 1
$a[7] = 6
$a[8] = 7
$a[9] = 8
$a[10] = 8

$a[0] = 5
$a[1] = 3
$a[2] = 5
$a[3] = 6
$a[4] = 7

#include <Array.au3>

Opt('MustDeclareVars', 1)

Local $a[11]
$a[0] = 1
$a[1] = 1
$a[2] = 2
$a[3] = 2
$a[4] = 3
$a[5] = 5
$a[6] = 1
$a[7] = 6
$a[8] = 7
$a[9] = 8
$a[10] = 8

Local $aOnlyOne = _OnlyOne($a)
_ArrayDisplay($aOnlyOne)
$aOnlyOne = _OnlyOne($a, 1)
_ArrayDisplay($aOnlyOne)

#cs
	При успехе вернет одномерный массив с элементами проверяемого одномерного массива, которые входят в проверяемый массив только один раз.
	$i_CountInNul	- 0 - не возвращать количество найденных элементов в 0-индексе (по умолчанию), 1 - возвращать.
	$i_Start		- стартовый индекс проверяемого массива, может быть только 0 (по умолчанию) или 1.
	При неудаче флаг @error:
	1	- массив $a_Array не одномерный.
	2	- ошибка создания объекта Scripting.Dictionary
#ce
Func _OnlyOne($a_Array, $i_CountInNul = 0, $i_Start = 0)
	If UBound($a_Array, 0) <> 1 Then Return SetError(1)
	Switch $i_Start
		Case 0, 1
		Case Else
			$i_Start = 0
	EndSwitch
	Switch $i_CountInNul
		Case 0, 1
		Case Else
			$i_CountInNul = 0
	EndSwitch
	Local $o_Dict = ObjCreate('Scripting.Dictionary')
	If @error Then Return SetError(2)
	For $i = $i_Start To UBound($a_Array) - 1
		$o_Dict.Item($a_Array[$i]) = $o_Dict.Item($a_Array[$i]) + 1
	Next
	Local $i_Count = $o_Dict.Count, $a_Ret[$i_Count + $i_CountInNul], $a_Keys = $o_Dict.Keys, $i_Ind = 0
	For $i = 0 To $i_Count - 1
		If $o_Dict.Item($a_Keys[$i]) = 1 Then
			$a_Ret[$i_Ind + $i_CountInNul] = $a_Keys[$i]
			$i_Ind += 1
		EndIf
	Next
	If $i_Ind <> $i_Count Then ReDim $a_Ret[$i_Ind + $i_CountInNul]
	If $i_CountInNul Then $a_Ret[0] = $i_Ind
	Return $a_Ret
EndFunc   ;==>_OnlyOne

;~ 0 = vbBinaryCompare - binary comparison
;~ 1 = vbTextCompare - textual comparison
Func _ArrayRemoveDuplicateItems(ByRef $a_Array, $i_Mode = 1)
    
    Local $o_Obj, $i_UBound
    
    $o_Obj = ObjCreate("Scripting.Dictionary")
    If @error Then SetError(1, 0, 0)
    
    $o_Obj.CompareMode = $i_Mode
    
    For $i = 0 To UBound($a_Array)-1
		
        If Not $o_Obj.Exists($a_Array[$i]) Then
			$o_Obj.Add($a_Array[$i], 1)
		Else
			$o_Obj.Item($a_Array[$i]) = $o_Obj.Item($a_Array[$i]) + 1
		EndIf
    Next
	
	$aKey = $o_Obj.Keys
	$aItem = $o_Obj.Items
	
	For $i = 0 To $o_Obj.Count -1
		If $aItem[$i] > 1 Then  $o_Obj.Remove($aKey[$i])
	Next

    $a_Array = $o_Obj.Keys
    $i_UBound = $o_Obj.Count
    $o_Obj = 0
    
    Return SetError(0, $i_UBound, 1)
EndFunc; ==>_ArrayRemoveDuplicateItems

#include <File.au3>
#include <Array.au3>

Local $FSDir = "C:\Common\WorkFiles\Scripts\"
Local $statDir = "C:\Common\Statistics\"
Local $sMask = "*.acsauto"
Local $hMask = "*.HTML"
Local $t = 1
Local $StatDoneArray[1] ;Массив для готовой статистики
$statList = _FileListToArray($statDir, $hMask) ;Получаем список созданной статистики в массив statList

Do
   $statLine = StringSplit( $statList[$t], '.') ;делим строку по аргументу '.'
   _ArrayAdd($StatDoneArray, $statLine[1])
   $t = $t + 1
Until $t > $statList[0]
_ArrayInsert($StatDoneArray,0,$statList[0])
_ArrayDelete($StatDoneArray,1)

Local $r = 1
Local $ScriptListArray[1] ;Массив для готовых скриптов
$scriptList = _FileListToArray($FSDir, $sMask) ;Получаем список созданных скриптов в массив scriptList
Do
   $scriptLine = StringSplit( $scriptList[$r], '.') ;делим строку по аргументу '.'
   _ArrayAdd($ScriptListArray, $scriptLine[1])
   $r = $r + 1
Until $r > $scriptList[0]

_ArrayInsert($ScriptListArray,0,$scriptList[0])
_ArrayDelete($ScriptListArray,1)
_ArrayDelete($StatDoneArray,0)
_ArrayDelete($ScriptListArray,0)
_ArrayConcatenate($StatDoneArray,$ScriptListArray)
_ArraySort($StatDoneArray)
$a = _ArrayUnique($StatDoneArray,0)

#include <Array.au3>

Local $a_Dirs[2][2] = [[@ScriptDir & '\Scripts\', '*.acsauto'],[@ScriptDir & '\Statistics\', '*.html']], $a_Find[2], _
		$i_Max = 100, $a_Res[$i_Max + 1] = [0], $i_Len

For $i = 0 To 1
	If Not FileExists($a_Dirs[$i][0] & $a_Dirs[$i][1]) Then Exit ConsoleWrite('В папке "' & $a_Dirs[$i][0] & '" нет файлов ' & $a_Dirs[$i][1] & @LF)
	$i_Len = StringLen($a_Dirs[$i][1]) - 1
	$a_Find[0] = FileFindFirstFile($a_Dirs[$i][0] & $a_Dirs[$i][1])
	If $a_Find[0] = -1 Then Exit ConsoleWrite('Ошибка поиска файлов ' & $a_Dirs[$i][1] & ' в папке "' & $a_Dirs[$i][0] & '"' & @LF)
	While 1
		$a_Find[1] = FileFindNextFile($a_Find[0])
		If @error Then ExitLoop
		If @extended Then ContinueLoop
		If FileExists($a_Dirs[1 - $i][0] & StringTrimRight($a_Find[1], $i_Len) & $a_Dirs[1 - $i][1]) Then ContinueLoop
		$a_Res[0] += 1
		If $a_Res[0] > $i_Max Then
			$i_Max += 100
			ReDim $a_Res[$i_Max + 1]
		EndIf
		$a_Res[$a_Res[0]] = $a_Find[1]
	WEnd
	FileClose($a_Find[0])
Next
If $a_Res[0] Then ReDim $a_Res[$a_Res[0] + 1]
_ArrayDisplay($a_Res)

_ArrayConcatenate($StatDoneArray,$ScriptListArray) 

Local $IndexToDelete[0]

For $i = UBound($StatDoneArray) - 1 To 2 Step -1
   For $j = 1 to $i-1 Step 1
	  If $StatDoneArray[$i] = $StatDoneArray[$j] Then
		 if (_ArraySearch($IndexToDelete,$i) = -1)	Then
			_ArrayAdd($IndexToDelete,$i)
			EndIf
		  if (_ArraySearch($IndexToDelete,$j) = -1)	 Then
			 _ArrayAdd($IndexToDelete,$j)
			 EndIf
	  EndIf
    Next
Next

$str=_ArrayToString($IndexToDelete,";")
 _ArrayDelete($StatDoneArray, $str )
_ArrayDisplay($StatDoneArray)