[an error occurred while processing this directive]
[an error occurred while processing this directive]
|
попробуйте, вам понравится
/* rexx */
otable='ЙЦУКЕHГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапpолджэячсмитьбю'
itable='ггL¦+=++-¦--L-TL¦¦+T-¦¦-+T¦LT-+¦щЎєъхэу°•чї·ЇvтряЁюыфц¤ ўёьшЄ№с¦'
parse arg infname "." fext
outfname=infname || '.out'
f=infname||"."||fext
do forever
if lines(f)=0 then do
leave
rc=lineout(outfname)
end
s=linein(f)
so=translate(s,itable,otable)
/*say so*/
rc=lineout(outfname,so)
end
E-mail: info@telesys.ru