День добрый, всем!
Практики работы с массивами у меня нет, поэтому сижу и туплю.
Есть массив (Dim $aArray[4][9] = [["d6","d7","d8","d9","d1","dJ","dQ","dK","dA"],["c6","c7","c8","c9","c1","cJ","cQ","cK","cA"],["s6","s7","s8","s9","s1","sJ","sQ","sK","sA"],["h6","h7","h8","h9","h1","hJ","hQ","hK","hA"]]) с которым нужно работать.
Суть состоит в том что, получаем строки (строки такие же как и в массиве сверху) в одномерный массив и на основе этих строк перекладываем значения $aArray[4][9] в другой массив [4][9]
Вот болванка она работает не правильно (плохо ищет)
Dim $aKoloda[4][9] = [["d6","d7","d8","d9","d1","dJ","dQ","dK","dA"],["c6","c7","c8","c9","c1","cJ","cQ","cK","cA"],["s6","s7","s8","s9","s1","sJ","sQ","sK","sA"],["h6","h7","h8","h9","h1","hJ","hQ","hK","hA"]]
Dim $aKolod[6] = ["dJ.gif","c6.gif","hJ.gif","hA.gif","s9.gif","sJ.gif"]
For $i=0 To 20
$aa = StringRegExp($aKolod[$i], '([cdhs][67891JQKA]\.gif)', 1, $i)
;$aA = StringRight ($aa, 4)
_ArrayDisplay($aa)
$ai = _ArraySearch ($aKoloda,$aa,$i)
MsgBox(1,$aa,$ai)
_ArrayDisplay($ai)
Next
Практики работы с массивами у меня нет, поэтому сижу и туплю.
Есть массив (Dim $aArray[4][9] = [["d6","d7","d8","d9","d1","dJ","dQ","dK","dA"],["c6","c7","c8","c9","c1","cJ","cQ","cK","cA"],["s6","s7","s8","s9","s1","sJ","sQ","sK","sA"],["h6","h7","h8","h9","h1","hJ","hQ","hK","hA"]]) с которым нужно работать.
Суть состоит в том что, получаем строки (строки такие же как и в массиве сверху) в одномерный массив и на основе этих строк перекладываем значения $aArray[4][9] в другой массив [4][9]
Вот болванка она работает не правильно (плохо ищет)
Dim $aKoloda[4][9] = [["d6","d7","d8","d9","d1","dJ","dQ","dK","dA"],["c6","c7","c8","c9","c1","cJ","cQ","cK","cA"],["s6","s7","s8","s9","s1","sJ","sQ","sK","sA"],["h6","h7","h8","h9","h1","hJ","hQ","hK","hA"]]
Dim $aKolod[6] = ["dJ.gif","c6.gif","hJ.gif","hA.gif","s9.gif","sJ.gif"]
For $i=0 To 20
$aa = StringRegExp($aKolod[$i], '([cdhs][67891JQKA]\.gif)', 1, $i)
;$aA = StringRight ($aa, 4)
_ArrayDisplay($aa)
$ai = _ArraySearch ($aKoloda,$aa,$i)
MsgBox(1,$aa,$ai)
_ArrayDisplay($ai)
Next