Всем привет! Понадобилось написать программу для перевода русского текста в транслит. Набросал пример(перевод только маленьких букв):
Помогите пожалуйста оптимизировать.
Код:
#include <GUIConstants.au3>
Global $sBuffer
Dim $aLetters[33][2] = [['а','a'],['б','b'],['в','v'],['г','g'],['д','d'],['е','e'],['ё','e'],['ж','zh'],['з','z'],['и','i'], _
['й','y'],['к','k'],['л','l'],['м','m'],['н','n'],['о','o'],['п','p'],['р','r'],['с','s'],['т','t'], _
['u',''],['ф','f'],['х','h'],['ц','ts'],['ч','ch'],['ш','sh'],['щ','shch'],['ъ',"'"],['ы','i'],['ь',''], _
['э','ie'],['ю','yu'],['я','ya']]
GUICreate('Rus2Translit', 900, 600, -1, -1)
$hEdit_1 = GUICtrlCreateEdit ('', 0, 1, 450, 500, 2101248)
$hEdit_2 = GUICtrlCreateEdit ('', 450, 1, 450, 500, 2101248)
$hButton = GUICtrlCreateButton("Convert", 315, 550, 252, 30)
GUISetState()
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $hButton
$sBuffer = GUICtrlRead($hEdit_1)
For $i = 0 To UBound($aLetters)-1
$sBuffer = StringRegExpReplace($sBuffer, $aLetters[$i][0], $aLetters[$i][1])
Next
GUICtrlSetData( $hEdit_2, $sBuffer)
EndSwitch
Sleep(30)
WEnd
Помогите пожалуйста оптимизировать.
