/ Forums / Advansys Formativ / Creating Solutions with Formativ / CR in MemoControl / Reply To: CR in MemoControl
May 21, 2003 at 3:23 am
#6625
Thanks for the information. Here is the function which do the work.
Function PlainToRTF(cBodyText)
dim iList
dim Msg
set iList = Utilities.StringList
iList.Text = cBodyText
for iCount = 0 to iList.Count – 1
if (iCount = 0) Then
Msg = “{” & iList.Strings(iCount) & “}”
else
Msg = Msg & “{par ” & iList.Strings(iCount) & “}”
end if
next
PlainToRTF = Msg
End Function
Best Regards
Ralf