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

以下のように1つのファイルの最初にテキストを書き込み、
途中からバイナリデータを書き込むコードを書きました。

しかし、この方法だと、一度テキストファイルを書き込んだ後
再度、そのファイルを読み込むかたちになっており
無駄なオーバーヘッドが生じてしまいます。

テキストデータをバイナリとしてまとめて出力したいのですが
どのようにすれば良いですか？


        Dim a(xmax, ymax) As Double
        Dim b(num) As String

        Using writer As New StreamWriter(Path, False, Encoding.Default)

            For i = 1 To num

                writer.WriteLine(b(i))

            Next

        End Using



        Using stream As Stream = New FileStream(Path, FileMode.Append, FileAccess.Write, FileShare.Read, 1024 * 64, False)
            Using writer As New BinaryWriter(stream)

                For Y As Integer = 1 To ymax
                    For X As Integer = 1 To xmax

                        writer.Write((a(X, Y)))

                    Next X

                Next Y

            End Using
        End Using

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

FileStreamをパカっと開けて文字列を書き込んでフラッシュして
バイナリをドバっと書き込む感じでいけないですかね

Using Stream As New System.IO.FileStream("test.txt", System.IO.FileMode.Create)
    Dim Writer = New IO.StreamWriter(Stream, Text.Encoding.UTF8)
    Writer.WriteLine("文字列")
    Writer.Flush()

    Dim Binary = Text.Encoding.UTF8.GetBytes("バイナリ")
    Stream.Write(Binary, 0, Binary.Length)
End Using