PureBasic
Drop/Undrop Text Formatting Tags

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

PureBasic
IncludeFile "CkHtmlToXml.pb"

Procedure ChilkatExample()

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

    html.s = "<html><body><p><b>Hello</b> World!<p>This is a test</body></html>"

    ; Convert the above to XML
    h2x.i = CkHtmlToXml::ckCreate()
    If h2x.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; 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
    CkHtmlToXml::setCkHtml(h2x, html)
    Debug CkHtmlToXml::ckToXml(h2x)

    ; 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:
    CkHtmlToXml::ckUndropTextFormattingTags(h2x)

    ; Convert again to see the difference:
    Debug CkHtmlToXml::ckToXml(h2x)

    ; 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.
    CkHtmlToXml::ckDropTextFormattingTags(h2x)

    ; Convert again to see the difference:
    Debug CkHtmlToXml::ckToXml(h2x)

    ; 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>


    CkHtmlToXml::ckDispose(h2x)


    ProcedureReturn
EndProcedure