Обработка строки

[ShogenOFF]

Добрый вечер. Предположим есть строка $string="абв" и 2 массива

dim $ar1[3] dim $ar2[3]

$ar1[0]="а" $ar2[0]="1"

$ar1[1]="б" $ar2[1]="2"

$ar1[2]="в" $ar2[2]="3"

теперь мне нужна ф-ия, кот. брала по ОДНОЙ БУКВЕ из $стринг, сверяла с каждым элементом массива $ар1, и если найдет совпадение заменяла букву значение такого же элемента из массива $ар2. Т.Е. "абв" заменяется строкой "123".

[FlatX007]

Код:

Код: Выделить всё

#include 
Global $string = "абвгд"
Dim $ar1[5], $ar2[5]
$ar1[0]= "а"
$ar1[1]= "б"
$ar1[2]= "в"
$ar1[3]= "г"
$ar1[4]= "д"
$ar2[0]= "1"
$ar2[1]= "2"
$ar2[2]= "3"
$ar2[3]= "4"
$ar2[4]= "5"
$iSL = StringLen($string)
For $i = 1 To $iSL
    $sSimbol = StringMid($string, $i, 1)
        For $l = 0 To UBound($ar1) - 1
            If $sSimbol = $ar1[$l] Then
                $ar1[$l] = $ar2[$l]
;~              ExitLoop
            EndIf
        Next
Next
_ArrayDisplay($ar1)