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

http://bbs.wankuma.com/index.cgi?mode=al2&namber=83387
この質問ページで巨大なテキストファイルを高速で出力する方法を教えていただきました。

次は、バイト配列から巨大なバイナリファイルを高速で出力したいと考えています。

元となるコードは以下の物です。

Dim a(xmax, ymax, zmax) As Byte


        Using stream As Stream = New FileStream(Path, FileMode.Create)
            Using writer As New BinaryWriter(stream)

                For z As Integer = 1 To zmax
                    For y As Integer = 1 To ymax
                        For x As Integer = 1 To xmax

                            writer.Write(a(x, y, z))

                        Next x
                    Next y
                Next z

            End Using
        End Using


これをどのようにすれば
マルチスレッドを使って高速化することができますか？

既にバイト化されているので、
マルチスレッドを使ったとしても高速化するのは無茶でしょうか？

            Dim sabun As Integer = xmax * ymax
            Parallel.For(1, zmax + 1,
                    Sub(z)

                        Dim h As Integer = sabun * (z - 1)

                        For y As Integer = 1 To ymax

                            For x As Integer = 1 To xmax

                                buffer(h) = (a(x, y, z))
                                h += 1

                            Next x
                        Next y

                    End Sub)



            Using fs As New System.IO.FileStream(TempPath, System.IO.FileMode.Create, System.IO.FileAccess.Write)
                                     fs.Write(buffer, 0, buffer.Length)
                                 End Using


これで、数倍速くなりました

これが限界でしょうか？

■No83675 (バカボドン さん) に返信

シングルスレッドの方が速いのじゃないかなと思いました。
これどうでしょう？

Dim Data(a.Length - 1) As Byte
Buffer.BlockCopy(a, 0, Data, 0, a.Length)

Dim BufferSize = 1024 * 64

Using Stream As New System.IO.FileStream(TempPath, System.IO.FileMode.Create, System.IO.FileAccess.Write, System.IO.FileShare.Read, BufferSize, False)
    Stream.Write(Data, 0, Data.Length)
End Using