VB.Net2003でバイナリファイル作成

質問

すいません。VB.Net2003初心者です。
いろいろ調べましたが、よく解らないので教えていただけないでしょうか。
下表1のようなバイナリファイルを作成したいのですが、うまくいきません。
どのようにしたら作成できるのでしょうか、教えてください。

表1
[offset]: +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F 0123456789ABCDEF
----------------------------------------------------------------------------
00000000: 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00000090: 00 00 35 35 33 30 30 30 35 00 00 00 00 00 00 00 ..5530005.......
000000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................

回答No.1

BLUEPIXY · ベストアンサー

Imports System
Imports System.IO

Class ExampleClass
Shared Sub Main()
Dim Fs As FileStream = New FileStream("binfile.dat", _
FileMode.Create, FileAccess.Write, FileShare.None)
Dim out As BinaryWriter = New BinaryWriter(Fs)

out.write(CByte(4))

Dim i As Integer
For i=1 To 16*9 + 1
out.write(CByte(0))
Next

Dim str As String = "5530005"
out.write(str.ToCharArray())

For i=1 To 16+7
out.write(CByte(0))
Next

out.Flush()
out.Close()
End Sub
End Class

お礼

ありがとうございます！！
できました！
助かりました。