HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2008
1015
AziO""¤À¤±¤òÈ´¤¯ÊýË¡8²ò·è


AziO

¥ê¥ó¥¯

2008/10/15(Wed) 23:34:43|NO.20222

¤¿¤Ó¤¿¤Ó¤¹¤ß¤Þ¤»¤ó¡£
Á°²ó¡¢dir_cmdline¤ò¶µ¤¨¤Æ¤â¤é¤Ã¤¿¤â¤Î¤Ç¤¹¤¬¡¢


noteload dir_cmdline
¤³¤ì¤Ç¤Ï¡É¡É¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¥¨¥é¡¼¤¬¤ª¤­¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤É¤¦¤·¤¿¤é dir_cmdline ¤ò¤Ä¤«¤Ã¤Æ¥Õ¥¡¥¤¥ëÆɤ߹þ¤ß¤Ç¤­¤ë¤Î¤Ç¤¹¤«¡©



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


SYAM

¥ê¥ó¥¯

2008/10/15(Wed) 23:56:38|NO.20226

strmidÌ¿Îá¤Ïʸ»úÎó¤Î°ìÉô¤òÈ´¤­½Ð¤¹Ì¿Îá¤Ç¤¹¡£

""¤Ë°Ï¤Þ¤ì¤Æ¤¤¤ë¤«¤â¤·¤ì¤Ê¤¤Ê¸»ú¤Î¡¢""¤ò³°¤¹¥¹¥¯¥ê¥×¥È¤ò°Ê²¼¤Ë¼¨¤·¤Þ¤¹¡£
ÂоΤÎʸ»úÎóÊÑ¿ô¤ò s ¤È¤·¤Þ¤¹¡£


if strmid(s,0,1)="\"" : s=strmid(s,1,strlen(s)-2)



¥ì¥Î¥¹

¥ê¥ó¥¯

2008/10/15(Wed) 23:57:33|NO.20227

¼«Ê¬¤ÇÄ´¤Ù¤ì¤Ð´Êñ¤Ë¤Ç¤­¤Þ¤¹¡£
¥Ò¥ó¥È¡§getstr



inovia

¥ê¥ó¥¯

2008/10/16(Thu) 16:48:39|NO.20237

HSP2x»þÂ夫¤é¤³¤ó¤Ê´¶¤¸¤Ç½èÍý¤·¤Æ¤Þ¤¹¡£(^O^)¡¿
ÊÑ¿ôfname¤ËÂåÆþ¤µ¤ì¤Þ¤¹¡£


if dir_cmdline!="":{ sdim pass,1024 sdim fname,1024 pass = dir_cmdline tmp=peek (pass,0) if (tmp == 34) { // 1ʸ»úÌܤ¬"¤Ç¤¢¤Ã¤¿¾ì¹ç¼è¤ê½ü¤¯(WinNT/WinXP/Vista) // 1ʸ»úÌܤȺǸå¤Î"¤ò¼è¤ê½ü¤¤¤Æfname¤ËÂåÆþ long=strlen (pass) long -= 2 fname=strmid (pass,1,long) } else { fname = pass } }



.Hrk

¥ê¥ó¥¯

2008/10/16(Thu) 18:19:30|NO.20251

¥³¥Þ¥ó¥É¥é¥¤¥óʸ»úÎó¤Î¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Î´Êñ¤Ê½üµî½èÍý¤Ç¤¹

Á°Äó¤È¤·¤Æ¡¢
1. ¥Õ¥¡¥¤¥ë¥Ñ¥¹¤òÅϤ¹
2. Ê£¿ô¤Î¥Õ¥¡¥¤¥ë¥Ñ¥¹¤òÅϤµ¤Ê¤¤
3. ¡Ö"hoge.txt¡×¤Î¤è¤¦¤Ê¡¢'"'¤Ç½ª¤ï¤Ã¤Æ¤¤¤Ê¤¤¥Ñ¥¹¤òÅϤµ¤Ê¤¤
¤È¤¤¤¦¾ò·ï¤¬¤¢¤ê¤Þ¤¹¡£

A, B, C¤Ï¤½¤ì¤¾¤ì¡¢¤É¤ì¤âƱ¤¸¤³¤È¤ò¤ä¤Ã¤Æ¤¤¤Þ¤¹¤Î¤Ç¡¢¤É¤ì¤«°ì¤Ä¤ò
»È¤¨¤Ð·ë¹½¤Ç¤¹¡£



;A) strmid¤ò»ÈÍѤ·¤¿¾ì¹ç path = dir_cmdline if( peek(path,0) == '"' ){ path = strmid(path,1,strlen(path)-2) } ;B) getstr¤ò»ÈÍѤ·¤¿¾ì¹ç path = dir_cmdline if( peek(path,0) == '"' ){ getstr path,path,1,'"' } ;C) dir_cmdline¤òÃÖ¤­´¹¤¨¤Æ¤ß¤ë __path=dir_cmdline #undef dir_cmdline #define dir_cmdline __path if peek(__path)=34:getstr __path,__path,1,'"'

½èÍý¤Îή¤ì¤È¤·¤Æ¤Ï¡¢¥³¥Þ¥ó¥É¥é¥¤¥óʸ»úÎ󤬡Öhoge.txt¡×¤Þ¤¿¤Ï
¡Ö"hoge.txt"¡×¤Î·Á¼°¤ÇÅϤµ¤ì¤ë¤Î¤Ç¡¢»Ï¤á¤Î°ìʸ»ú¤ò¥Á¥§¥Ã¥¯¤·
¤Æ¡¢¤â¤·'"'¤Ç¤¢¤ì¤Ð¸å¼Ô¤Î·Á¼°¤Ç¤¢¤ë¤Î¤Ç¡¢»Ï¤á¤Î'"'¤Î¸å¤«¤é¼¡
¤Î'"'¤Þ¤Ç¤Î´Ö¤Îʸ»úÎó¤ò¼è¤ê½Ð¤·¡¢ÊÑ¿ôpath¤Ë³ÊǼ¤·¤Þ¤¹¡£¤½¤¦¤Ç
¤Ê¤¤¾ì¹ç¤Ï¡¢¤½¤Î¤Þ¤Þpath¤Ë³ÊǼ¤µ¤ì¤¿¤â¤Î¤ò»È¤¨¤ÐOK¤Ç¤¹¡£

'"'¤Ï¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎASCII¥³¡¼¥É¡Ö34¡×(int·¿)¤òɽ¤·
¤Þ¤¹¡£

peekÌ¿Îá¤Ïʸ»úÎó¤ÎÀèƬ¤«¤é¿ô¤¨¤Æ£îÈÖÌܤÎʸ»ú¤Îʸ»ú¥³¡¼¥É¤òÊÖ¤¹
´Ø¿ô¤Ç¤¹¤Î¤Ç¡¢¤½¤ì¤È'"'¤òÈæ³Ó¤¹¤ë¤³¤È¤Ë¤è¤ê¡¢¥³¥Þ¥ó¥É¥é¥¤¥óʸ
»úÎó¤ÎÀèƬ¤¬¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç»Ï¤Þ¤Ã¤Æ¤¤¤ë¤«Èݤ«¤òȽÄꤹ
¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

strmid, getstrÌ¿Îá¤Ë¤Ä¤¤¤Æ¤ÏHSP¥¹¥¯¥ê¥×¥È¥¨¥Ç¥£¥¿¤Ë¤½¤ì¤¾¤ì¡¢
¡Östrmid¡×¡¢¡Ögetstr¡×¤ÈÂǤÁ¡¢ÂǤä¿Ê¸»úÎó¤òÁªÂò¤·¤¿¾õÂÖ¤ÇF1
¥­¡¼¤ò²¡¤¹¤³¤È¤Ë¤è¤êɽ¼¨¤µ¤ì¤ëHSP HELP Browser­¶¤ò¸«¤ì¤Ð¡¢¤É
¤¦¤¤¤Ã¤¿Ì¿Îá¤Ê¤Î¤«Ê¬¤«¤ë¤È»×¤¤¤Þ¤¹¡£¤½¤ì¤Ç¤âʬ¤«¤é¤Ê¤¤¾ì¹ç¤Ï
·Ç¼¨ÈĤǼÁÌ䤹¤ë¤È¤¤¤¤¤Ç¤¹¡£

ºÇ¸å¤Î#undef, #define¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡Ö¥Þ¥¯¥í¡×¤ä¡Ö¥×¥ê¥×¥í¥»¥Ã¥µ
Ì¿Îá¡×¤È¸Æ¤Ð¤ì¤ë¤â¤Î¤Ê¤Î¤Ç¡¢¥×¥í¥°¥é¥à¤òºî¤ë¾å¤ÇÆä˳Ф¨¤ëɬÍ×
¤Ï¤¢¤ê¤Þ¤»¤ó¡£HSP¤ÎÌ¿Îá¤ò¤À¤¤¤¿¤¤³Ð¤¨¤Æ¤·¤Þ¤Ã¤ÆË°¤­¤¿¤³¤í¤Ë»È
¤¤½Ð¤¹¤È¤¤¤¤¤È»×¤¤¤Þ¤¹¡£

Ĺ¡¹¤È½ñ¤¤¤Æ¤·¤Þ¤¤¤¹¤ß¤Þ¤»¤ó¡£



AziO

¥ê¥ó¥¯

2008/10/16(Thu) 22:23:27|NO.20263


DIR=Dir_cmdline if strmid(DIR,0,1)="\"" : DIR=strmid(s,1,strlen(s)-2) noteload DIR

¤³¤ì¤Ç¤Ï¡¢¥¨¥é¡¼¤¬µ¯¤­¤Æ¤·¤Þ¤¤¤Þ¤¹



KENTA

¥ê¥ó¥¯

2008/10/16(Thu) 22:36:15|NO.20266

noteload¤Ê¤É¤Înote·Ï¤ÎÌ¿Îá¤ò»È¤¦¾ì¹ç¡¢¤Þ¤ºnotesel¤ÇÊÑ¿ô¤ò»ØÄꤷ¤Ê¤±¤ì¤Ð¤¤¤±¤Þ¤»¤ó¡£

//Îã notesel val //ÊÑ¿ô¤ò»ØÄꤹ¤ë¡£ noteload "test.txt" //test.txt¤òÆɤ߹þ¤à¡£
¾Ü¤·¤¯¤Ï¥Ø¥ë¥×¤ò¸«¤ì¤Ð¤ï¤«¤ë¤È»×¤¤¤Þ¤¹¡£



AziO

¥ê¥ó¥¯

2008/10/16(Thu) 22:42:48|NO.20267

¤¹¤ß¤Þ¤»¤ó¡£
¤µ¤Ã¤­¾è¤»¤¿¥¹¥¯¥ê¥×¥È¤Ï¡¢Á´Éô¤¢¤ë¤¦¤Á¤Î1Éô¤òÈ´¤¤¤¿¤Î¤Ç¡¢
º£ÅÙ¤ÏÁ´Éô¾è¤»¤È¤­¤Þ¤¹¡£


*SYSTEM_SETUP #include "hspdef.as" exist "SETUP.ini" if strsize=-1 :dialog "¤Þ¤º¤Ï¥»¥Ã¥È¥¢¥Ã¥×¤ò´°Î»¤·¤Æ¤¯¤À¤µ¤¤¡£\n¥»¥Ã¥È¥¢¥Ã¥×¤·¤¿¸å¤Ë¤³¤Î¥½¥Õ¥È¤Ïµ¡Ç½¤·¤Þ¤¹":exec "SETUP.exe",16:end if strsize!-1 :bload "SETUP.ini",INI onexit gosub*SELECT_END screen 0,640,480 title "TEXT Edit for HTML" objsize 640,20 notesel HTML SAVE_END=0 HTML_TEST=0 *MEMORY_SETUP HTML={" <HTML> <HEAD> <meta http-equiv=\"Content-Type\" content=\"test/htm; chrset=Shift_JIS\" <TITLE>¤¢¤Ê¤¿¤Î¥Û¡¼¥à¥Ú¡¼¥¸¥¿¥¤¥È¥ë</TITLE> </HEAD> <BODY> </BODY> </HTML> "} *ON_SET if INI(0)=0:HTML="" notesel HTML SAVE_END=0 HTML_TEST=0 *OBJECT_SETUP objsize 640,20 mesbox HTML,640,400,5,0 button "| Load | <<HDD |",*LOAD_STEP1 button "| SAVE | >>HDD |",*SAVE_STEP1 button "| HTML TEST | DATA>>IE |",*HTML_TEST_STEP1 button "| HTML SAVE | DATA>>HDD |",*HTML_SAVE_STEP1 if dir_cmdline!"" :goto*AutoLoad stop *LOAD_STEP1 if SAVE_END=0 :dialog "¥»¡¼¥Ö¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£\nËÜÅö¤Ë¥í¡¼¥É¤·¤Þ¤¹¤«¡©",3 if STAT=7 :stop dialog "",16,"HTML_SORCE³ÊǼ¥Õ¥¡¥¤¥ë" if STAT=0 :stop noteload Refstr SAVE_END=1 cls goto*OBJECT_SETUP stop *SAVE_STEP1 dialog "",17,"HTML_SORCE³ÊǼ¥Õ¥¡¥¤¥ë" if STAT=0 :stop notesave Refstr SAVE_END=1 stop *HTML_TEST_STEP1 if refstr="":notesave "Defalt_Index.html" if refstr!"" :notesave refstr+"DefaltIndex.html" exec "Defalt_Index.html",16 HTML_TEST=1 stop *HTML_SAVE_STEP1 dialog "html;*htm",17,"HTML¥É¥­¥å¥á¥ó¥È" if STAT=0 :stop notesave Refstr+".html" stop *SELECT_END if SAVE_END=1 :end if SAVE_END=0 :dialog "¥»¡¼¥Ö¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£½ªÎ»¤·¤Þ¤¹¤«¡©",3,"·Ù¹ð" if STAT=6 and HTML_TEST=1:delete "DEFALT_INDEX.html":end if STAT=6 :end return *AutoLoad DIR=Dir_cmdline if strmid(DIR,0,1)="\"" : DIR=strmid(s,1,strlen(s)-2) noteload DIR *LOAD_END SAVE_END=1 objprm 0,HTML goto*OBJECT_SETUP stop

SETUP.exe¤Î¥¹¥¯¥ê¥×¥È

*SETUP screen 0,300,200,8 title "SETUP WIZARD" dim INI,10 exist "SETUP.ini" if strsize!-1 :bload "SETUP.ini",INI:HTML=INI(0):CPU=INI(1):SAVE=INI(2) objsize 300,50 chkbox "¤Ï¤¸¤á¤ËHTML´ðËܹ½Ê¸¤òÆþ¤ì¤Æ¤ª¤¯(*¿ä¾©)",HTML chkbox "¤Ê¤ë¤Ù¤¯CPUÀêµòΨ¤ò¹â¤á¤Æ¥Ñ¥Õ¥©¡¼¥Þ¥ó¥¹¤ò¤¢¤²¤ë(*¿ä¾©)",CPU chkbox "HTMLÊݸ¤¹¤ëºÝ¤Ë¼«Æ°Åª¤Ë.HTML¤Ë¤¹¤ë¡£(*¿ä¾©)",SAVE button "¤³¤Î¥»¥Ã¥È¥¢¥Ã¥×¾ðÊó¤ò½ÐÎÏ",*SAVE_INI stop *SAVE_INI INI(0)=HTML INI(1)=CPU INI(2)=SAVE bsave "SETUP.ini",INI dialog "¥»¡¼¥Ö´°Î»" end

¤Ê¤¬¤Ã¤¿¤é¤¯¤Æ¤¹¤ß¤Þ¤»¤ó¡£
¤ª´ê¤¤¤·¤Þ¤¹



AziO

¥ê¥ó¥¯

2008/10/17(Fri) 00:03:11|NO.20277

SYAM¤µ¤ó¡£
¤½¤·¤Æ²òÅú¤·¤Æ¤¯¤ì¤¿³§¤µ¤ó
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª



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