Можно ли создать интерпретатор для перевода латинских букв в кириллицу

@Pro_Dave · Регистрация: 17.12.2011

Author24 — интернет-сервис помощи студентам

Можно ли создать интепритарор для перевода латинских букв в кирилицу,типа как на клаве:
F=А,D=В и т.д СПАСИБО

@Pro_grammer · 11.03.2012, 23:00

Сообщение от Pro_Dave

Можно ли создать

Можно.
Только поменяй на свой набор букв, а принцип тот же будет:

PureBasic

; registrymechanic (c)
Procedure.s TranslitSend (Translit.s)
RusskieBukvi.s="а:б:в:г:д:е:ё:ж:з:и:й:к:л:м:н:о:п:р:с:т:у:ф:х:ц:ч:ш:щ:ъ:ы:ь:э:ю:я:А:Б:В:Г:Д:Е:Ё:Ж:З:И:Й:К:Л:М:Н:О:П:Р:С:Т:У:Ф:Х:Ц:Ч:Ш:Щ:Ъ:Ы:Ь:Э:Ю:Я"
AngliyyskieBukvi.s="a:b:v:g:d:e:yo:g:z:i:y:k:l:m:n:o:p:r:s:t:u:ph:h:ts:ch:sh:sh:`:i:':e:yu:ya:A:B:V:G:D:E:Yo:G:Z:I:Y:K:L:M:N:O:P:R:S:T:U:Ph:H:Ts:Ch:Sh:Sh:`:I:':E:Yu:Ya"
    Repeat
       SimvolStr+1
          Translit=ReplaceString(Translit, StringField(RusskieBukvi, SimvolStr, ":"), StringField(AngliyyskieBukvi,SimvolStr, ":"))
    Until SimvolStr=66
ProcedureReturn Translit
EndProcedure
 
Debug TranslitSend ("Чурка, шалаш, Щебень!? Жириновский +  Йога")

@Pro_Dave · 12.03.2012, 17:51 **[ТС]**

Спасибо!!!!!!!

@Quiet Snow · 13.03.2012, 08:59

За что мне нравится пюр, так это за его невероятно ёмкую и гибкую работу со строками.
Можно оперативно ваять всякие анализаторы и простенькие скриптовые системы.

@Pro_Dave 0 / 0 / 0 Регистрация: 17.12.2011 Сообщений: 78
		1
	Можно ли создать интерпретатор для перевода латинских букв в кириллицу 11.03.2012, 21:18. Показов 2914. Ответов 3 Метки нет (Все метки) Можно ли создать интепритарор для перевода латинских букв в кирилицу,типа как на клаве: F=А,D=В и т.д СПАСИБО 0

@Pro_Dave 0 / 0 / 0 Регистрация: 17.12.2011 Сообщений: 78
	12.03.2012, 17:51 [ТС]	3
	Спасибо!!!!!!! 0

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,625 Записей в блоге: 2
	13.03.2012, 08:59	4
	За что мне нравится пюр, так это за его невероятно ёмкую и гибкую работу со строками. Можно оперативно ваять всякие анализаторы и простенькие скриптовые системы. 0