利用.NET FileStreams将DTD插入XML文件中

尽管你可以通过schema来验证和创建xml文件，但相比之下使用.NET类则更加方便，它会带给你更多使用上的灵活性。
　　
　　技术工具箱： VB.NET, xml, ADO.NET
　　ADO.NET提供了一种很好的功能来处理dataset和xml之间的转换。你可以通过VS.NET在xml中形象地创建dataset schema。同一个document type definition(DTD)一样，schema允许你验证和创建xml文件，但相比之下使用.NET类则更加方便，它会带给你更多使用上的灵活性。
　　
　　然而DTD并非毫无用处。它是广泛应用于非.NET程序中的Internet和数据转换的World Wide Web Consortium(W3C)标准。为了能够实现向后（即非.NET）兼容性，.NET Framework中包含了通过DTDs来验证xml的性能。
　　
　　然而，就算你需要在一个由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中： Private Function GetDTD(DTDFilePath as string) _
　　As IO.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 StreamB As System.IO.FileStream
　　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读取到字节数组中，最后关闭它――因为你不再需要用到它了。现在所有的东西都被包含到字节数组中了： dim StreamA as IO.FileStream
　　StreamA = GetDTD()
　　Dim bytearray(StreamA.Length) As Byte
　　StreamA.Read(bytearray, 0, StreamA.Length)
　　StreamA.Close()
　　
　　接下来，将数据从DTD文件中取出并放入已经被创建好成为最终输出文件的数据流中。你可以通过从数组中取出然后放入FileStream来实现这一点。取出数组中所有项目(除最后一项外)以便去掉文件中最后的字符： StreamB.Write(bytearray, 0, bytearray.Length - 1)
　　
　　现在你就可以将DataSet中的数据导入文件中了。DataSet中的Writexml方法有许多覆盖方法，比如写入一个真实的文件中。此时你可以用将输出文件导入一个FileStream (Stream B)的覆盖方法： myDataSet.Writexml(StreamB)
　　
　　不要忘记关闭文件数据流： StreamB.Close
　　
　　一旦关闭了Stream B，你便可以从文件系统中访问最新的Final.xml文件了。你还可以将这种方法用到其他类型的文本文件中。