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文件了。你还可以将这种方法用到其他类型的文本文件中。
文章来源于领测软件测试网 https://www.ltesting.net/
