[Массивы] Сравнить Массивы

modnik · 10 Фев 2010

Версия AutoIt: 3.

Описание: у меня есть допустим пять заготовленных масивов(у всех колво элементов равно 4), элементам массива присвоены значения(цвета)

Функцией беруться 4 значения цвета с экрана и записываются в массив(в какойто другой) Дальше, нужно сравнить все элементы из полученного массива с загтовленными и если будет полное совпадение полученого массива с одним из загтовленных то допустим открывается окошко "The end"

gregaz · 10 Фев 2010

Можно так :

Код:

#include <Array.au3>

Dim $a1[5]=[4,0xDDDDDD,0xDD8080,0x8080AA,0x80DD80]
Dim $a2[5]=[4,0xEEEEEE,0xEE8080,0x8080BB,0x80EE80]
Dim $a3[5]=[4,0xFFFFFF,0xFF8080,0x8080CC,0x80FF80]
Dim $a4[5]=[4,0xCCCCCC,0xCC8080,0x8080DD,0x80CC80]

 Dim $a55[5]=[4,0xCCCCCC,0xCC8080,0x8080DD,0x80CC80]
;Dim $a55[5]=[4,0xDCCCCC,0xCC8080,0x8080DD,0x80CC80]

$sStr1=_ArrayToString( $a1,  1 )
$sStr2=_ArrayToString( $a2,  1 )
$sStr3=_ArrayToString( $a3,  1 )
$sStr4=_ArrayToString( $a4,  1 )

$sStr1_4=$sStr1 & $sStr2 & $sStr3 & $sStr4

$sStr55=_ArrayToString( $a55,  1 ) 

If StringRegExp ( $sStr1_4, $sStr55 , 0 ) Then 
    MsgBox(0,'','Совпадение найдено')
Else   
    MsgBox(0,'','Совпадений нет')
EndIf

modnik · 10 Фев 2010

Код:

#include <Array.au3>

а вот этот модуль надо где то скачивать?

gregaz · 10 Фев 2010

modnik сказал(а):
Код:

#include <Array.au3>

а вот этот модуль надо где то скачивать?

Нет Он есть в пакете AutoIT
Достаточно прописать его в начале скрипта так как у меня показано (#include <Array.au3>)

modnik · 10 Фев 2010

Вроде всё понял, переводим массивы в строки и сравниваем их. А можно получить значение с каким именно массивом совпдаает?

gregaz · 10 Фев 2010

modnik [?]

А можно получить значение с каким именно массивом совпдаает?

Код:

$array=StringRegExp ( $sStr1_4, $sStr55 , 1 )
_ArrayDisplay ($array,'$array')

Покажет массив совпавших элементов

kaster · 10 Фев 2010

Код:

$N = 4;
$M = 5;
Dim $a[$M][$N] = [ _
	[0xFFCCBB, 0xCBCBCB, 0xFFAA00, 0xAFAFAF], _
	[0xCBCBCB, 0xFF8080, 0xA0A0AA, 0xF0F0F0], _
	[0xAAAFFA, 0x101010, 0xFF9090, 0xDDFFDD], _
	[0xBBBBBB, 0xFFFFFF, 0xCCCCCC, 0x808080], _
	[0xABABAB, 0x707070, 0xFF90FF, 0xCCCCCB] _
]
Dim $tmp[$N] = [ _
	0xCBCBCB, _
	0xFF8080, _
	0xA0A0A0, _
	0xF0F0F0 _
]

For $i = 0 to $M - 1
	$ind = 0
	For $j = 0 to $N - 1
		If $a[$i][$j] <> $tmp[$j] Then ExitLoop
		$ind = 1
	Next
	If $ind = 1 Then _
	MsgBox(48, 'The End', 'Coincidence in ' & $i + 1 & 'th array')
Next

Добавлено:
Сообщение автоматически объединено: 10 Фев 2010

В силу достаточной тривиальности задачи, переношу тему в Раздел для новичков

modnik · 10 Фев 2010

а что значит знак "_" и что это за переменая j? вроде это строки и столбцы матрицы, они автоматом присваиваються?

kaster · 10 Фев 2010

modnik [?]

а что значит знак "_"

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

что это за переменая j? вроде это строки и столбцы матрицы

i и j - это скользящие индексы у матриц/массивов. В AutoIt нет необходимости инициализировать переменные до их использования (если только эта переменная не матрица). используется в цикле для перечисления всех элементов

gregaz · 10 Фев 2010

modnik [?]

А можно получить значение с каким именно массивом совпдаает?

Или так :

Код:

#include <Array.au3>

Dim $a1[5]=[4,0xDDDDDD,0xDD8080,0x8080AA,0x80DD80]
Dim $a2[5]=[4,0xEEEEEE,0xEE8080,0x8080BB,0x80EE80]
Dim $a3[5]=[4,0xFFFFFF,0xFF8080,0x8080CC,0x80FF80]
Dim $a4[5]=[4,0xCCCCCC,0xCC8080,0x8080DD,0x80CC80]

Dim $a55[5]=[4,0xDDDDDD,0xDD8080,0x8080AA,0x80DD80]
;Dim $a55[5]=[4,0xEEEEEE,0xEE8080,0x8080BB,0x80EE80]
;Dim $a55[5]=[4,0xCCCCCC,0xCC8080,0x8080DD,0x80CC80]
;Dim $a55[5]=[4,0xFFFFFF,0xFF8080,0x8080CC,0x80FF80]

$sStr1= '1 ' & _ArrayToString( $a1,  1 ) 
$sStr2= '2 ' & _ArrayToString( $a2,  1 )
$sStr3= '3 ' & _ArrayToString( $a3,  1 ) 
$sStr4= '4 ' & _ArrayToString( $a4,  1 ) 

$sStr1_4=$sStr1 & $sStr2 & $sStr3 & $sStr4

$sStr55=_ArrayToString( $a55,  1 ) 

$sPattern ='^.*(\d)\s' & $sStr55 & '.*$'
$sRez=StringRegExpReplace ( $sStr1_4, $sPattern, "\1" )
If $sRez=$sStr1_4 Then 
   MsgBox(0,'Инфо','Совпадений не найдено')
Else   
   MsgBox(0,'Инфо','Совпадение найдено в ' & $sRez & '-м массиве')
EndIf

Добавлено:
Сообщение автоматически объединено: 10 Фев 2010

Добавил случай несовпадения

Pers__ · 5 Авг 2014

В контексте задачи - есть-ли смысл использовать массивы ?
Как я понял - проще изначально цвета пикселей записывать в строку , а потом сравнивать ?

Автор темы	Похожие темы	Форум	Ответы	Дата
F	[Массивы и чекбоксы] Собрать набор чекбоксов из INI-файла и сохранить только выбранные	GUI - Графический интерфейс пользователя	0	Вчера в 03:42
T	[Массивы] Как сравнить два массива и показать отличающиеся элементы?	Общие вопросы по AutoIt	9	14 Июн 2015
T	[Массивы] сравнить 2 двумерных массива	Общие вопросы по AutoIt	6	3 Ноя 2014
M	[Массивы] Сравнить массивы!	Общие вопросы по AutoIt	5	23 Фев 2010
	Перенесено: [Массивы] Сравнить Массивы	Стол заказов	0	10 Фев 2010

Поиск

Поиск

[Массивы] Сравнить Массивы

modnik

Знающий

gregaz

AutoIT Гуру

modnik

Знающий

gregaz

AutoIT Гуру

modnik

Знающий

gregaz

AutoIT Гуру

kaster

Мой Аватар, он лучший самый

modnik

Знающий

kaster

Мой Аватар, он лучший самый

gregaz

AutoIT Гуру

Pers__

Новичок