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


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0819
でーすメモファイルの読み込み3未解決


でーす

リンク

2009/8/19(Wed) 15:15:13|NO.27164

デスクトップにメモファイル(A)をつくって
その中の内容をCOMBOX(mesa)に代入するにはどうすればよいですか?



この記事に返信する


ぷーさん

リンク

2009/8/19(Wed) 16:23:41|NO.27167

メモファイルとはおそらくtxt形式のファイルですよね?

それならばメモリノートパッド命令を使うと良いでしょう。
保存するときは、notesaveという命令を使い、
COMBOXに入れたい文字列を保存しておき、
読み込む際に、noteloadという命令を使って、
メモリノートパッドのバッファに読み込みます。

保存するとき、読み込むとき、ともに
notesel命令で、事前にメモリノートパッドのバッファを確保しておいてください。

以下は簡単なスクリプトですので参考にどうぞ。


*main cls objsize 150,20 chdir "C:\\Documents and Settings\\"+sysinfo(1)+"\\デスクトップ" notesel buf button "保存",*save button "読み込み",*load stop *save cls buf="こ\nこ\nに\n文\n字\n入\n力\n" title "文字を入力して保存してください" mesbox buf,640,455 button "保存",*save2 stop *save2 notesave "A.txt" goto *main *load cls exist "A.txt" if strsize!-1:noteload "A.txt":else:buf="ファイルが見つかりません" combox com,300,buf button "戻る",*main stop



でーす

リンク

2009/8/20(Thu) 09:40:50|NO.27190

ご協力ありがとうございます。
では、このスクリプトで
23行目にあたる comboxをmesboxに変更するにはどうすればいいですか?



Hiroaki Software

リンク

2009/8/20(Thu) 09:58:29|NO.27191

以下のスクリプトになりますね


*main cls objsize 150,20 chdir dirinfo(0x10000) notesel buf button "保存",*save button "読み込み",*load stop *save cls buf="こ\nこ\nに\n文\n字\n入\n力\n" title "文字を入力して保存してください" mesbox buf,640,455 button "保存",*save2 stop *save2 notesave "A.txt" goto *main *load cls exist "A.txt" if strsize!-1:noteload "A.txt":else:buf="ファイルが見つかりません" mesbox buf,640,480 button "戻る",*main stop

>ぷーさんへ
chdir "C:\\Documents and Settings\\"+sysinfo(1)+"\\デスクトップ"
なのですが
デスクトップに移動したい場合
chdir dirinfo(0x10000)
で移動できます



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