• Страница 1 из 1
  • 1
[PAWN] Конвертирование текста RUS->PWN
Владислав
Дата: Суббота, 09.11.2013, 21:58 | Сообщение # 1
Главный
Сообщений:
527
Награды:
5
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  
  }
  • Страница 1 из 1
  • 1
Поиск: