.NET FileStreams将DTD插入XML文件中

NET类则更加方便它会带给你更多使用上的灵活性

技术工具箱 VBNET XML ADONET

ADONET提供了一种很好的功能来处理dataset和XML之间的转换你可以通过VSNET在XML中形象地创建dataset schema同一个document type definition(DTD)一样schema允许你验证和创建XML文件但相比之下使用NET类则更加方便它会带给你更多使用上的灵活性

然而DTD并非毫无用处它是广泛应用于非NET程序中的Internet和数据转换的World Wide Web Consortium(WC)标准为了能够实现向后（即非NET）兼容性NET Framework中包含了通过DTDs来验证XML的性能

然而就算你需要在一个由Web程序生成的输出XML文件中包含一个DTD这种情况也是不存在的或者即使存在也缺乏可参考的标准文件

而SystemIOFileStream对象能帮你解决这个问题你可以创建一个FileStream并将DTD插入你的XML文件中一个FileStream又引出两种FileStream――它们分别从DTD和dataset中得到你可以用DTD文件和一些范例XML来设计DataSet schemaVSNET的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 IOFileStream

Dim fsDTD As SystemIOFileStream

Dim srDTD As IOStreamReader

fsDTD = New IOFileStream(DTDFilePath _

IOFileModeOpen)

srDTD = New IOStreamReader(fsDTD)

GetDTD = fsDTD

End Function

接下来要准备的是用于创建最终的输出文件的主要FileStream (Stream B)新建一个FileStream然后用一个StreamWriter来创建一个新文件此时这个新文件被称为FinalXML你可以在Web程序文件夹中创建它你需要注意IOFileModeCreate符合你需要的文件模式有许多种

Dim StreamB As SystemIOFileStream

Dim swOutput As IOStreamWriter

Try

StreamB = New IOFileStream( _

ServerMapPath() & FINALxml _

IOFileModeCreate)

Catch ex As Exception

Throw

End Try

swOutput = New IOStreamWriter(StreamB)

之后要进入一个十分巧妙的环节――将Stream A的内容导入Stream B你可以用单个字节或者字节数组来将数据导入或取出数据流需要注意的是StreamReader有些例外它用的是char数据而不是字节数据

调用你之前写好的GetDTD函数它将返回作为FileStream的DTD文件然后建立一个和DTD stream同等长度的字节数组将stream读取到字节数组中最后关闭它――因为你不再需要用到它了现在所有的东西都被包含到字节数组中了

dim StreamA as IOFileStream

StreamA = GetDTD()

Dim bytearray(StreamALength) As Byte

StreamARead(bytearray StreamALength)

StreamAClose()

接下来将数据从DTD文件中取出并放入已经被创建好成为最终输出文件的数据流中你可以通过从数组中取出然后放入FileStream来实现这一点取出数组中所有项目(除最后一项外)以便去掉文件中最后的字符 StreamBWrite(bytearray bytearrayLength )

现在你就可以将DataSet中的数据导入文件中了DataSet中的WriteXML方法有许多覆盖方法比如写入一个真实的文件中此时你可以用将输出文件导入一个FileStream (Stream B)的覆盖方法 myDataSetWriteXml(StreamB)

不要忘记关闭文件数据流 StreamBClose

一旦关闭了Stream B你便可以从文件系统中访问最新的Finalxml文件了你还可以将这种方法用到其他类型的文本文件中