|
Форум AHK Программирование Исходники [PAWN] Конвертирование текста RUS->PWN |
[PAWN] Конвертирование текста RUS->PWN |
Offline
Код InputBox, input, PawnGameTextConverter, Введите текст output := ConvertText(me) Msgbox, %output% ConvertText(Text) { static Result Cyr := "aАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФхХцЦчЧшШщЩьЬъЪыЫэЭюЮяЯ" Lat := "aA—Ђў‹™‚љѓeEeE›„џ€њ…њ…kKћ‡ЇM®*oOЈЊpPcC¦ЏyYЃЃxX*‰¤ЌҐЋЎЉ©’ђ§Ё‘Є“«”¬•" Loop, parse, Text { found = if found := InStr(Lat, A_LoopField, 1) NewText .= SubStr(Cyr, found, 1) if !found if found := InStr(Cyr, A_LoopField, 1) NewText .= SubStr(Lat, found, 1) if !found NewText .= A_LoopField } Return NewText } |
| |||
| |||