[FlatX007]

Код:

#include <Array.au3>

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)