| Вопрос: Помогите с кодом транслитерации! | Добавлено: 28.12.05 16:09 |
Автор вопроса:  Alexander
|
| Если у кого имеется код (пример кода), который переводит русские буквы в латинские. Очень нужно... |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #1 | Добавлено: 28.12.05 17:54 |
|
Использовать Replace наверно стоит тут.
myText=Replace(myText, "Ю", "Yu" 
|
||
|
Номер ответа: 2 Автор ответа:  Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #2 | Добавлено: 28.12.05 18:09 |
|
В разделе Примеры было. И на VB6 и на .NET.
|
||
|
Номер ответа: 3 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #3 | Добавлено: 29.12.05 00:17 |
|
Заведи массив из 256 строк, каждая соответствует символу исходной строки. И там напиши, на какой фрагмент заменять данный символ.
Типа: Dim Map(0 to 255) as string Dim i as long for i=0 to 255 map(i)=chr$(i) next i 'Здесь надо перечислить каким-нибудь рациональным способом все русские буквы и их латинские эквиваленты. Можно завести файлик со списком, как это сделано в Punto Switcher. StOut="" For i=1 to len(stOut) StOut=StOut + Map(Asc(Mid$(StIn,i,1))) next i Этот способ, конечно, неэффективен, но все же быстрее, чем Replace-ами |
||
Страница: 1 |