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

どうも、元のコードだと
GetBytesAndWriteSync
がファイルを書き込むコードになっていないようでした。

あと、
外側のループを減らすために、以下のようにxyまるごと配列にして出力する方法も試してみましたが
なぜか10倍くらい遅くなってしまいました




    <MethodImpl(MethodImplOptions.NoOptimization)>
    Sub GetBytesAndWriteASync4(ByVal a(,,) As Single, ByVal enc As Encoding, ByVal path As String)
        Using stream As New FileStream(path, FileMode.Create)


            For z As Integer = 0 To a.GetUpperBound(0)


                    Dim buf(a.GetUpperBound(1))() As Byte


                    Dim zz As Integer = z

                    Parallel.For(0, buf.Length,
                                 Sub(y)
                                buf(y) = {}
                                For x As Integer = 0 To a.GetUpperBound(2)

                                    buf(y) = buf(y).Concat(enc.GetBytes(a(zz, y, x).ToString())).ToArray()

                                Next

                                 End Sub)

                   For Each b In buf
                        stream.Write(b, 0, b.Length)
                        stream.WriteByte(&HD)       'CR
                        stream.WriteByte(&HA)       'LF
                  Next b


            Next z


        End Using
    End Sub

■No83414 (バカボドン さん) に返信
> 外側のループを減らすために、以下のようにxyまるごと配列にして出力する方法も試してみましたが
> なぜか10倍くらい遅くなってしまいました

改良案
    Sub GetBytesAndWriteASync5(ByVal a(,,) As Single, ByVal enc As Encoding, ByVal path As String)
        Using stream As New StreamWriter(path, FileMode.Create)
            For z As Integer = 0 To a.GetUpperBound(0)
                Dim buf(a.GetUpperBound(1)) As StringWriter
                Dim zz As Integer = z
                Parallel.For(0, buf.Length,
                             Sub(y)
                                 buf(y) = New StringWriter()
                                 For x As Integer = 0 To a.GetUpperBound(2)
                                     buf(y).WriteLine(a(zz, y, x))
                                 Next
                             End Sub
                )

                For Each b In buf
                    stream.Write(b.ToString())
                Next b
            Next z
        End Using
    End Sub

追記
For Each b In buf
をTask化すれば、さらに速くなる

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


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

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