■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