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

[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,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

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

 

[Yashied]

А не лучше было бы сравнить посимвольно каждый массив с эталонным?

 

[modnik]

А подскажите пожалуйста как это сделать?

 

[snoitaleR]

modnik
Я предлагаю такой вариант...

; НАЧАЛО

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

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

 for $J=0 to 3
  $R=true
  for $I=0 to 4
   if $AA[$J][$I]<>$AB[$I] then $R=false
  next
  if $R then MsgBox(0,"","Совпадает с "&$J&"-ым массивом")
 next

 MsgBox(0,"","Конец")

; КОНЕЦ

 

[modnik]

modnik
Я предлагаю такой вариант...

; НАЧАЛО

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

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

 for $J=0 to 3
  $R=true
  for $I=0 to 4
   if $AA[$J][$I]<>$AB[$I] then $R=false
  next
  if $R then MsgBox(0,"","Совпадает с "&$J&"-ым массивом")
 next

 MsgBox(0,"","Конец")

; КОНЕЦ

не очень понимаю как, но всё работает.

 

[edyapd]

modnik
Я предлагаю такой вариант...

; НАЧАЛО

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

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

 for $J=0 to 3
  $R=true
  for $I=0 to 4
   if $AA[$J][$I]<>$AB[$I] then $R=false
  next
  if $R then MsgBox(0,"","Совпадает с "&$J&"-ым массивом")
 next

 MsgBox(0,"","Конец")

; КОНЕЦ

Можно чуть-чуть подправить:

for $I=0 to 4
   if $AA[$J][$I]<>$AB[$I] then 
       $R=false
       ExitLoop
   EndIf
  next

При больших объемах будет экономия времени. И почему то мне кажется, что есть варианты сравнения и попроще.