複数の開いているテキストストリームに書き込む

Question

vb.netを初めて使っています。私はvb 6を使って多くの経験を持っています。私が知りたいのは、ファイルシステムオブジェクトを置き換える方法です。具体的には、私はテキストストリーム配列を使いたいと思っています。私はどのようにvb.netで次のように書いていますか

私は、1バイトの長さのテキストファイルを持っていると仮定しています。 （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

使用TSOUTにTSOUTに行くための1（1）を持つすべてのレコードを、2をしたい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