(Tcl) SearchAllForContent

Demonstrates the SearchAllForContent method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set xml [new_CkXml]

# xBeginAfter is a CkXml

# xFound is a CkXml

set success [CkXml_LoadXmlFile $xml "qa_data/xml/pigs.xml"]
if {$success != 1} then {
    puts [CkXml_lastErrorText $xml]
    delete_CkXml $xml
    exit
}

set xBeginAfter [CkXml_GetSelf $xml]
set xFound [CkXml_SearchAllForContent $xml $xBeginAfter "*pig*"]
set searchForMore 1
while {$searchForMore == 1} {

    puts [CkXml_tag $xFound]
    puts [CkXml_content $xFound]
    puts "--"

    delete_CkXml $xBeginAfter

    set xBeginAfter $xFound
    set xFound [CkXml_SearchAllForContent $xml $xBeginAfter "*pig*"]

    set searchForMore [CkXml_get_LastMethodSuccess $xml]
}

delete_CkXml $xBeginAfter


delete_CkXml $xml