Гость пишет:
цитата: |
Файл, перекодированный с помощью oemtoansi, не поддерживает форматирование. |
|
Текстовый файл перекодированный с oem в ansi продолжает оставаться текстовым файлом
.
RTF содержит собственно как сам текст, так и управляющие символы (слова).
Более подробно о формате можете узнать
здесь Правда описание не полное, но для начала хватит
Ниже приведен код для конвертации с plain text в RTF для использования с [x] Harbour, думаю, что разобраться и перевести на Clipper будет не тяжело, как и дополнить новыми упр.символами ( см.выше указанную ссылку)
И еще RTF RTFу рознь
Это я о MS Office и OpenOffice, они, например, по разному сохраняют рисунки, но это так, мелочи.
//
// $Id: rtfclass.prg,v 1.1.1.1 2001/12/21 10:46:25 ronpinkas Exp $
//
/*
* harbour rtfclass demo
* notes : - raw enough but it works
- using hb_f*() - some compilers are not friendly with this :(
- rtf is assumed to have association
* initial release : 23 June 1999 Andi Jahja
* this program compiles fine on Borland C/C++ 5.0
* tested under Windows 98 only with RTF associated to Winword
* works with printable ascii only
* placed in the public domain
*/
#define CRLF CHR(13) + CHR(10)
function main()
local ortf := trtf():new("test.rtf")
local htest := fcreate( "rtf_test.txt")
local ctest := ""
// create a plain text file
ctest += "This is +bHarbour c RTF Class-b" + CRLF
ctest += "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG" + CRLF
ctest += "+bTHE QUICK BROWN FOX JUMPS OVER THE LAZY DOG-b" + CRLF
ctest += "+iTHE QUICK BROWN FOX JUMPS OVER THE LAZY DOG-i" + CRLF
ctest += "+buTHE QUICK BROWN FOX JUMPS OVER THE LAZY DOG-bu" + CRLF
ctest += "+buiTHE QUICK BROWN FOX JUMPS OVER THE LAZY DOG-bui" + CRLF
ctest += "THE +bQUICK-b +buBROWN-bu +buiFOX-bui +iJUMPS-i +uOVER-u +ilTHE-il +uLAZY-u +buDOG-bu" + CRLF
fwrite( htest, ctest )
fclose( htest )
// convert text file to rtf
ortf:write("rtf_test.txt")
ortf:close()
// execute file association ( windows only )
if lower( os() ) == "windows"
// assuming start.exe is exist
__run( "start test.rtf" )
endif
return nil
function trtf()
static oclass
if oclass == nil
oclass = HBClass():new( "trtf" )
oclass:adddata( "nhandle" )
oclass:addmethod( "new", @new() )
oclass:addmethod( "write", @write() )
oclass:addmethod( "close", @close() )
oclass:create()
endif
return oclass:instance()
static function new( cfilename )
local self := qself()
::nhandle = fcreate( cfilename )
fwrite( ::nhandle,;
"{\rtf1\ansi\deff0{\fonttbl {\f0\fnil\fcharset0 Courier New;}{\f1\fnil\fcharset0 Arial;}}"+;
"\uc1\pard\lang1033\ulnone\f0\fs20"+CRLF)
return self
static function write( csource )
local self := qself()
local cchar, cline, xatt, i, _xatt
local n, nchar, xchar, y
// These are character attributes, self-defined
// + means a turn-on
// - means a turn-off
local attrib := {;
{ "+b" , "\b " } /* turn bold on*/ ,;
{ "+bu" , "\ul\b " } /* turn bold_underline on */ ,;
{ "+bi" , "\b\i " } /* turn bold_italic on */ ,;
{ "+bui", "\ul\b\i " } /* turn bold_underline_italic on */ ,;
{ "+i" , "\i " } /* turn italic on */ ,;
{ "+il" , "\ul\i " } /* turn italic_underline on */ ,;
{ "+u" , "\ul " } /* turn underline on */ ,;
{ "-b" , "\b0 " } /* turn bold off */ ,;
{ "-bu" , "\b0\ulnone " } /* turn bold_underline off */ ,;
{ "-bi" , "\b0\i0 " } /* turn bold_italic off */ ,;
{ "-bui", "\b0\i0\ulnone " } /* turn bold_underline_italic off */,;
{ "-i" , "\i0 " } /* turn italic off */ ,;
{ "-il" , "\ulnone\i0 " } /* turn italic_underline off */ ,;
{ "-u" , "\ulnone " } /* turn underline off */ }
hb_fuse( csource ) // open source file
while !hb_feof() // read the file line by line
cline := hb_freadln() + "\par"
y := len( cline )
for nchar := 1 to y
cchar := substr( cline, nchar, 1 )
// todo : i need function dec2hex()
// to convert ascii to 2-characters hex
// ie : dec2hex( "H" ) -> 48
if cchar == "+" .or. cchar == "-"
xatt := cchar + ;
substr( cline, nchar + 1, 1 ) + ;
substr( cline, nchar + 2, 1 ) + ;
substr( cline, nchar + 3, 1 )
if ( i := ascan( attrib, { |e| e[1] == xatt } ) ) > 0
fwrite( ::nhandle, attrib
[2] )
nchar := nchar + len( xatt ) - 1
else
// 3 attributes
xatt := left( xatt, 3 )
if ( i := ascan( attrib, { |e| e[1] == xatt } ) ) > 0
fwrite( ::nhandle, attrib[2] )
nchar := nchar + len( xatt ) - 1
else
// 2 attributes
xatt := left( xatt, 2 )
if ( i := ascan( attrib, { |e| e[1] == xatt } ) ) > 0
fwrite( ::nhandle, attrib[2] )
nchar := nchar + len( xatt ) - 1
else
fwrite( ::nhandle, cchar )
endif
endif
endif
else
fwrite( ::nhandle, cchar )
endif
next
fwrite( ::nhandle, CRLF )
hb_fskip() // read next line
enddo
hb_fuse()
return ( self )
static function close()
local self := qself()
fwrite( ::nhandle, "\f1\fs16\par"+CRLF+"}" )
fclose( ::nhandle )
return self