Преобразование текста из кирилици в латиницу

[eropov]

Здравствуйте, помогите создать функцию, которая будет преобразовывать текст из кирилици в латиницу и обратно.
Есть код данной функции на php:

Спойлер

function translitIt($str) 
{
    $tr = array(
        "А"=>"a","Б"=>"b","В"=>"v","Г"=>"g",
        "Д"=>"d","Е"=>"e","Ж"=>"j","З"=>"z","И"=>"i",
        "Й"=>"y","К"=>"k","Л"=>"l","М"=>"m","Н"=>"n",
        "О"=>"o","П"=>"p","Р"=>"r","С"=>"s","Т"=>"t",
        "У"=>"u","Ф"=>"f","Х"=>"h","Ц"=>"ts","Ч"=>"ch",
        "Ш"=>"sh","Щ"=>"sch","Ъ"=>"","Ы"=>"yi","Ь"=>"",
        "Э"=>"e","Ю"=>"yu","Я"=>"ya","а"=>"a","б"=>"b",
        "в"=>"v","г"=>"g","д"=>"d","е"=>"e","ж"=>"j",
        "з"=>"z","и"=>"i","й"=>"y","к"=>"k","л"=>"l",
        "м"=>"m","н"=>"n","о"=>"o","п"=>"p","р"=>"r",
        "с"=>"s","т"=>"t","у"=>"u","ф"=>"f","х"=>"h",
        "ц"=>"ts","ч"=>"ch","ш"=>"sh","щ"=>"sch","ъ"=>"y",
        "ы"=>"yi","ь"=>"","э"=>"e","ю"=>"yu","я"=>"ya", 
        " "=> "_", "."=> "", "/"=> "_"
    );
    return strtr($str,$tr);
}

 

[joiner]

скорее всего вот твоя тема http://autoit-script.ru/index.php/topic,6832.0.html

 

[eropov]

Спасибо Александр, мне нужно было как то так:

Спойлер

MsgBox(0, "translitIt", _translitIt("Привет мир"))

func _translitIt($string)
$string = StringReplace($string,"А","a")
$string = StringReplace($string,"Б","b")
$string = StringReplace($string,"В","v")
$string = StringReplace($string,"Г","g")
$string = StringReplace($string,"Д","d")
$string = StringReplace($string,"Е","e")
$string = StringReplace($string,"Ё","e")
$string = StringReplace($string,"Ж","j")
$string = StringReplace($string,"З","z")
$string = StringReplace($string,"И","i")
$string = StringReplace($string,"Й","y")
$string = StringReplace($string,"К","k")
$string = StringReplace($string,"Л","l")
$string = StringReplace($string,"М","m")
$string = StringReplace($string,"Н","n")
$string = StringReplace($string,"О","o")
$string = StringReplace($string,"П","p")
$string = StringReplace($string,"Р","r")
$string = StringReplace($string,"С","s")
$string = StringReplace($string,"Т","t")
$string = StringReplace($string,"У","u")
$string = StringReplace($string,"Ф","f")
$string = StringReplace($string,"Х","h")
$string = StringReplace($string,"Ц","ts")
$string = StringReplace($string,"Ч","ch")
$string = StringReplace($string,"Ш","sh")
$string = StringReplace($string,"Щ","sch")
$string = StringReplace($string,"Ъ","")
$string = StringReplace($string,"Ы","yi")
$string = StringReplace($string,"Ь","")
$string = StringReplace($string,"Э","e")
$string = StringReplace($string,"Ю","yu")
$string = StringReplace($string,"Я","ya")
$string = StringReplace($string,"а","a")
$string = StringReplace($string,"б","b")
$string = StringReplace($string,"в","v")
$string = StringReplace($string,"г","g")
$string = StringReplace($string,"д","d")
$string = StringReplace($string,"е","e")
$string = StringReplace($string,"ё","e")
$string = StringReplace($string,"ж","j")
$string = StringReplace($string,"з","z")
$string = StringReplace($string,"и","i")
$string = StringReplace($string,"й","y")
$string = StringReplace($string,"к","k")
$string = StringReplace($string,"л","l")
$string = StringReplace($string,"м","m")
$string = StringReplace($string,"н","n")
$string = StringReplace($string,"о","o")
$string = StringReplace($string,"п","p")
$string = StringReplace($string,"р","r")
$string = StringReplace($string,"с","s")
$string = StringReplace($string,"т","t")
$string = StringReplace($string,"у","u")
$string = StringReplace($string,"ф","f")
$string = StringReplace($string,"х","h")
$string = StringReplace($string,"ц","ts")
$string = StringReplace($string,"ч","ch")
$string = StringReplace($string,"ш","sh")
$string = StringReplace($string,"щ","sch")
$string = StringReplace($string,"ъ","y")
$string = StringReplace($string,"ы","yi")
$string = StringReplace($string,"ь","")
$string = StringReplace($string,"э","e")
$string = StringReplace($string,"ю","yu")
$string = StringReplace($string,"я","ya")
$string = StringReplace($string," ", "-")
$string = StringReplace($string,".", "")
$string = StringReplace($string,"/","_")
Return $string
EndFunc