Командная строка, батники, сценарии (bat, cmd) - [4522] :: Программы

Код:

@echo off
if "%*"=="" exit
set "str_end_char=$"
set "string=%*%str_end_char%"
set "count=0"
if not defined _str2trit_let call :fill_replace_table

set "count=0"
:loop
call set "char=%%string:~%count%,1%%"
if "%char%"=="%str_end_char%" goto :fin
for %%Z in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do if "%char%"=="%%Z" set "char=@%char%"
set "string2=%string2%%char%"
set /A "count=count+1"
goto :loop

:fin

for %%i in (%_str2trit_list%) do for /f "tokens=1,2 delims=:" %%k in ("%%i") do call set "string2=%%string2:%%k=%%l%%"

echo %string2%

exit

:fill_replace_table

set _str2trit_list=@Y@E:Е @Ye:Е ye:е @Y@O:Ё @Y:Ё yo:ё ^
@Y@U:Ю @Yu:Ю yu:ю @Y@A:Я @Ya:Я ya:я ^
@J@E:Е @Je:Е je:е @J@O:Ё @Jo:Ё jo:ё ^
@J@U:Ю @Ju:Ю ju:ю @J@A:Я @Ja:Я ja:я ^
@Z@H@Y:ЖИ @Zh@Y:ЖИ @Z@Hy:Жи @Zhy:Жи zhy:жи ^
@K@H@Y:ХЫ @Kh@Y:ХЫ @K@Hy:Хы @Khy:Хы khy:хы ^
@T@S@Y:ЦЫ @Ts@Y:ЦЫ @T@Sy:Цы @Tsy:Цы tsy:цы ^
@S@H@C@H@Y:ЩЫ @Shch@Y:ЩЫ @S@H@C@Hy:Щы @Shchy:Щы shchy:щы ^
@C@H@Y:ЧЫ @Ch@Y:ЧЫ @C@Hy:Чы @Chy:Чы chy:чы ^
@S@H@Y:ШИ @Sh@Y:ШИ @S@Hy:Ши @Shy:Ши shy:ши ^
@B@Y:БЫ @By:Бы by:бы @V@Y:ВЫ @Vy:Вы vy:вы ^
@G@Y:ГЫ @Gy:Гы gy:гы @D@Y:ДЫ @Dy:Ды dy:ды ^
@Z@Y:ЗЫ @Zy:Зы zy:зы @K@Y:КЫ @Ky:Кы ky:кы ^
@L@Y:ЛЫ @Ly:Лы ly:лы @M@Y:МЫ @My:Мы my:мы ^
@N@Y:НЫ @Ny:Ны ny:Ны @P@Y:ПЫ @Py:Пы py:пы ^
@R@Y:РЫ @Ry:Ры ry:ры @S@Y:СЫ @Sy:Сы sy:сы ^
@T@Y:ТЫ @Ty:Ты ty:ты @F@Y:ФЫ @Fy:Фы fy:фы ^
@E@H:Э @Eh:Э eh:э @A:А a:а @E:Е e:е @I:И i:и ^
@O:О o:о @U:У u:у @Z@H:Ж @Zh:Ж zh:ж ^
@K@H:Х @Kh:Х kh:х @T@S:Ц @Ts:Ц ts:ц ^
@S@H@C@H:Щ @Shch:Щ shch:щ @C@H:Ч @Ch:Ч ch:ч ^
@S@H:Ш @Sh:Ш sh:ш @B:Б b:б @V:В v:в @G:Г g:г ^
@D:Д d:д @Z:З z:з @K:К k:к @L:Л l:л @M:М m:м ^
@N:Н n:н @P:П p:п @R:Р r:р @S:С s:с @T:Т t:т ^
@F:Ф f:ф @H:Х h:х @C:Ц c:ц @W:В w:в @Q:К q:к ^
@X:Кс x:кс @Y:Й y:й ':ь ^
ЖЫ:ЖИ Жы:Жи жы:жи ШЫ:ШИ Шы:Ши шы:ши ЧЯ:ЧА Чя:Ча чя:ча ^
ЩЯ:ЩА Щя:Ща щя:ща ЧЮ:ЧУ Чю:Чу чю:чу ЩЮ:ЩУ Щю:ЩУ щю:щу
exit /b

Модерирует : gyra, Maz
articlebot (21-06-2016 11:40): Следующая часть - Командная строка, батники, сценарии (bat, cmd)	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению