(PureBasic) Scrub Xml

Demonstrates the Scrub method for some common XML cleaning needs.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    ; The Scrub method has options for trimming whitespace from the ends of attributes and content,
    ; trimming inside whitespace, and for case conversion for tags and attribute names.

    ; Trimming inside whitespace is defined as replacing CR, LF, and tab chars with SPACE chars, and 
    ; removing extra SPACE chars so that at most one SPACE separates non-SPACE chars.

    ; For example, load the following XML:

    s.s = "<xyz><td class=" + Chr(34) + " colHoldingPercent col7" + Chr(34) + " style=" + Chr(34) + "border-bottom-color: rgb(221, 221, 221);               border-image-outset: 0;  " + Chr(34) + "> abc" + Chr(13) + Chr(10) + "123    456</td></xyz>"

    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkXml::ckLoadXml(xml,s)

    Debug CkXml::ckGetXml(xml)

    ; The XML before scrubbing is:

    ; <xyz>
    ;     <td class=" colHoldingPercent col7" style="border-bottom-color: rgb(221, 221, 221);               border-image-outset: 0;  ">abc
    ; 123    456</td>
    ; </xyz>

    CkXml::ckScrub(xml,"AttrTrimEnds,AttrTrimInside,ContentTrimEnds,ContentTrimInside")
    Debug CkXml::ckGetXml(xml)

    ; The XML after scrubbing is:

    ; <?xml version="1.0" encoding="utf-8"?>
    ; <xyz>
    ;     <td class="colHoldingPercent col7" style="border-bottom-color: rgb(221, 221, 221); border-image-outset: 0;">abc 123 456</td>
    ; </xyz>


    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure