C# と VB.NET の質問掲示板

■No83274 (魔界の仮面弁士 さん) に返信
> 現状のこの、
> 　　UTF-8 Binary → String → 改行単位の String()
> という変換処理を見直して、

MemoryStream / StreamReader で一行ずつ処理するのがよいかもしれません。

List<string> rows = new List<string>();
using (MemoryStream ms = new MemoryStream(bin))
using (var sr = new StreamReader(ms, Encoding.UTF8)) {
	string line;
	while ((line = sr.ReadLine()) != null) {
		rows.Add(line);
	}
}

追記
FileStream.CopyToで、FileStreamからMemoryStreamに直接バイナリを渡す
http://www.atmarkit.co.jp/fdotnet/dotnettips/1047streamcopyto/streamcopyto.html

Private Sub main()

    For i As Integer = 1 To 1000

        Dim s As Integer = (i - 1) * div

    For j As Integer = 1 To 10

        Dim k As Integer = (i - 1) * div + j


        Dim fs As New FileStream(StrPath(k), FileMode.Open, FileAccess.Read)
        fs.Read(bs, 0, file_size)
        fs.Close()


        MultiTask_in(j) = New Task(AddressOf Data_in, bs)
        MultiTask_in(j).Start()

    Next j



    For j As Integer = 1 To 10

        MultiTask_in(j).Wait()

    Next j

    Next i

End Sub



Private Sub Data_in(ByVal bs1() As Byte)

Dim bs0() As Byte = bs1.Clone

 Dim foundIndex As Integer = Array.IndexOf(Of Byte)(bs0, 13)


While 0 <= foundIndex

    If foundIndex + 1 < bs0.Length - 130 Then
        '次の要素を検索する
        Dim str As String = Encoding.UTF8.GetString(bs0, foundIndex, 130)
        foundIndex = Array.IndexOf(Of Byte)(bs0, 13, foundIndex + 1)
    Else
        '最後まで検索したときはループを抜ける
        Exit While
    End If
End While

End Sub

というコードを書いたのですが
Forループでバイト配列を流用したい場合
Dim bs0() As Byte = bs1.Clone
のようにして配列を一度コピーしないと、次の
ループで前のデータが上書きされてしまうと思います。

しかし、このクローンコピーは結構時間がかかってしまいます。

このクローンコピーを避けるためには、


    For j As Integer = 1 To 10
・・・・

    Next j

のところを



        Dim fs As New FileStream(StrPath(k), FileMode.Open, FileAccess.Read)
        fs.Read(bs, 0, file_size)
        fs.Close()

        MultiTask_in(1) = New Task(AddressOf Data_in, bs)
        MultiTask_in(1).Start()



        Dim fs As New FileStream(StrPath(k), FileMode.Open, FileAccess.Read)
        fs.Read(bs, 0, file_size)
        fs.Close()

        MultiTask_in(2) = New Task(AddressOf Data_in, bs)
        MultiTask_in(2).Start()

・・・


のようにしてforを使わずに書くしかないでしょうか？
もっと良い方法があれば教えてください。