VBSでNull文字を半角スペースへ置換

質問

バイナリデータを文字列として取得したいのですがお知恵をお貸し下さい。
Stirlingというツールで開くと　ADDRESS 00000000、00000010の部分に
ABC 123.........　と　.........A11111.　の行があり

Scripting.FileSystemObjectで1行目は　ABC 123　と取得できるのですが2行目が[]となります
検索してNull文字で読み込めないのだろうとまでは見当が付き
ADODB.streamでNull文字を半角スペースへ置換しようとして躓いています

Dim strm
Set strm = CreateObject("ADODB.stream")
strm.Open
strm.Type = 1
strm.LoadFromFile(FilePath)

Dim ary1()
Redim ary1(31)
For i = 0 To 31
If ??? <> 0x00 Then　’←この部分
ary1(i) = strm(i)
else
ary1(i) = 20　’半角スペース
end if

データの比較で躓いています
どなたかご教授願えませんでしょうか
よろしくお願いいたします

回答No.1

dell_OK · ベストアンサー

読み込みの処理がなかったので勝手に追加しました。
Dim strm
Set strm = CreateObject("ADODB.stream")
strm.Open
strm.Type = 1
strm.LoadFromFile (FilePath)
Dim buf'読み込み用
buf = strm.Read(32)'読み込み
Dim b'１バイト用
Dim ary1()
ReDim ary1(31)
Dim i
For i = 0 To 31
b = AscB(MidB(buf, i + 1, 1))'１バイト取得して数値に変換
If b <> 0 Then '←変換した数値がゼロでないかどうか
ary1(i) = b'←そのままの値
Else
ary1(i) = 20 '半角スペース
End If
Next

お礼

dell_OK様
早速のご教授ありがとうございます。

Dim buf'読み込み用
buf = strm.Read(32)'読み込み

b = AscB(MidB(buf, i + 1, 1))'１バイト取得して数値に変換
If b <> 0 Then '←変換した数値がゼロでないかどうか
ary1(i) = b'←そのままの値

この情報でもう少し試行錯誤してみます。
又質問させていただく際にはよろしくお願いいたします。
本当にありがとうございました。