| Вопрос: русскиий шрифт --> латиница | Добавлено: 21.04.03 12:08 |
Автор вопроса:  Geo | ICQ: 81917030 |
|
А Как переконвертить русские символы в латиницу. т.е. типа - Вася Пупкин --> Vasia Pupkin |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: hedgehog ICQ: 175571327 Вопросов: 15 Ответов: 207 |
Web-сайт: Профиль | | #1 | Добавлено: 21.04.03 12:29 |
 Public Function Transliterate(ByVal Source As String) As String 'òðàíñëèòåðàöèÿ ñòðîêè Dim A1 As String, A2() As String, CH As String, Pos As Integer Dim i As Integer A1 = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" A2 = Split("a|b|v|g|d|e|yo|zh|z|i|j|k|l|m|n|o|p|r|s|t|u|f|h|tz|ch|sh|shch||y||e|yu|ya", "|") For i = 1 To Len(Source) CH = Mid(Source, i, 1) Pos = InStr(1, A1, CH) If Pos > 0 And Pos < 34 Then comTransliterate = comTransliterate & A2(Pos - 1) ElseIf Pos > 33 Then comTransliterate = comTransliterate & UCase(A2(Pos - 34)) Else comTransliterate = comTransliterate & CH End If Next i End Function |
||
Страница: 1 |