Функция для транслита русского языка

@Nlk · Регистрация: 27.04.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте форумчане. Имеется два TextBox-а в 1м написана фраза на русском языке, как сделать, чтобы во 2м выводился транслит этой фразы?

Функция транслита вот:

Visual Basic

Function Translit(ByVal txt As String) As String        ' с учётом регистра символов
   txtRussian$ = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
    arrTranslit = Array("", "a", "b", "v", "g", "d", "e", "e", "zh", "z", "i", "y", "k", _
                        "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "tch", _
                        "sh", "sch", "", "y", "", "e", "yu", "ya")
    For iCount% = 1 To 33
        txt$ = Replace(txt$, Mid(txtRussian$, iCount%, 1), arrTranslit(iCount%), , , vbBinaryCompare)      ' строчные
       txt$ = Replace(txt$, UCase(Mid(txtRussian$, iCount%, 1)), UCase(arrTranslit(iCount%)), , , vbBinaryCompare)     ' прописные
   Next
    Translit$ = txt$
End Function

@Hugo121 · 16.06.2014, 10:57

Возможно

Visual Basic

1	TextBox2 = Translit(TextBox1)

если угадал с названиями

@Nlk · 16.06.2014, 12:15 **[ТС]**

Hugo121, спасибо, но не то)

@Hugo121 · 16.06.2014, 12:19

И чем не то?
Отлично всё работает...

Visual Basic

1
2
3

Private Sub UserForm_Click()
    TextBox2 = Translit(TextBox1)
End Sub

@Nlk · 16.06.2014, 12:21 **[ТС]**

Hugo121, я чё-то проверил, не робит, ты проверял?

shanemac51 · 16.06.2014, 12:22

й / ы --на одну букву
ъ / ь --совсем выкинули

весьма спорно

Visual Basic

Sub mm140616()
Debug.Print Translit("абв гдеё ж зий клмн опрст уф х ц ч ш щ ъыь э ю я  объект мальчик")
'                     abv gdee zh ziy klmn oprst uf kh ts tch sh sch `y` e yu ya
 
End Sub
Function Translit(ByVal txt As String) As String
' с учётом регистра символов
Debug.Print txt
Dim txtRussian$, arrTranslit, iCount%, txt2
   txtRussian$ = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
    arrTranslit = Array("", "a", "b", "v", "g", "d", "e", "e", "zh", "z", "i", "y", "k", _
                        "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "tch", _
                        "sh", "sch", "`", "y", "`", "e", "yu", "ya")
    txt2 = txt
    For iCount% = 1 To 33
       txt2 = Replace(txt2, Mid(txtRussian$, iCount%, 1), arrTranslit(iCount%), , , vbBinaryCompare)      ' строчные
       txt2 = Replace(txt2, UCase(Mid(txtRussian$, iCount%, 1)), UCase(arrTranslit(iCount%)), , , vbBinaryCompare)     ' прописные
   Next
    Translit$ = txt2
End Function

@Nlk · 16.06.2014, 12:37 **[ТС]**

Hugo121, и как к стати вот эти переменные объявил?

Добавлено через 9 минут
Hugo121, точно, работает, спасибо) а можно сделать так, чтобы не тыкать по форме чтобы перевелось, а в авто режиме?

Добавлено через 3 минуты
Все разобрался, спасибо за быстрый ответ

@Hugo121 · 16.06.2014, 13:01

Ну вот, а то не то...
Вообще нужно было сразу показать свои текстбоксы, и хотелку - заносить перевод в текстбокс можно по тысяче событий...
Да и текстбоксы могут быть разные...

А переменных тут никаких нет.

Добавлено через 4 минуты
Для текстбоксов листа работает аналогично:

Visual Basic

1
2
3

Sub tt()
TextBox2 = Translit(TextBox1)
End Sub

По какому событию выполнять код - тоже тысяча вариантов, к делу/вопросу не относится.

@Sasha_Smirnov · 16.06.2014, 13:08

Сообщение от Nlk

чтобы не тыкать по форме

Вообще без форм — для Word-документа: Транслитерация. Сохранение форматирования текста.

@Nlk 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 31
	16.06.2014, 12:15 [ТС]	3
	Hugo121, спасибо, но не то) 0

@Nlk 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 31
	16.06.2014, 12:21 [ТС]	5
	Hugo121, я чё-то проверил, не робит, ты проверял? 0

@Nlk 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 31
	16.06.2014, 12:37 [ТС]	7
	Hugo121, и как к стати вот эти переменные объявил? Добавлено через 9 минут Hugo121, точно, работает, спасибо) а можно сделать так, чтобы не тыкать по форме чтобы перевелось, а в авто режиме? Добавлено через 3 минуты Все разобрался, спасибо за быстрый ответ 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	16.06.2014, 13:08	9
	Сообщение от Nlk чтобы не тыкать по форме Вообще без форм — для Word-документа: Транслитерация. Сохранение форматирования текста. 0

Функция для транслита русского языка

Решение