HSPTV!掲示板

HSPでこのようなことできますか？

http://www.vector.co.jp/soft/win95/util/se079072.html

出来ればどのようにしたらいいか教えてください。

お願いします。

根気さえあればなんでもできる。

>出来ればどのようにしたらいいか教えてください。
根性入れていろいろ調べればできるだろう。

bload
peek
を使うのはわかるのですが・・・

どうしても途中で 終了コード？ があるせいか
すべて開く前に終わってします。

>すべて開く前に終わってします。
考えられる原因は下の二つですね。
・bloadのp2に読み込むサイズを指定している
　bloadはp2で指定したサイズだけ読み込みます。
・strlen関数を使用している
　strlenなどの関数は終了コード(0x00)までのバイト数で取得しているため、
　この関数ではなく、bloadの後のstrsizeでバイト数を取得しないとうまく
　バイト数が取得できません。

bload を使う前に、バッファを確保していないとか？
bload の第二引数に 指定する変数は、指定したサイズ分だけあらかじめ確保されている
必要が有ります。bloadは自動確保してくれません。

dialog "",16,""
if stat=1 {
	exist refstr
	fSize=strsize
	bload refstr,buffA,fSize,0
	mes "サイズ確保無し : filesize = "+fsize+"byte : opensize = "+strsize +"byte"
	sdim buffB,fSize
	bload refstr,buffB,fSize,0
	mes "サイズ確保有り : filesize = "+fsize+"byte : opensize = "+strsize +"byte"
}

すみません。

言い忘れていました。

bmp , wav などを開く場合でした。

＞どうしても途中で 終了コード？ があるせいか
＞すべて開く前に終わってします。

という発言を受けて、ファイルの内容を全て変数に読み出す方法を
すでにhexa.hemiさんとinfoさんが回答してくれています。
まずはその情報を元に自身のスクリプトを見直し、
どういう結果になったかを書き込むのが先ではないですか？

それでも原因が分からない場合は、このままではキリがないので
どういうスクリプトで上手く行かなかったのかを示した方が良いでしょう。

多分「バイナリデータ」と「文字データ」の違いが分かっていないのでは？
まず、そこから勉強してください。

１バイト毎に数値として読み出して
　数値が　　０なら、文字列の００に
　数値が　１０なら、文字列の０Ａに
　数値が２５５なら、文字列のＦＦに
成るように考えてください。

KAさんへ
それはわかっています・・・

通りすがりさんのレス見ましたか？
見たのであればなぜスルーしたのですか？

スルーぇ

とても遅くなりました。

すみませんでした。

皆様のおかげで解決しました。

以下が今回作成したスクリプトです。

#module
#deffunc peekt2 var a,var b,int c,int d
a=""
repeat d
a+=""+strf("%02X",peek(b,c+cnt))+" "
a+=""
e=cnt/16
f=cnt-e*16
if f=15:a+="\n"
title ""+cnt+" / "+d+""
await 0
loop
return
#global

dialog "",16,""
if stat=1 {
	exist refstr
	fSize=strsize
	sdim buffB,fSize
	bload refstr,buffB,fSize,0
}

peekt2 buffC , buffB , 0 , fSize

font "ＭＳ ゴシック",18
objmode 2
pos 0,1
mes "00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
pos 0,20
mesbox buffC , 640 ,460 , 5 , -1

本当にありがとうございました。