Задать переменную с переменной внутри

[MRGYV]

Добрый день!

У меня необычный вопрос. Как осуществить перебор по переменным...Наверное понятней будет на примере:

$i=1
$l&$i =15
MsgBox(0, "Test", $l1)

Для чего это нужно? Я написал небольшую программку, но в ней очень много переменных. Переменный все типа: $per_1_1 $per_2_1 $per_1_2

Для всех переменных выполняется одно и тоже действие, например MsgBox(0, "Test", $per_1_1). Переменных очень много и значения в них образуются разными путями. Для упрощения кода, я хотел вывести процедуру в свою функцию с указанием параметров. Например при нажатии кнопки 1 выполняются процедуры с переменной $per_1_1, $per_1_2 и по $per_1_125.

 

[InnI]

$i=1
Assign("l"&$i, 15)
MsgBox(0, "Test", Eval("l1"))

 

[MRGYV]

InnI
Спасибо большое! Работает!

 

[InnI]

OffTopic:
MRGYV
Если умеете работать с массивами, то в вашем случае лучше использовать двумерный массив

Спойлер

Global $per[3][126]

$per[1][1] = 10
$per[1][2] = 20
$per[1][125] = 100500
$per[2][1] = 30
$per[2][2] = 40
For $i = 71 To 75
  $per[1][$i] = "per" & $i
Next

For $i = 1 To 125
  If $per[1][$i] Then ConsoleWrite($per[1][$i] & @CRLF)
Next
ConsoleWrite($per[2][1] & @CRLF)
ConsoleWrite($per[2][2] & @CRLF)