HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0807
カカオ豆ソースについて6解決


カカオ豆

リンク

2012/8/7(Tue) 14:18:22|NO.48234

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

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



この記事に返信する


kanahiron

リンク

2012/8/7(Tue) 14:49:39|NO.48241


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が指定されているためです



カカオ豆

リンク

2012/8/7(Tue) 15:28:16|NO.48244

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



YSR

リンク

2012/8/7(Tue) 20:58:22|NO.48264

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

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



カカオ豆

リンク

2012/8/8(Wed) 15:07:39|NO.48295

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

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



kanahiron

リンク

2012/8/8(Wed) 15:38:31|NO.48297

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

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

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

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

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



カカオ豆

リンク

2012/8/8(Wed) 15:53:48|NO.48299

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



ONION software Copyright 1997-2018(c) All rights reserved.