*HTML_TO_BIN Function

Syntax

RTF_Binary_Text as B = *HTML_TO_BIN(C text)

Arguments

RTF_Binary_Text: Binary formatted RTF text as it exists in a RTF memo field.
text: Encoded HTML text

Description

Convert from html to binary.

Discussion

The *HTML_TO_BIN() function converts HTML text to its equivalent binary RTF memo format.

Example

dim html_text as C
dim rtf_bin as B 
dim tbl as P 
 
html_text = file.to_string("c:\rtf_test.htm") 
html_text = extract_string(html_text,"<body", "</body>") 
html_text = right(html_text, len(html_text)-1)
 
? html_text 
= <font face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#FF0000">George</font></strong> lived on top of a <font color="#0000FF"><em>mountain</em></font>. </font> 
 
rtf_bin = *html_to_bin(html_text) 
 
tbl = table.open("customer") 
tbl.fetch_first() 
tbl.change_begin(.t.) 
tbl.Rtfmemo = rtf_bin 
tbl.change_end(.t.) 
tbl.close()