The author's web site is at
http://www.dbrad32.narod.ru/eng/dbe.htm
cHead=cHPart1+"{\fonttbl"
FOR ni=1 TO ArrLen(@aFont0)
cBuf=aFont0[ni]
cHead=cHead+"{\f"+ALLTRIM(STR(ni-1))+"\"+cBuf
>When i test this useful function, i get an error, but if i ignor it, the result is correct!
>Can you see this please?
>unfortunatly his website address is rong.
>cText1 = "{\rtf1\fbidis\ansi\ansicpg1256\deff0\deflang1025{\fonttbl{\f0\fnil\fcharset0 Arial;}}\viewkind4\uc1\pard\ltrpar\qc\fs32 First Line\par }"
>cText2 = "{\rtf1\fbidis\ansi\ansicpg1256\deff0\deflang1025{\fonttbl{\f0\fnil\fcharset0 Arial;}}\viewkind4\uc1\pard\ltrpar\fs18 Second Line\par }"
>Landscape = .F.
>nPage = 0
>
>= STRTOFILE(JoinRTF(cText1,cText2,Landscape,nPage),"C:\new.rtf")
>
>RETURN
<snip>
--sb--