0

私はvb.netが初めてです。私はvb 6を使用した経験が豊富です。私が知りたいのは、ファイルシステムオブジェクトを置き換える方法です。具体的には、テキストストリーム配列を使用したいと考えています。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
4

1 に答える 1

0

System.IO.StreamWriterおよびを使用しますSystem.IO.StreamReader。

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、ファイルの先頭、またはプロジェクト全体を想定しています。

于 2012-04-11T23:18:19.740 に答える