Realiza o parse de um schema XML.
ParseSchema( < cXmlSchema > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cXmlSchema | caractere | String contendo o schema XML. | X |
Nome | Tipo | Descrição |
---|---|---|
lRet | lógico | Retorna verdadeiro (.T.) se o parse for realizado com sucesso. Caso contrário, falso (.F.). |
user function TXParS() Local cXSD := "" Local oXML cXSD := '<?xml version="1.0"?>' + CRLF cXSD += '<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">' + CRLF cXSD += '<xs:complexType name="bookInfo">' + CRLF cXSD += ' <xs:sequence>' + CRLF cXSD += ' <xs:element name="title" type="xs:string"/>' + CRLF cXSD += ' <xs:element name="author" type="xs:string"/>' + CRLF cXSD += ' <xs:element name="price" type="xs:decimal"/>' + CRLF cXSD += ' </xs:sequence>' + CRLF cXSD += '</xs:complexType>' + CRLF cXSD += CRLF cXSD += '<xs:element name="book" type="bookInfo"/>' + CRLF cXSD += CRLF cXSD += '</xs:schema>' + CRLF oXML := TXMLManager():New() // Vai exibir ".T." conout( oXML:ParseSchema( cXSD ) ) return |