¤½¤ì¤Ïint("¿ô»ú°Ê³°¤Îʸ»ú")¤À¤Ã¤Æ¤â£°¤òÊÖ¤¹¤·
int("0")¤Ç¤¢¤Ã¤¿¤È¤·¤Æ¤â¤â¤Á¤í¤ó0¤òÊÖ¤¹¤«¤é¤Ç¤¹
Âкö¤È¤·¤Æ¤Ïifʸ¤Ë°ì¤Ä¾ò·ï¤òÉÕ¤±¤¿¤·¤Æ
°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ¤ß¤ë¤È¤¦¤Þ¤¯¤¤¤¯¤«¤È
¤Á¤Ê¤ß¤Ë
GetNum a,"º£Æü¤Ï11·î10Æü"
mes a
¤È¤·¤¿¤È¤³¤í£¤È·ë²Ì¤¬Ê֤äƤ¤Þ¤·¤¿¤¬
¤³¤ì¤Ïʸ»ú¤ÎÃæ¤Ë´Þ¤Þ¤ì¤Æ¤¤¤ë¿ô»ú¤Î¹ç·×¤òÊÖ¤¹¤â¤Î¤Ê¤Î¤Ç¤¹¤«¡©
¤Æ¤Ã¤¤ê¿ô»ú¤ò¼è¤ê½Ð¤·¤Æ¾å¤Î¾ì¹ç¤À¤È1110
¤È¤Ê¤ë´¶¤¸¤«¤È»×¤¤¹þ¤ó¤Ç¤¤¤Þ¤·¤¿
#module
//GetNmu:ʸ»úÎóÃæ¤Î¿ô»ú¤Î¤ß¤òÏ¢·ë¤·¤Æ°ú¿ô¤È¤·¤ÆÊÖ¤¹¡£
//ÆþÎÏʸ»úÎó¤ÏJIS·Á¼°¤Î¤ß
#deffunc GetNum var p1, str p2
sdim buf1,1000
sdim buf2,1000
cnvstow buf1 ,p2//Unicode²½
repeat
buf2 = wpeek(buf1, cnt * 2)
if buf2 = 0 : break//½ªÃ¼Ê¸»úÎóȽ
if int(cnvwtos(buf2)) ! 0 or cnvwtos(buf2)=="0" : p1+=int(cnvwtos(buf2))
loop
return
#global