Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Classic ASP) XML SearchForTag MethodDemonstrates the SearchForTag and SearchForTag2 methods. The input XML, available at http://www.chilkatsoft.com/data/fruitSearch.xml, is this: <root> <searchRoot> <fruit color="red">apple</fruit> <fruit color="green">pear</fruit> <veg color="orange">carrot</veg> <meat animal="cow">beef</meat> <xyz> <fruit color="blue">blueberry</fruit> <veg color="green">broccoli</veg> </xyz> <fruit color="purple">grape</fruit> <cheese color="yellow">cheddar</cheese> </searchRoot> <fruit color="red">strawberry</fruit> <fruit color="orange">peach</fruit> </root>
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") ' The sample input XML is available at http://www.chilkatsoft.com/data/fruitSearch.xml success = xml.LoadXmlFile("qa_data/xml/fruitSearch.xml") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( xml.LastErrorText) & "</pre>" Response.End End If ' Search the sub-tree rooted at "searchRoot" ' xSearchRoot is a Chilkat.Xml Set xSearchRoot = xml.FindChild("searchRoot") ' Search for all nodes having the tag "fruit" ' xBeginAfter is a Chilkat.Xml Set xBeginAfter = xSearchRoot.GetSelf() ' xFound is a Chilkat.Xml Set xFound = xSearchRoot.SearchForTag(xSearchRoot,"fruit") Do While (xSearchRoot.LastMethodSuccess = 1) Response.Write "<pre>" & Server.HTMLEncode( xFound.Content) & "</pre>" ' xBeginAfter is a Chilkat.Xml Set xBeginAfter = xFound ' xFound is a Chilkat.Xml Set xFound = xSearchRoot.SearchForTag(xBeginAfter,"fruit") Loop Response.Write "<pre>" & Server.HTMLEncode( "--------------------------") & "</pre>" ' --------------------------------------------------------------------------------- ' Now do the same, but instead use SearchForTag2 ' which updates the internal reference of the caller instead ' of returning the found node. ' xBeginAfter is a Chilkat.Xml Set xBeginAfter = xSearchRoot.GetSelf() ' xSearch is a Chilkat.Xml Set xSearch = xSearchRoot.GetSelf() success = xSearch.SearchForTag2(xBeginAfter,"fruit") Do While success = 1 Response.Write "<pre>" & Server.HTMLEncode( xSearch.Content) & "</pre>" ' Copy the internal references so that the next search ' begins after the found node. xBeginAfter.CopyRef xSearch xSearch.CopyRef xSearchRoot success = xSearch.SearchForTag2(xBeginAfter,"fruit") Loop %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.