Отправлено Alex_66 03 апреля 2002 г. 16:16 В ответ на: Могу поделиться своей программкой для перекодировки строк для LCD(+) отправлено Константин Т 03 апреля 2002 г. 11:17

попробуйте, вам понравится

/* 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