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

[saloma]

Добрый день. Возникла проблема, пока не нашел куда копать
Имеются 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]

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

 

[saloma]

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

спасибо