Транслитерация

[alleonid]

Уважаемые участники форума!
Не подскажете - где можно найти VB шные или VBA шные функции с минюстовской транслитерацией кириллического текста ?
С уважением. Леонид.

[alibek]

Выложил бы ты эти минюстовские правила.

[alleonid]

Да минюстовскую я так - для красного словца .
Любую хотя бы - хоть ту что в Яндексовых ящиках работает?

[alibek]

Поищи по форуму.
Эта тема поднималась много раз и ее уже разжевали так, что дальше некуда.

[RayShade]

Когда то давно, года 4 назад, я реализовал транслитерацию вот таким вот способом.

Код: Выделить всё

Private Const strTranslitLower As String = "a b v g d e zhz i j k l m n o p r s t u f h c chshsh   i   ejuya"
Private Const strTranslitUpper As String = "A B V G D E ZhZ I J K L M N O P R S T U F H C ChShSh   I   EJuYa"

Private Function Transliterate(ByRef lWhat As String) As String
Dim i As Long
Dim strResult As String
For i = 1 To Len(lWhat)
Select Case Asc(Mid(lWhat, i, 1))
Case 224 To 255: strResult = strResult & Trim(Mid(strTranslitLower, (Asc(Mid(lWhat, i, 1)) - 223) * 2 - 1, 2))
Case 192 To 223: strResult = strResult & Trim(Mid(strTranslitUpper, (Asc(Mid(lWhat, i, 1)) - 191) * 2 - 1, 2))
Case 184: strResult = strResult & "e"
Case 168: strResult = strResult & "E"
Case Else: strResult = strResult & Mid(lWhat, i, 1)
End Select
Next i
Transliterate = strResult
End Function


[Cryonyx]

Кста, а какое максимальное число языков осиливала прога-транслиттер и что это была за прога, ни кто не скажет?

[alleonid]

Большое спасибо.

Когда то давно, года 4 назад, я реализовал транслитерацию вот таким вот способом.

[alibek]

RayShade, ты меня пугаешь...