Автор Тема: Как перевести текст с кириллицы на латиницу?  (Прочитано 420 раз)

0 Пользователей и 1 Гость просматривают эту тему.

SimplY

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Например,

$ru = "Петров"

// Скрипт переводит на англ

$en = "Petrov"

Или

$ru = "Молоко"

// Скрипт переводит на англ

$en = "Moloko"
« Последнее редактирование: Декабрь 03, 2021, 04:47:25 pm от SimplY »

dramster

  • Герой форума
  • *****
  • Сообщений: 1130
    • Просмотр профиля
Re: Как перевести текст с кириллицы на латиницу?
« Ответ #1 : Декабрь 03, 2021, 06:26:37 pm »
Код: Clickermann
  1. IF(arrsize($arr_ru)=0)  //выполняем один раз при старте
  2.   STRSEPARATE("А,Б,В,Г,Д,Е,Ё,Ж,З,И,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ы,Э,Ю,Я,а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ы,э,ю,я", ",", $arr_ru)
  3.   STRSEPARATE("A,B,V,G,D,E,E,ZH,Z,I,I,K,L,M,N,O,P,R,S,T,U,F,KH,TC,CH,SH,SHCH,Y,E,IU,IA,a,b,v,g,d,e,e,zh,z,i,i,k,l,m,n,o,p,r,s,t,u,f,kh,tc,ch,sh,shch,y,e,iu,ia", ",", $arr_en)
  4. END_IF
  5.  
  6.  
  7. SUB(transliteration, $ru_str) //подпрограмма по замене ру символов латинскими
  8.   FOR($i=0,$i<arrsize($arr_ru))
  9.      $ru_str=STRREPLACE($ru_str, $arr_ru[$i], $arr_en[$i])
  10.   END_CYC
  11.   $en_str = $ru_str
  12. END_SUB
  13.  
  14.  
  15. // основной скрипт с вызовом подпрограммы
  16. $ru = "Петров"
  17. transliteration($ru)
  18. print($en_str)  //в логе результат "Petrov"
  19.  
  20.  
  21. halt // стоп
  22.  

SimplY

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: Как перевести текст с кириллицы на латиницу?
« Ответ #2 : Декабрь 03, 2021, 06:33:52 pm »
Спасибо!!!