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


HSPTV!掲示板


未解決 解決 停止 削除要請

2017
0402
Lock on Hspメモ帳を作っているのだが....txt読み込むと数字が...2解決


Lock on Hsp

リンク

2017/4/2(Sun) 12:33:37|NO.78805

私は今 メモ帳を作成してます....、ですがtxtを読み込むとき字じゃなくて
数字が出できます。おかしいところがあったら教えてください。
siro.pngは画面を白くするためです
ソースコード 
define PBM_SETPOS 0x0402 ;位置設定
#define PBM_GETPOS 0x0408 ;位置取得
#define PBM_SETSTATE 0x0410 ;状態設定
#define PBM_GETSTATE 0x0411 ;状態取得
#define PBST_NORMAL 0x0001 ;通常(緑)
#define PBS_MARQUEE 0x08
#define PBM_SETMARQUEE 0x040A

pos 200,400
winobj "msctls_progress32", "", 0, $50000000 | PBS_MARQUEE, 200, 20
h=objinfo(stat,2) ;オブジェクトのハンドル
; p3 1で有効
; p4 アニメーション速度を指定
; 0を指定するとデフォルト速度?
sendmsg h,PBM_SETMARQUEE,1,0
pos 200,150
font "MS ゴジック", 40, 1
mes"Power note xp"
wait 200
picload"siro.png"
value1 = "入力ボックス" ; 文字列型変数
pos 50, 50
input value1, 800, 800
pos 0,0
button"セーブ",*save
pos 100,0
button"ロード",*load
pos 200,0
button"Help",*help
pos 300,0
button"END",*en
stop
stop


*help
screen 3.500,200
mes"このPower noteはWindows標準のメモ帳を超えた?メモ帳です。"
mes"使い方は単純に入力boxに入力してボタンを押し保存したりできる"
mes"便利なメモ帳(ノート)です。"
stop

*en
dialog"終了します。おつかれさまでした。":end

*load
dialog ,16
if stat == 1 {//dialog16と17では何も読み込まれずダイアログをとじた場合statに0が代入されるのでここでは1
bload refstr,buf//変数bufにrefstrの内容を代入
objprm 0,u
objprm 0, buf//オブジェクトID0(mesbox)にbufを表示
}
stop

*save
dialog "txt", 17, "保存する名前"
if stat = 0 : stop
fname = refstr
exname=getpath(fname,2) ; ファイル名の拡張子を取得
if exname="" : fname+=".txt"
notesel text
notesave fname



この記事に返信する


ぃね

リンク

2017/4/2(Sun) 14:08:39|NO.78811

ファイルの読込にnoteloadを利用してみてください。

*loadのbloadの行を

notesel buf noteload refstr
に書き換えればしっかり文字列として読み込めると思います



Lock on Hsp

リンク

2017/4/2(Sun) 15:27:18|NO.78813

ありがとうございました 解決しました。



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