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


HSPTV!·Ç¼¨ÈÄ


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

2014
0221
Pat¤¢¤ëʸ»úÎó¤òʸ»úÎó¤ÎÇÛÎó¤È¤·¤Æ°·¤¦¼«ºî´Ø¿ô¤¬Æ°¤«¤Ê¤¤3²ò·è


Pat

¥ê¥ó¥¯

2014/2/21(Fri) 01:17:11|NO.60156

#module
#defcfunc getarrstr var strarr, str delim,int index if ( index == 0 ) { return strmid(strarr,0,instr(strarr,0,delim)) } else { currenti = 0 beforei = 0 repeat index beforei = currenti if ( instr(strarr,currenti,delim) != (-1) ) { currenti = instr(strarr,currenti,delim)+1+currenti } else { currenti = strlen(strarr) break } loop return strmid(strarr,currenti,currenti-beforei-1) } return "" #global buff1 = "ABC,DEF,GHI,JKL,MNO,PQR,STU,VWX,YZ." mes getarrstr(buff1,",",2) //Àµ¾ï buff2 = "ABCDEFGHI JKLMN \"OPQRSTUVWXYZ\"" mes getarrstr(buff2," ",1) //´Ö°ã¤¤


¤¢¤ëʸ»úÎó(strarr)¤ò¤¢¤ëʸ»ú(delim)¤Ç¶èÀÚ¤é¤ì¤¿ÇÛÎó¤È¤·¤Æ¹Í¤¨¤ÆindexÈÖÌܤÎÍ×ÁǤò¼è¤ê½Ð¤¹´Ø¿ô¤òºî¤ê¤Þ¤·¤¿
¤Ç¤¹¤¬¤Ê¤¼¤«¥³¡¼¥É²¼Éô¤Îbuff2¤ÎÎã¤Ç¤ÏÀµ¾ï¤ËÆ°ºî¤·¤Þ¤»¤ó¤Ç¤·¤¿

¤¤¤í¤¤¤í¤È»î¤·¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬Á´¤¯¸¶°ø¤¬¤ï¤«¤ê¤Þ¤»¤ó
buff2¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤â¤­¤Ã¤Á¤ê¤ÈÆ°¤¯¤è¤¦¤Ë¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©

¤è¤í¤·¤±¤ì¤Ð¤´¶µ¼ø¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹



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


fortunehill

¥ê¥ó¥¯

2014/2/21(Fri) 01:30:03|NO.60157

/*¤´»²¹Í*/

#module #defcfunc getarrstr var strarr, str delim,int index,local nn split strarr,delim,nn ;mes stat return nn(limit(index,0,stat-1)) #global buff1 = "ABC,DEF,GHI,JKL,MNO,PQR,STU,VWX,YZ." mes getarrstr(buff1,",",2) //Àµ¾ï buff2 = "ABCDEFGHI JKLMN \"OPQRSTUVWXYZ\"" mes getarrstr(buff2," ",1) //´Ö°ã¤¤



fortunehill

¥ê¥ó¥¯

2014/2/21(Fri) 01:58:47|NO.60158

/*¼Ø­(?)*/

#module #defcfunc getarrstr var strarr, str delim,int index strarr+=delim ;­¡ if ( index == 0 ) { return strmid(strarr,0,instr(strarr,0,delim)) } else { currenti = 0 beforei = 0 repeat index+1 ;­¢ beforei = currenti if ( instr(strarr,currenti,delim) != (-1) ) { currenti = instr(strarr,currenti,delim)+1+currenti } else { currenti = strlen(strarr) break } loop ; return strmid(strarr,currenti,currenti-beforei-1) return strmid(strarr,beforei,currenti-beforei-1) ;­£ } return "" #global buff1 = "ABC,DEF,GHI,JKL,MNO,PQR,STU,VWX,YZ." ;ºÇ´ü"."? repeat 9+1 mes getarrstr(buff1,",",cnt) //Àµ¾ï loop buff2 = "ABCDEFGHI JKLMN \"OPQRSTUVWXYZ\"" repeat 3+1 mes getarrstr(buff2," ",cnt) //´Ö°ã¤¤ loop mes "END"



Pat

¥ê¥ó¥¯

2014/2/21(Fri) 06:49:21|NO.60162

fortunehill¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª
local¤Ã¤Æ¤½¤ó¤ÊÉ÷¤Ë»È¤¨¤ë¤ó¤Ç¤¹¤Í¡¢ÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤¹



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