Convert HTML File to XML File

Convert HTML file to XML file.

LOCAL loHtmlToXml
LOCAL lnSuccess



loHtmlToXml = CreateObject('Chilkat.HtmlToXml')

*  Any string argument automatically begins the 30-day trial.
lnSuccess = loHtmlToXml.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("HtmlToXml component unlock failed")
    QUIT
ENDIF

*  Indicate the charset of the output XML we'll want.
loHtmlToXml.XmlCharset = "utf-8"

lnSuccess = loHtmlToXml.ConvertFile("test.html","out.xml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHtmlToXml.LastErrorText)
ELSE
    =MESSAGEBOX("Success")
ENDIF