¥Ð¡¼¥¸¥ç¥ó3.0¡ÊbetaÈǤϺï½ü¤·¤Þ¤·¤¿¡Ë¤Ç¥µ¥Ö¥¦¥£¥ó¥É¥¦¤«¤é¥Õ¥¡¥¤¥ë̾¤ÎÊѹ¹¤ò
hspext.as¡¡¤Î¡¡fxrenÌ¿Îá¤Ç¼Â¹Ô¤·¤¿¤Î¤Ç¤¹¤¬¡¢HSP3.0¾å¤Ç¤ÏÀµ¾ïÆ°ºî¤¹¤ë¤ó¤Ç¤¹¤¬
EXE¥Õ¥¡¥¤¥ëºîÀ®¤È¤«¼«Æ°ºîÀ®¤È¤«¤Çºî¤Ã¤¿EXE¤ò¼Â¹Ô¤¹¤ë¤È
#Error38
-->ÆâÉô¥¨¥é¡¼¤¬È¯À¸¤·¤Þ¤·¤¿¡Ê£³£¸¡Ë
¤È¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤É¤¦¤·¤Æ¤Ê¤ó¤Ç¤·¤ç¤¦¤«¡©
»ä¤Îºî¤êÊý¤¬¤ª¤«¤·¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©
¡Ú¥¨¥é¡¼È¯À¸¤ÎÁàºî¼ê½ç¡Û
¡°Ê²¼¤ÎÆâÍƤòHSP3.0¤Ë¤ÆEXE¥Õ¥¡¥¤¥ë¤òºîÀ®
¢¥Õ¥¡¥¤¥ë̾Êѹ¹¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯
£¿·¥¦¥£¥ó¥É¥¦¤ÎOK¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯
¤¥¨¥é¡¼È¯À¸
*/»²¹Í¡§input¤ËÆþÎϤµ¤ì¤Æ¤¤¤ëtest¤òºï½ü¤·¤Æ¤«¤é²¡¤¹¤È²¿¤«Ì¾Á°¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤
¡¡¡¡¡¡¡¡¤Èɽ¼¨¤µ¤ì¤Þ¤¹¡Ë
#include "hspext.as"
screen 0
width 220,390,300,200
objsize 150,20
button "¥Õ¥¡¥¤¥ë̾Êѹ¹¡¡ ",*che
button "ÊĤ¸¤ë",*owari
stop
*che
screen 1,200,70,2,500,300 : title "¥Õ¥¡¥¤¥ë̾Êѹ¹"
color 35,140,35: boxf
gsel 1, 1
b="test"
pos 8,8
objsize 180,25
input b
objsize 80,20
pos 10,40
button "OK",*goche
pos 100,40
button "ÊĤ¸¤ë",*end3
stop
*goche
if b="" : dialog "²¿¤«Ì¾Á°¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤",0,"ÆþÎÏ¥¨¥é¡¼" : stop
dir="C:\\test.txt"
fxren dir,""+b+".txt"
if stat=0 : dialog ""+dir_cur+"¤ËÊݸ¤·¤Þ¤·¤¿¡£\n\n¥Õ¥¡¥¤¥ë̾ : "+b+".txt",0,"¥Õ¥¡¥¤¥ë̾Êѹ¹¡õÊݸ" : stop
if stat=1 : dialog "¥Õ¥¡¥¤¥ë¤¬¸«¤Ä¤«¤é¤Ê¤¤¤«¡¡\nÆþÎϤ·¤¿¥Õ¥¡¥¤¥ë̾¤¬½ÅÊ£¤·¤Æ¤¤¤Þ¤¹¡£",1,"Êݸ¥¨¥é¡¼"
stop
*end3
gsel 1,-1
stop
*owari
end