HSPTV!掲示板

cls 1
sdim a,65000
flg=1
mesbox a,640,440,flg+4
objsize 60,24
pos 430,448:button "LOAD",*file_load
pos 500,448:button "SAVE",*file_save
pos 570,448:button "END",*endbtn
stop

*file_save
dialog "txt",17,"テキストファイル"
if stat=0 : goto *dlcan
fname = refstr
exname=getpath(fname,2)
if exname="" : fname+=".txt"
notesel buf
notesave fname
*dlcan
stop

*file_load
dialog "txt",16,"テキストファイル"
if stat=0 : goto *dlcan2
notesel buf
noteload refstr
objprm 0,buf
*dlcan2
stop

*endbtn
end

僕の購入した本では
このソースでメモ帳見たいに
ロードとセーブができると書いてるのですが
実行するとすべてのファイルを選択したいの保存できないし
それをロードしようとしてもできません
どうすれいいのでしょうか？

	cls 1
	sdim buf,65000
	notesel buf
	flg=1
	mesbox buf,640,440,flg+4
	objsize 60,24
	pos 430,448:button "LOAD",*file_load
	pos 500,448:button "SAVE",*file_save
	pos 570,448:button "END",*endbtn
	stop

*file_save
	dialog "txt",17,"テキストファイル"
	if stat=0 : goto *dlcan
	fname = refstr
	exname=getpath(fname,2)
	if exname="" : fname+=".txt"
	notesave fname
	
*dlcan
stop

*file_load
	dialog "txt",16,"テキストファイル"
	if stat=0 : goto *dlcan2
	noteload refstr
	objprm 0,buf
 
*dlcan2
stop

*endbtn
end

ソースはpreで囲みましょう

原因はmesboxにはaが指定されているのに、
notesaveで保存しようとしているのはbufが指定されているためです

aにしたのですができません＞＜
テキストファイルで保存しようとして保存のダイアログの
保存というブタンをクリックしても何も起きません＞＜

>僕の購入した本では
　まずさ、ここに書いてくれたソースって、本に載っている「ある一ソース」の一部分だよね？
(clsとかflgの使い方が変だからそう思った)

　それは横に置いとくとして、とりあえず修正スべき場所をば。
　「sdim buf,65000」と「mesbox a,640,440,flg+4」にある変数「a」を、「buf」という名前に変更しましょう。これで、編集したところが反映されます。
>aにしたのですができません＞＜
　aの名前の方にしたければ、17・25・27行目にある変数「buf」を全て「a」という名前に変更する必要があります。

>YSRさん
本の内容そのままです。

書いていただいた通りにやったのですがやっぱりできませんん＞＜

ええと…
まず自分が貼ったのをそのまま実行すれば動くと思うのですが、できませんか？

>テキストファイルで保存しようとして保存のダイアログの
>保存というブタンをクリックしても何も起きません＞＜

保存ダイアログには *.txt　が元から入っていますが、ちゃんと書き換えているでしょうか？
*.txtのままだと保存されません

>実行するとすべてのファイルを選択したいの保存できないし
>それをロードしようとしてもできません

については理解できませんでした

>kanahironさん
出来ました^^ありがとうございます！
本当にありがとうございます