HSPTV!掲示板

はじめまして。

http://hsp.tv/play/pforum.php?mode=pastwch&num=54633
にあるサンプルの読み込みと保存はどうすればできますか?

リンク先に載っているスクリプトはFooty2を使ったものではなく、
リッチエディットボックスというものを使ったものなのだが……

>checkさん

失礼しました;;
リッチエディットボックスを色やフォントの情報を同時に保存し、読み込むときにその設定を反映させる方法はあれませんか？

このサイトのサンプルが使える(?)と思うのですが、 #include "llmod.as"でエラーが出てしまいます。
#include "llmod3.as"にしてもできませんでした。

http://chokuto.ifdef.jp/urawaza/richedtext.html

#include "llmod3\\llmod3.hsp"

にすると直りますよ。
起動しても何も表示されませんでしたが...（windows8.1）

/*ご参考(Googleで”HSP3 リッチエディットボックス”を検索して出る：修正)
リッチエディット - AkicanBlog
ttp://d.hatena.ne.jp/As_hsp/20091120/1258693836
はそのまま動きますね("test.txt"が作成されますが＝.rtf)
*/

；蛇足
GetProcAddress LoadLibrary("kernel32"), "WriteFile"
dupptr  hh,libptr(WriteFile)+24,4

>hamyuuさん
ありがとうございます！僕の環境でも、何も起こりませんでした。

>fortunehillさん

せっかく、貴重なアイデアを頂きましたが、
http://hsp.tv/play/pforum.php?mode=pastwch&num=54633
のサンプルを使う形で保存、読み込みはできませんでしょうか？
できるだけ、少ない方がいいので。

気を悪くされないでください。本当に、すみません。

どうもEM_STREAMOUTを送ればいいようですが、どうもそのモジュールはうまく行かなくて(orz)
ここのページがよさそうです
http://chokuto.ifdef.jp/urawaza/savertf2.html
組み込みも楽だと思います

参考:EM_STREAMOUT
http://chokuto.ifdef.jp/urawaza/message/EM_STREAMOUT.html

/*ご参考(指定スクリプトの各位置に下記を追加する):修正
終了時に内容を保存して実行時に読み込む動作に成るハズです。
（ コールバックのバイナリー部分は重複していますが同じものです
モジュールに組み替える際適当に処理して下さい）
*/

;①stop                         :最終行の下に下記を追加する。
#deffunc  xxx_Save int p1,str p2,int p3,local ii,local jj,local ww,local nn,local bb
          bb = $0424448B,$74FF006A,$74FF1424,$74FF1424,$30FF1424,$F70450FF,$40C01BD8,$000010C2
          dupptr ww,libptr(WriteFile)+24,4
          CreateFileA p2,$40000000,0,0,$2,$80,0       :ii = stat
          if (ii == -1) {return -1}                   :jj = ii,ww
          nn =  varptr(jj),0,varptr(bb)
          sendmsg p1,$44A,limit(p3+1,1,2),varptr(nn)
          CloseHandle ii
return    nn
#deffunc  xxx_Load  int p1,str p2,int p3,local ii,local jj,local rr,local nn,local bb
          bb = $0424448B,$74FF006A,$74FF1424,$74FF1424,$30FF1424,$F70450FF,$40C01BD8,$000010C2
          dupptr rr,libptr(ReadFile )+24,4
          CreateFileA p2,$80000000,0,0,$3,$80,0       :ii = stat
          if (ii == -1) {return -1}                   :jj = ii,rr
          nn =  varptr(jj),0,varptr(bb)
          sendmsg p1,$449,limit(p3+1,1,2),varptr(nn)
          CloseHandle ii
return    nn
;②
;*exit                          :行の下に下記を追加する
;xxx_Save hwnd_re,"test.rtf",1

;③
;dim cf2,21 // CHARFORMAT2構造体:行の下に下記を追加する
;xxx_Load hwnd_re,"test.rtf",1

>（’’さん

すみません。初心者向けではないようです。僕には、さっぱり分かりませんでした。

>fortunehillさん

ありがとうございます！解決できました！
明確な指示なども加えて頂き、感極まる思いです！