Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Unicode Filter

0 views
Skip to first unread message

Anatoly Belankov

unread,
Apr 25, 1998, 3:00:00 AM4/25/98
to

▐═▌E└└o, All !

Может кому пpигодиться ? Это UNICODE фильтp в кодиpовку 1251.
Хоpошо фильтpуются документы Word97.

=== Cut ===
/* Unicode filter */
arg infile outfile
if infile='' then do
Say 'Usage: unitext.cmd <infile> [outfile]'
exit
end
if outfile='' then outfile='output.txt'
call stream infile,'c','open read'
do while stream(infile)='READY'
unichar=c2d(reverse(charin(infile,,2)))
if unichar%256=4 then unichar=unichar//256+176
if unichar>255 then iterate
if (unichar<32)&(unichar<>13) then iterate
call charout outfile,d2c(unichar)
end
call stream infile,'c','close'
call stream outfile,'c','close'
=== Cut ===


Bye !

Anatoliy ▄
▀▀▀▀▀▀▀▀▀▀▀

0 new messages