[решено] Цикл вывода цифр и букв - Компьютерный форум OSzone.net

Доброго времени суток!

Нужно сделать цикл вывода цифр и букв вида: xxxxx-xxxxx

Код:

Dim $aLChar[1]

Local $iRez, $c = 1, $a = 65, $b = 90, $j = 6, $y = 1



HotKeySet('{F2}', 'My_Func2')





Func My_Func1()

 While $c <> 4

    For $i = $a To $b

        ReDim $aLChar[UBound($aLChar) + 1]

        $aLChar[UBound($aLChar) - 1] = Chr($i)

    Next

    $c += 1

    If $c = 2 Then

        $a = 97

        $b = 122

    Else

        $a = 48

        $b = 57

    EndIf

 WEnd



 For $i = 1 To 103

    If $i <> $j Then

        $iRez &= $aLChar[Random(1, 61, 1)]

    Else

        $iRez &= '-'

                $j = $j+6

    EndIf

 Next



 send($iRez)

EndFunc



Func My_Func2()

   $y = 2

EndFunc



while 1

    Call('My_Func1')

    $c = 1

    $a = 65

    $b = 90

    $j = 6

    $iRez = NULL

    if $y = 2 Then ExitLoop

WEnd

Сам разобрался.