(DataFlex) SearchAllForContent

Demonstrates the SearchAllForContent method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    Variant vXBeginAfter
    Handle hoXBeginAfter
    Variant vXFound
    Handle hoXFound
    Boolean iSuccess
    Boolean iSearchForMore
    String sTemp1

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End

    Get ComLoadXmlFile Of hoXml "qa_data/xml/pigs.xml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXml To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComGetSelf Of hoXml To vXBeginAfter
    If (IsComObject(vXBeginAfter)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoXBeginAfter
        Set pvComObject Of hoXBeginAfter To vXBeginAfter
    End
    Get ComSearchAllForContent Of hoXml vXBeginAfter "*pig*" To vXFound
    If (IsComObject(vXFound)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoXFound
        Set pvComObject Of hoXFound To vXFound
    End
    Move True To iSearchForMore
    While (iSearchForMore = True)

        Get ComTag Of hoXFound To sTemp1
        Showln sTemp1
        Get ComContent Of hoXFound To sTemp1
        Showln sTemp1
        Showln "--"

        Send Destroy of hoXBeginAfter
        Move hoXFound To hoXBeginAfter
        Get ComSearchAllForContent Of hoXml vXBeginAfter "*pig*" To vXFound
        If (IsComObject(vXFound)) Begin
            Get Create (RefClass(cComChilkatXml)) To hoXFound
            Set pvComObject Of hoXFound To vXFound
        End

        Get ComLastMethodSuccess Of hoXml To iSearchForMore
    Loop

    Send Destroy of hoXBeginAfter


End_Procedure