然而DTD并非毫无用处。它是广泛应用于非.NET程序中的Internet和数据转换的World Wide Web Consortium(W3C)标准。为了能够实现向后（即非.NET）兼容性，.NET Framework中包含了通过DTDs来验证XML的性能。
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/vb/）然而，就算你需要在一个由Web程序生成的输出XML文件中包含一个DTD，这种情况也是不存在的，或者即使存在，也缺乏可参考的标准文件。
而System.IO.FileStream对象能帮你解决这个问题。你可以创建一个FileStream并将DTD插入你的XML文件中，一个FileStream又引出两种FileStream――它们分别从DTD和dataset中得到。你可以用DTD文件和一些范例XML来设计DataSet schema。VS.NET的Visual Data Set设计界面使这个工作变得很简单，而存储在应用程序文件夹中的DTD文件会被包含在最终形成的XML里。
这个方法用到了许多种不同的FileStreams。一种FileStream (Stream A)中包含有关DTD的信息；另一种FileStream(Stream B)用于创建最终的XML文件。Stream A会流入Stream B中；DataSet会直接流入Stream B中；然后Stream B会关闭并作为一个XML文件存入你的文件系统中。
首先应该准备的是DataSet，你可以创建一个新的基于schema的dataset，然后进行数据绑定。接下来，将DTD文件读取到一个FileStream(Stream A)中。你可以通过创建一个FileStream对象和一个StreamReader对象来实现这一点。通过StreamReader来将文本文件读取到FileStream中：
Dim fsDTD As System.IO.FileStream
Dim srDTD As IO.StreamReader
fsDTD = New IO.FileStream(DTDFilePath, IO.FileMode.Open)
srDTD = New IO.StreamReader(fsDTD)
GetDTD = fsDTD
End Function
接下来要准备的是用于创建最终的输出文件的主要FileStream (Stream B)。新建一个FileStream，然后用一个StreamWriter来创建一个新文件。此时，这个新文件被称为Final.XML；你可以在Web程序文件夹中创建它。你需要注意IO.FileMode.Create。符合你需要的文件模式有许多种：
Dim swOutput As IO.StreamWriter
Try
StreamB = New IO.FileStream(Server.MapPath("") & "FINAL.xml",IO.FileMode.Create)
Catch ex As Exception
Throw
End Try
swOutput = New IO.StreamWriter(StreamB)
之后要进入一个十分巧妙的环节――将Stream A的内容导入Stream B。你可以用单个字节或者字节数组来将数据导入或取出数据流。需要注意的是StreamReader有些例外，它用的是char数据，而不是字节数据。
调用你之前写好的GetDTD函数，它将返回作为FileStream的DTD文件。然后建立一个和DTD stream同等长度的字节数组，将stream读取到字节数组中，最后关闭它――因为你不再需要用到它了。现在所有的东西都被包含到字节数组中了：
StreamA = GetDTD()
Dim bytearray(StreamA.Length) As Byte
StreamA.Read(bytearray, 0, StreamA.Length)
StreamA.Close()
接下来，将数据从DTD文件中取出并放入已经被创建好成为最终输出文件的数据流中。你可以通过从数组中取出然后放入FileStream来实现这一点。取出数组中所有项目(除最后一项外)以便去掉文件中最后的字符：
现在你就可以将DataSet中的数据导入文件中了。DataSet中的WriteXML方法有许多覆盖方法，比如写入一个真实的文件中。此时你可以用将输出文件导入一个FileStream (Stream B)的覆盖方法：
不要忘记关闭文件数据流：StreamB.Close
一旦关闭了Stream B，你便可以从文件系统中访问最新的Final.xml文件了。你还可以将这种方法用到其他类型的文本文件中
