ExcelVBAで質問

■ このスレッドは過去ログ倉庫に格納されています

0001kai

NGNG

最近ExcelVBAでいろいろ作っているのですが、BASICにあった
PEEK＠｀POKEがありません。で、あるファイルの指定アドレスの
1バイトを数値で取り出したいのです。
下のModuleを作ったのですが思うようにデータを取り出して
くれません。どこが悪いのでしょうか？どうかご教授下さい。

rem data.bin のアドレス 10h を取り出す。
Sub byteread()
Close #1
Open "data.bin" For Binary As #1
dat$ = String(1＠｀ " ")
Get #1＠｀ &h10＠｀ dat$
b = Val("&H" & dat$)
MsgBox (b)
End Sub

0002たぶん

NGNG

文字列 dat$ が可変長になってるのでは？
[固定長文字列の宣言]でヘルプを検索してみましょう

0003名無しさん

NGNG

Sub byteread()
Dim b As Byte
Close #1
Open "data.bin" For Binary As #1
Get #1＠｀ &H10＠｀ b
MsgBox (b)
End Sub

これでいいんぢゃないか？

■ このスレッドは過去ログ倉庫に格納されています