O método adiciona um atributo ao nó elemento da expressão XPath.
XPathAddAtt( < cXPathExpr >, < cAttName >, < cAttValue > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cXPathExpr | caractere | Expressão XPath. | X | |
cAttName | caractere | Nome do atributo desejado | X | |
cAttValue | caractere | Valor do atributo desejado | X |
Nome | Tipo | Descrição |
|---|---|---|
lRet | lógico | Verdadeiro (.T.) caso tenha sido possivel adicionar. Falso (.F.) caso contrário. |
user function XPAddAtt()
Local cXML := ""
Local oXML
Local aAtt := {}
oXML := TXMLManager():New()
cXML += '<book isNew="true">' + CRLF
cXML += ' <title>A Clash of Kings</title>' + CRLF
cXML += ' <author>George R. R. Martin</author>' + CRLF
cXML += ' <price>9.99</price>' + CRLF
cXML += ' <origin>US</origin>' + CRLF
cXML += '</book>' + CRLF
if !oXML:Parse( cXML )
conout( "Errors on Parse!" )
return
endif
// Vai exibir
// aAtt -> ARRAY ( 1) [...]
// aAtt[1] -> ARRAY ( 2) [...]
// aAtt[1][1] -> C ( 5) [isNew]
// aAtt[1][2] -> C ( 4) [true]
aAtt := oXML:XPathGetAttArray( "/book" )
varinfo( "aAtt", aAtt )
// Vai exibir ".T."
conout( oXML:XPathAddAtt( "/book", "myAtt", "myValue" ) )
// Vai exibir
// aAtt -> ARRAY ( 2) [...]
// aAtt[1] -> ARRAY ( 2) [...]
// aAtt[1][1] -> C ( 5) [isNew]
// aAtt[1][2] -> C ( 4) [true]
// aAtt[2] -> ARRAY ( 2) [...]
// aAtt[2][1] -> C ( 5) [myAtt]
// aAtt[2][2] -> C ( 7) [myValue]
aAtt := oXML:XPathGetAttArray( "/book" )
varinfo( "aAtt", aAtt )
return |