(DataFlex) Drop/Undrop Text Formatting Tags

Demonstrates how the DropTextFormattingTags and UndropTextFormattingTags methods work in the Html-to-Xml API.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    String sHtml
    Handle hoH2x
    String sTemp1

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Move "<html><body><p><b>Hello</b> World!<p>This is a test</body></html>" To sHtml

    // Convert the above to XML
    Get Create (RefClass(cComChilkatHtmlToXml)) To hoH2x
    If (Not(IsComObjectCreated(hoH2x))) Begin
        Send CreateComObject of hoH2x
    End

    // By default, text formatting tags are dropped. Text formatting HTML tags are: b, font, i, u, br, center, em, strong, big, tt, s, small, strike, sub, and sup
    Set ComHtml Of hoH2x To sHtml
    Get ComToXml Of hoH2x To sTemp1
    Showln sTemp1

    // The resulting XML is:

    // <?xml version="1.0" encoding="utf-8"?>
    // <root>
    //     <html>
    //         <body>
    //             <p>
    //                 <text>Hello World!</text>
    //             </p>
    //             <p>
    //                 <text>This is a test</text>
    //             </p>
    //         </body>
    //     </html>
    // </root>

    // To preserve text formatting tags, put the h2x instance into the mode where text formatting tags are not dropped:
    Send ComUndropTextFormattingTags To hoH2x

    // Convert again to see the difference:
    Get ComToXml Of hoH2x To sTemp1
    Showln sTemp1

    // The resulting XML is:

    // <?xml version="1.0" encoding="utf-8"?>
    // <root>
    //     <html>
    //         <body>
    //             <p>
    //                 <b>
    //                     <text>Hello</text>
    //                 </b>
    //                 <text> World!</text>
    //             </p>
    //             <p>
    //                 <text>This is a test</text>
    //             </p>
    //         </body>
    //     </html>
    // </root>

    // Call DropTextFormattingTags to put the h2x instance back in "drop" mode.
    Send ComDropTextFormattingTags To hoH2x

    // Convert again to see the difference:
    Get ComToXml Of hoH2x To sTemp1
    Showln sTemp1

    // The resulting XML is:

    // <?xml version="1.0" encoding="utf-8"?>
    // <root>
    //     <html>
    //         <body>
    //             <p>
    //                 <text>Hello World!</text>
    //             </p>
    //             <p>
    //                 <text>This is a test</text>
    //             </p>
    //         </body>
    //     </html>
    // </root>


End_Procedure