Перевод кириллицы на латынь

[Wanderstep]

Есть у кого пример кода, как провести транслитерацию русских символов на латынь?
Пример: есть форма с текстовым полем NameField для русских имен (или несколько полей) и есть вычисляемое поле ResultField. В поле ResultField помещается результат перевода русского имени из NameField на латынь по правилам транслитерации.
В дальнейшем значение поля ResultField должно сохраниться в текстовом файле.

 

[Domino6]

Отправь себе СМСку с алфавитом вот и получиш транслимтерацию

 

[Wanderstep]

:angry: Правила транслитерации я знаю. :blink:
Как в Лотусе это реализовать?

 

[Medevic]

Идея такая. На собаке.

st := "вася";
kyr := @Explode("а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ь,ы,ъ,э,ю,я"; ","; @True);
lat := @Explode("a,b,v,g,d,e,е,zh,z,i,y,k,l,m,n,o,p,r,s,t,u,f,kh,ts,ch,sh,shch,,y,,e,yu,ya"; ","; @True);
@For(i := 1; i <= @Length(st); i := i + 1;
ch := @Middle(st; i - 1; 1);
n := @Member(ch; kyr); s := s + @If(n = 0; ch; lat[n])
);

Надо доработать с учетом заглавных букв (т.е. Женя -> Zhеnya) и с учетом транслитерации слов, написаных заглавными буквами (т.е. ЖЕНЯ -> ZHENYA).

 

[Domino6]

или простой @ReplaceSubstring

 

[Guest_valmont_*]

@ReplaceSubstring("абвг";"а":"б":"в":"г":"д";"a":"b":"v":"g":"d")
translit.ru там есть как заменяются символы.

 

[DNT]

@ReplaceSubstring("абвг";"а":"б":"в":"г":"д";"a":"b":"v":"g":"d")
translit.ru там есть как заменяются символы.

Вот более полный код, с учётом больших букв.

@ProperCase (@ReplaceSubstring(@LowerCase(LastName);"а":"б":"в":"г":"д":"е":"ё":"ж":"з":"и":"й":"к":"л":"м":"н":"о":"п":"р":"с":"т":"у":"ф":"х":"ц":"ч":"ш":"щ":"ь":"ы":"ъ":"э":"ю":"я";"a":"b":"v":"g":"d":"e":"е":"zh":"z":"i":"y":"k":"l":"m":"n":"o":"p":"r":"s":"t":"u":"f":"kh":"ts":"ch":"sh":"shch":"":"y":"":"e":"yu":"ya"))

просто сейчас столкнулся с этим и решил обновить топик