#include <Array.au3>
$str = "привет, как дела?"
ConsoleWrite ($str & @CRLF)
_Transliter ($str)
ConsoleWrite ($TranslitedString & @CRLF)
Func _Transliter ($StringToTranslit)
Dim $aCyrrilicTable[66] = ["а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ь", "ъ", "ы", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ь", "Ъ", "Ы", "Э", "Ю", "Я"]
Dim $aLatinTable[66] = ["a", "b", "v", "g", "d", "e", "yo", "zh", "z", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", "ts", "ch", "sh", "sch", "'", '"', "y", "e", "yu", "ya", "A", "B", "V", "G", "D", "E", "Yo", "Zh", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "H", "Ts", "Ch", "Sh", "Sch", "'", '"', "Y", "E", "Yu", "Ya"]
$aCyrString = StringSplit ($StringToTranslit, "")
Global $TranslitedString = ""
For $a = 1 To UBound ($aCyrString) - 1
$SymbolNum = _ArraySearch ($aCyrrilicTable, $aCyrString[$a])
If $SymbolNum <> -1 Then
$LatSymbol = $aLatinTable[$SymbolNum]
Else
$LatSymbol = $aCyrString[$a]
EndIf
$TranslitedString = $TranslitedString & $LatSymbol
Next
EndFunc ;==> _Transliter
|
