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
|