■No34586に返信(rararaさんの記事)


行毎にサイズが違うのであれば提示された方法は利用できません。
また記述が古い方法であるので、推奨されません。
以下、半角文字(ASCII)のみと仮定したサンプルです。


Imports System.IO
Imports System.Text



        Dim enc = Encoding.ASCII

        Using stm = File.OpenWrite("D:\work\test.txt")
            '行内容編集用バッファ最大byte数確保
            Dim buf = New Byte(50) {}

            Dim wrt As New BinaryWriter(stm)
            'ヘッダ(50byte)
            Dim hd As New MemoryStream(buf)
            hd.Write(enc.GetBytes("ab"))
            hd.Write(enc.GetBytes("cd"))
            hd.Write(enc.GetBytes(New String(" "c, 48 - hd.Position)))
            hd.Write(enc.GetBytes(vbCrLf))
            wrt.Write(buf, 0, 50)
            '明細(10byte)
            For i = 1 To 5
                Dim dtl As New MemoryStream(buf)
                dtl.Write(enc.GetBytes(i.ToString("00")))
                dtl.Write(enc.GetBytes("abc" & i))
                dtl.Write(enc.GetBytes(New String(" "c, 8 - dtl.Position)))
                dtl.Write(enc.GetBytes(vbCrLf))
                wrt.Write(buf, 0, 10)
            Next
        End Using