寫入多個開放文本流

Question

我是vb.net的新手。我有很多使用vb 6的經驗。我想知道的是如何替換文件系統對象。特定我想要使用textstream數組。我將如何在vb.net中編寫以下代碼

爲簡單起見，我將假設我有一個長度爲1個字節的文本文件，並且它只是＃從0到9的重複系列。希望具有1去TSOUT（1）任何記錄，2 TSOUT（2）等...

dim fso as new filesystemobject, tsIN as textstream, tsOut(10) as textstream 
dim lineIN, i 
set tsin = fso.opentextfile("C:\input.txt",forreading,false) 
for i = 1 to 10 
set tsout(i) = fso.createtextfile("C:\output" & i & ".txt",true) 
next 
do while not tsin.atendofstream 
linein = mid(tsin.readline,1,1) 
tsout(linein).writeline(linein) 
loop 
for i = 1 to 10 
tsout(i).close 
next 
tsin.close 

Answer 1

使用System.IO.StreamWriter S和System.IO.StreamReader S：

Using in As New StreamReader("C:\input.txt") 
    Dim out(9) As StreamWriter 

    For i As Integer = 0 To 9 
     out(i) = New StreamWriter("C:\output" & i & ".txt") 
    Next 

    While in.Position < in.Length 
     Dim l As Integer = Integer.Parse(in.ReadLine().Substring(1, 1)) 

     out(l).WriteLine(l.ToString()) 
    End while 

    For i As Integer = 0 To 9 
     out(i).Close() 
     out(i).Dispose() 
    Next 
End Using 

注：這是假設Imports System.IO位於文件的開頭或整個項目範圍內。