XMLExecuteXPath (Example)

AYUDA EN LÍNEA
WINDEV, WEBDEV Y WINDEV MOBILE

Versión:

Inicio | Iniciar sesión | Español

Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de archivos XML

Example for interrogating the content of an XML document
Example for interrogating the content of an XML document
Example of search performed on the content of an attribute

XMLExecuteXPath (Example)

See the associated help page

Example for interrogating the content of an XML document

The XPATH query is used to retrieve 3 types of information at once = title, summary and url. Let's consider the query "//entry/title | //entry/summary | //entry/link"

XMLSource is string = [
<?xml version="1.0" encoding="ISO-8859-1"?>
<feed>
<author>Patrick</author>
<entry>
<title type='text'>À small moment of peace</title>
<summary type='text'>Simply the real life</summary>
<link type='application/atom+xml' href='http://somewhere/atom?authkey=WgHbgT990V8'></link>
<link type='text/html' href='http://somewhere?authkey=WgHbgT990V8'></link>
</entry>
<entry>
<title type='text'>Live IN action</title>
<summary type='text'>After the roller blade fall (harmless thanks TO protections)</summary>
<link type='application/atom+xml' href='http://somewhere/atom?authkey=Wg4sdf4ee'></link>
<link type='text/html' href='http://somewhere?authkey=Wg4sdf4ee'></link>
</entry>
</feed>
]
IF XMLDocument("XMLDoc", XMLSource) = True THEN
XPATHQuery is string
XPATHQuery = "//entry/title | //entry/summary | //entry/link"
XMLExecuteXPath("XMLDoc", XPATHQuery) = True THEN
WHILE XMLFound("XMLDoc") = True
Trace("Title = " + XMLData("XMLDoc"))
XMLNext("XMLDoc")
Trace("Summary = " + XMLData("XMLDoc"))
XMLNext("XMLDoc")
WHILE XMLFound("XMLDoc") AND XMLElementName("XMLDoc") = "link"
IF XMLData("XMLDoc", "type") = "text/html" THEN
Trace("Url = " + XMLData("XMLDoc", "href"))
END
XMLNext("XMLDoc")
END
END
END
XMLClose("XMLDoc")
ELSE
Error(ErrorInfo())
END

Example for interrogating the content of an XML document

The exploration is performed by XMLExecuteXPath.

In the example, the following elements will be retrieved in the XML document:

data found in the header,
data regarding the persons in the rest of the document.

The document has the following format, to run test of the example.

Create a text file containing this code, name it test.xml and store it in the \exe\ directory of your project.

<SERVICES>
<PARAMETERS>
<TYPE>AZ0256</TYPE>
<DATE>20070115</DATE>
</PARAMETERS>
<DATA>
<PERSONS>
<PERSON>
<TYPE>AB</TYPE>
<ID>156</ID>
<PREFERRED_NAME> </PREFERRED_NAME>
<FIRST_NAME>VINCE</FIRST_NAME>
<LAST_NAME>SMITH</LAST_NAME>
<GENDER>1</GENDER>
</PERSON>
<PERSON>
<TYPE>AC</TYPE>
<ID>246</ID>
<PREFERRED_NAME> </PREFERRED_NAME>
<FIRST_NAME>CLARA</FIRST_NAME>
<LAST_NAME>BARRET</LAST_NAME>
<GENDER>1</GENDER>
</PERSON>
<PERSON>
<TYPE>AB</TYPE>
<ID>247</ID>
<PREFERRED_NAME> </PREFERRED_NAME>
<FIRST_NAME>BEN</FIRST_NAME>
<LAST_NAME>RAMIREZ</LAST_NAME>
<GENDER>2</GENDER>
</PERSON>
<PERSON>
<TYPE>AB</TYPE>
<ID>248</ID>
<PREFERED_NAME>NATHAN</PREFERED_NAME>
<FIRST_NAME>ANA</FIRST_NAME>
<LAST_NAME>DESMOND</LAST_NAME>
<GENDER>3</GENDER>
</PERSON>
</PERSONS>
</DATA>
</SERVICES>

nDocumentPosition is int
XMLDocument("XMLDoc", fLoadText("D:\TESTS CUSTOMERS\2007-01\071109\test.xml"))
// Retrieve the type in the header of the document
XMLExecuteXPath("XMLDoc", "/SERVICES/PARAMETERS/TYPE")
Trace(XMLData("XMLDoc"))
// Retrieve the date in the header of the document
XMLExecuteXPath("XMLDoc", "/SERVICES/PARAMETERS/DATE")
Trace(DateToString(XMLData("XMLDoc")))
// Browse all the persons found in the document
XMLExecuteXPath("XMLDoc", "/SERVICES/DATA/PERSONS/PERSON")
WHILE XMLFound("XMLDoc") = True
Trace(" ")
Trace(XMLPosition("XMLDoc"))
nDocumentPosition = XMLSavePosition("XMLDoc")
XMLChild("XMLDoc")
WHILE NOT XMLOut("XMLDoc")
Trace(" >> "+XMLElementName("XMLDoc")+": " + XMLData("XMLDoc"))
XMLNext("XMLDoc")
END
XMLRestorePosition("XMLDoc", nDocumentPosition)
XMLNext("XMLDoc")
END

Example of search performed on the content of an attribute

The search is performed by XMLExecuteXPath.

The purpose of the example is to retrieve, in a list of articles, all the attributes of the articles whose designation attribute contains "Screws":

sXMLSource is string = [
<?xml version="1.0" encoding="ISO-8859-1"?>
<articles>
<art famcod="Demo Family" ref="789852">
<desi>Screw holders 1/2</desi>
</art>
<art famcod="Demo Family" ref="789465">
<desi>Test suitcase</desi>
</art>
<art famcod="Demo Family" ref="456987">
<desi>Stainless steel screws</desi>
</art>
<art famcod="Demo Family" ref="123654">
<desi>Snaphook</desi>
</art>
<art famcod="Demo Family" ref="789963">
<desi>Screws IN bulk</desi>
</art>
<art famcod="Demo Family" ref="963258">
<desi>Titanium screws</desi>
</art>
</articles>
]
let sSearchVal = "Screws"

IF XMLDocument("XMLDoc", sXMLSource) = True THEN

XPATHQuery is string = "//art[contains(./desi,'"+sSearchVal+"')]"

XMLExecuteXPath("XMLDoc", XPATHQuery) = True THEN
WHILE XMLFound("XMLDoc") = True
Trace("---------------------------------------------")
Trace(sSearchVal+" found >> "+XMLPosition("XMLDoc"))
Trace("Reference >> "+XMLData("XMLDoc","ref"))

XMLNext("XMLDoc")
END
// Browse completed, end the query
XMLCancelSearch("XMLDoc")

END
XMLClose("XMLDoc")
ELSE
Error(ErrorInfo())
END

Versión mínima requerida

Versión 9

Esta página también está disponible para…

Comentarios

Haga clic en [Agregar] para publicar un comentario

Última modificación: 27/05/2022

Señalar un error o enviar una sugerencia | Ayuda local