Замена вводимых символов - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте ув. программисты! Нужна следующая помощь: Есть textbox1 в который вводится текст на пример qwerty. Необходимо вывести в textbox2 - йцукен. Также нужно что бы вместо qwerty мог быть текст любой длины. Заранее спасибо за любую помощь =)

Решение задачи: «Замена вводимых символов»

textual
Листинг программы
Const LAT = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
Const RUS = "йцукенгшщзфывапролдячсмитьЙЦУКЕНГШЩЗФЫВАПРОЛДЯЧСМИТЬ"
 
Private Sub Text1_Change()
Dim i&, j&, s$, d$
s = Text1
For i = 1 To Len(s)
    j = InStr(LAT, Mid$(s, i, 1))
    If j Then
        d = d & Mid$(RUS, j, 1)
    Else
        j = InStr(RUS, Mid$(s, i, 1))
        If j Then d = d & Mid$(LAT, j, 1)
    End If
Next
Text2 = d
End Sub

Оцени полезность:

10   голосов , оценка 3.6 из 5