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

Код:

@echo off

REM :: TRIT - TRanslITerate, usage: trit "text"
REM :: Info from here: http://textpattern.ru/html/transliteration-tables.htm
REM :: and here: http://textpattern.ru/forum/viewtopic.php?id=50

setlocal enableextensions enabledelayedexpansion

call

CQ %1 _str2trit

set _str2trit_list=ye е Ye Е YE Е yo ё Yo Ё YO Ё yu ю Yu Ю YU Ю ya я Ya Я YA Я ^
je е Je Е JE Е jo ё Jo Ё JO Ё ju ю Ju Ю JU Ю ja я Ja Я JA Я ^
zhy жи Zhy Жи ZHy Жи ZhY ЖИ ZHY ЖИ khy хы Khy Хы KHy Хы KhY ХЫ KHY ХЫ ^
tsy цы Tsy Цы TSy Цы TsY ЦЫ TSY ЦЫ shchy щы Shchy Щы SHCHy Щы ShchY ЩЫ SHCHY ЩЫ ^
chy чы Chy Чы CHy Чы ChY ЧЫ CHY ЧЫ shy ши Shy Ши SHy Ши ShY ШИ SHY ШИ ^
by бы By Бы BY БЫ vy вы Vy Вы VY ВЫ gy гы Gy Гы GY ГЫ dy ды Dy Ды DY ДЫ zy зы Zy Зы ZY ЗЫ ^
ky кы Ky Кы KY КЫ ly лы Ly Лы LY ЛЫ my мы My Мы MY МЫ ny Ны Ny Ны NY НЫ py пы Py Пы PY ПЫ ^
ry ры Ry Ры RY РЫ sy сы Sy Сы SY СЫ ty ты Ty Ты TY ТЫ fy фы Fy Фы FY ФЫ ^
eh э Eh Э EH Э a а A А e е E Е i и I И o о O О u у U У ^
zh ж Zh Ж ZH Ж kh х Kh Х KH Х ts ц Ts Ц TS Ц shch щ Shch Щ SHCH Щ ^
ch ч Ch Ч CH Ч sh ш 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 Й ' ь ^
жы жи Жы Жи ЖЫ ЖИ шы ши Шы Ши ШЫ ШИ чя ча Чя Ча ЧЯ ЧА щя ща Щя Ща ЩЯ ЩА ^
чю чу Чю Чу ЧЮ ЧУ щю щу Щю ЩУ ЩЮ ЩУ

set "_str2trit_sfrom="
for %%Z in (%_str2trit_list%) do (
if ""=="!_str2trit_sfrom!" (
set "_str2trit_sfrom=%%Z"
) else (
call :REPL _str2trit !_str2trit_sfrom! %%Z
set "_str2trit_sfrom="
)
)
set _str2trit=!_str2trit:"=ъ!

echo !_str2trit!
goto :RETURN

:REPL
set _str2repl=!%1!
set _str2repl=!_str2repl:%2=%3!
set %1=!_str2repl!
goto :RETURN

CQ
set "_str2dcq_result=%1"
set /a _numofdisclosures=0
set /a _str2dcq_blank=0
:LOOP
set _str2dcq_bquot=!_str2dcq_result!
set _str2dcq_bquot=!_str2dcq_bquot:~0,1!
set _str2dcq_equot=!_str2dcq_result!
set _str2dcq_equot=!_str2dcq_equot:~-1!
set _str2dcq=!_str2dcq_result!
if !_str2dcq_bquot!==^" (
if !_str2dcq_bquot!==!_str2dcq_equot! (
set _str2dcq_bquot=!_str2dcq_bquot:"=!
set _str2dcq_equot=!_str2dcq_equot:"=!
set _str2dcq=!_str2dcq:~0,-1!
set _str2dcq=!_str2dcq:~1!
set _str2dcq_result=!_str2dcq_bquot!!_str2dcq!!_str2dcq_equot!
set /a _numofdisclosures+=1
goto :LOOP
)
) else (
if "~0,1"=="!_str2dcq_bquot!" set /a _str2dcq_blank=1
)
set %2=!_str2dcq_result!
goto :RETURN

:RETURN
endlocal

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