Resolving The Problem

Use the "LoadXML" method in a GUI script to load a XML file for validation. The following GUI script validates an XML file (library.xml) against a DTD file (library.dtd).

XML sample - library.xml (Note: <!doctype> tag is not included in this example)

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<Library>
<Book rating="2" noofpages="300">
<BookNo> 1 </BookNo>
<Author> XYZ </Author>
<Publisher> XYZ </Publisher>
<Price> 300 </Price>
</Book>
<Book rating="2" noofpages="400">
<BookNo> 2 </BookNo>
<Author> ABC </Author>
<Publisher> ABC </Publisher>
<Price> 400 </Price>
</Book >
<Book rating="7" noofpages="400">
<BookNo>3</BookNo>
<Author> PQR </Author>
<Publisher> PQR </Publisher>
<Price> 500 </Price>
</Book>
</Library>

<!ELEMENT Library (Book)+>
<!ELEMENT Book (BookNo,Author,Publisher,Price)>
<!ATTLIST Book rating (1|2|3|4) "1" noofpages CDATA #REQUIRED>
<!ELEMENT BookNo (#PCDATA)>
<!ELEMENT Author (#PCDATA)>
<!ELEMENT Publisher (#PCDATA)>
<!ELEMENT Price (#PCDATA)>

Sub Main

Dim Result As Integer
Dim objXml as object
Dim objTempXml as Object
Dim strXml as String
Dim strXmlFile as String
Dim strDtdFile as String

'XML file to be validated
strXmlFile = "C:\library.xml"
'DOCTYPE tag for the XML file
strDtdFile = "<!DOCTYPE Library SYSTEM ""C:\library.dtd"">"

'Create objects of XMLDOM
set objXml = CreateObject("Microsoft.XMLDOM")
set objTempXml = CreateObject("Microsoft.XMLDOM")

'Load the XML file to be validated
objXml.Load(strXmlFile)
'form a string containing the whole XML document
'.ChildNodes.item(0) is to hold the XML tag <?xml version="1.0" encoding="UTF-8" standalone="no"?>
strXml = "" & objXml.ChildNodes.item(0).xml & Chr(13)
'include the DOCTYPE tag
strXml = strXml & strDtdFile & Chr(13)
'include rest of the contents of the XML document
strXml = strXml & objXml.ChildNodes.item(1).xml

'load the XML using the string
if objTempXml.LoadXml(strXml) then
'if successfully loaded
msgbox "Xml file successfully loaded. Follows DTD specification"
else
'if error occurs while loading, display the message
msgbox "Error occurred while loading Xml (invalid XML)."
msgbox "Error: " & objTempXml.ParseError.reason & " at line " & objTempXml.ParseError.line
end if

End Sub

Error occurred while loading XML (invalid XML).

Error: Attribute 'rating' has an invalid value according to the DTD/Schema. at line 16