Что нового

Разделение значений цикла для значений массива

saloma

Новичок
Сообщения
19
Репутация
0
Добрый день. Возникла проблема, пока не нашел куда копать
Имеются 10 координат на мониторе.Пронумеруем их от 0 до 9.
Есть цикл, который последовательно выдает значения от 0000 до 9999. Например, если значение цикла равно 5463, то нужно кликнуть на координаты по номером 5 4 6 3.
Примерно прикинул, вот что вышло
Код:
Dim $array[10]
 $array[0] = [100,100]
 $array[1] = [100,100]
 $array[2] = [100,100]
 $array[3] = [100,100]
 $array[4] = [100,100]
 $array[5] = [100,100]
 $array[6] = [100,100]
 $array[7] = [100,100]
 $array[8] = [100,100]
 $array[9] = [100,100]
 
 
$i = 0000
While $i <= 9999
    Send("E")
    MouseClick(?)
	MouseClick(?)
	MouseClick(?)
	MouseClick(?)
    $i = $i + 1
WEnd


Собственно вопрос, как разделить значение цикла на 4 составляющие и соединить это с массивом
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Код:
Dim $array[10][2] = [[010,100],[110,100],[210,100],[310,100],[410,100],[510,100],[610,100],[710,100],[810,100],[910,100]]

For $i = 0 To 9999
  $idx = StringSplit(StringFormat("%.4d", $i), "", 2)
  For $j = 0 To 3
    MouseClick("", $array[$idx[$j]][0], $array[$idx[$j]][1])
  Next
Next
 
Автор
S

saloma

Новичок
Сообщения
19
Репутация
0
InnI сказал(а):
Код:
Dim $array[10][2] = [[010,100],[110,100],[210,100],[310,100],[410,100],[510,100],[610,100],[710,100],[810,100],[910,100]]

For $i = 0 To 9999
  $idx = StringSplit(StringFormat("%.4d", $i), "", 2)
  For $j = 0 To 3
    MouseClick("", $array[$idx[$j]][0], $array[$idx[$j]][1])
  Next
Next
спасибо
 
Верх