使用DTD验证XML文档

这本来应该不是一个困难的事情。但是，比较“无奈”的地方在于，必须在待验证的XML文档内部声明一个“DOCTYPE”引用DTD文件才可以验证。所以，更麻烦的问题在于需要为没有声明这个DOCTYPE的XML文档添加上这个声明。我还没有找到更好的办法。说明一下Context，需要执行此操作的是一个ASP.NET WebForm，XML文档来自于客户端上传的文件，而DTD文件位于服务器上。

下面说明一下具体的做法，虽然我最喜欢C#，但无奈于当前的Web项目必须使用VB.NET，因此这里的代码都是VB.NET。

首先，用XmlDocument对象加载客户端上传上来的XML文档流：

Dim doc As XmlDocument = New XmlDocument()
Try
doc.Load(fu.FileContent)
Catch ex As Exception
errMsg.Text = ex.Message
Return False
Exit Function
End Try

然后利用XmlDocument对象的InsertBefore对象插入需要的DOCTYPE：

doc.InsertBefore(doc.CreateDocumentType("importfile", Nothing, MapPath("dtdspec.dtd"), Nothing), doc.DocumentElement)

将添加了DOCTYPE之后的XML文档保存到内存流中，并要记得把内存流的Position归零：

Dim xmlStreamWithDTD As System.IO.MemoryStream
xmlStreamWithDTD = New System.IO.MemoryStream()
doc.Save(xmlStreamWithDTD)
xmlStreamWithDTD.Position = 0

最后利用XMLReader对象配合相应的设置，将内存流中的XML文档重新遍历一遍，进而得以验证XML文档是否符合DTD的定义：

Dim settings As XmlReaderSettings = New XmlReaderSettings()
settings.ProhibitDtd = False
settings.ValidationType = ValidationType.DTD
Dim reader As XmlReader = XmlReader.Create(xmlStreamWithDTD, settings)
Try
While reader.Read()
End While
Catch ex As Exception
errMsg.Text = ex.Message
End Try

收工。

这么搞的问题在于内存要用两份，文档要遍历2遍，的确不是一个好办法，暂时只能这么样了，期待更好的做法。