Visual Basic 6.0

SearchAllForContent

See more XML Examples

Demonstrates the SearchAllForContent method. Visual Basic 6.0

Dim success As Long
success = 0

Dim xml As New ChilkatXml
Dim xBeginAfter As ChilkatXml
Dim xFound As ChilkatXml

success = xml.LoadXmlFile("qa_data/xml/pigs.xml")
If (success <> 1) Then
    Debug.Print xml.LastErrorText
    Exit Sub
End If

Set xBeginAfter = xml.GetSelf()
Set xFound = xml.SearchAllForContent(xBeginAfter,"*pig*")
Dim searchForMore As Long
searchForMore = 1
Do While (searchForMore = 1)

    Debug.Print xFound.Tag
    Debug.Print xFound.Content
    Debug.Print "--"

    Set xBeginAfter = xFound
    Set xFound = xml.SearchAllForContent(xBeginAfter,"*pig*")

    searchForMore = xml.LastMethodSuccess
Loop