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

[classick]

Добрый день.

Уже который день мучаюсь над тем чтобы сравнить все элементы одномерного массива и вывести в 2-й (результирующий) массив значения, которые не повторяются.

К примеру, у меня есть массив:

Спойлер

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

Помогите, пожалуйста, т.к. поиск вывел меня лишь на функцию _ArrayUnique, но это не совсем то, что нужно, т.к. просто удаляет дубли.

Спасибо.

Используйте для AutoIt кода тег [autoit]

madmasles.

 

[Garrett]

*click*

 

[madmasles]

classick,
Как вариант.

Спойлер

#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

 

[C2H5OH]

imho, правильный путь здесь

 

[madmasles]

C2H5OH [?]

imho, правильный путь здесь

Вариант с Assign - Eval по скорости примерно одинаков с вариантом с Scripting.Dictionary, но при больших объемах проверки памяти жрет очень много. Из-за этого для себя я его перестал использовать.

 

[Garrett]

#include<Array.au3>
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

_ArrayDisplay($a, StringFormat('Dim: %.d', UBound($a)))
$t = TimerInit()
_ArrayRemoveDuplicateItems($a, 0)		
_ArrayDisplay($a, StringFormat('Dim: %d / Time: %.4f sec', UBound($a), TimerDiff($t) / 1000))

Спойлер: _ArrayRemoveDuplicateItems()

;~ 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

 

[classick]

Мужики, спасибо, попытался разобраться во всех вариантах выше (насколько хватило начальных знаний), но это не совсем то, что мне необходимо. Ничего из них не выводит нужные мне элементы (только те, которые не повторяются вообще)

2 Garrett,
Насколько я понял, Ваш вариант найдет дубли в массиве. Касательно ф-и _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)

В двух разных директориях (*.html в $statDir, ну а *.acsauto в $FSDir) у меня лежат файлы *.html и *.acsauto:

Спойлер

87001.acsauto
87002.acsauto
87003.acsauto
87004.acsauto
87005.acsauto

и

87001.HTML
87002.HTML
87003.HTML
87004.HTML

Как видно под спойлером html файлов меньше. Моей задачей является получение *.acsauto файла под тем номером, которого нет в *.html.

Надеюсь так я смог лучше выразить свою проблему.

Спасибо.

 

[madmasles]

classick,
У Вас изначально не правильно была поставлена задача. И моя функция _OnlyOne(), и Garrett`а _ArrayRemoveDuplicateItems() (они практически одинаковые), делают то, что указано в первом посте, то есть возвращают из одномерного массива только те элементы, которые входят в него только один раз.
Надо было сразу писать про папки и файлы.
Попробуйте сделать примерно так (пути к папкам в массиве $a_Dirs поменяйте на свои). Скрипт вернет массив с файлами, имена которых (без расширения) есть только в одной из этих папок.

Спойлер

#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)

 

[classick]

2 madmasles,

Спасибо! Это именно то, что мне необходимо.

Позвольте задать уточняющий вопрос:

classick,
И моя функция _OnlyOne(), и Garrett`а _ArrayRemoveDuplicateItems() (они практически одинаковые), делают то, что указано в первом посте, то есть возвращают из одномерного массива только те элементы, которые входят в него только один раз.

В том коде, что я указал выше, я объединил 2 одномерных массива в один. Почему ф-и, которые Вы указали ранее не отрабатывают по этому одному массиву также, как Ваша последняя?

Спасибо!

 

[madmasles]

classick [?]

В том коде, что я указал выше, я объединил 2 одномерных массива в один. Почему ф-и, которые Вы указали ранее не отрабатывают по этому одному массиву также, как Ваша последняя?

Я Ваш код особо не смотрел и не проверял, так что ответить не могу.

 

[classick]

Спасибо всем за оказанную помощь!

 

[AZJIO]

classick
Посмотри функцию _Unique_Lines_Text2 в Compare strings.
Получение списка файлов через FileOperations.
Первая функция работает со списком, а не массивом, вторая - поиск файлов получает список, если установлен флаг "не массив".

 

[classick]

Пошел немножко другим способом, т.к. все вышеуказанные ну очень сложные для меня, как для новичка

Прошу оценить: :-[

Спойлер

_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)

 

[AZJIO]

classick
Ваш вариант намного сложнее, кроме того он ресурсоёмкий. Я предложил две функции (две строки), всё. Хотя вспомнил что нужно регулярное выражение для удаления расширений, типа (?s)\..+(?=\r\n) заменить на ничего. А после получения списка присоединить расширение. Я сейчас в Linux, пример дать не могу. В функцию передаются два списка, возвращается список отсутствующих во втором. Что именно там сложно?

 

[madmasles]

classick [?]

вышеуказанные ну очень сложные для меня

Я упростил свой код.