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讀取到字節數組中，最后關閉它――因為你不再需要用到它了�，F在所有的東西都被包含到字節數組中了： 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文件了。你還可以將這種方法用到其他類型的文本文件中。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
