/*#TITLE# 風船番号を±10するマクロ */ /* FUUSEN_10.MAC 2013.7.30 kita */ clear(); echo "対象部組番号 no_bu= "; no_bu = getnum(1); echo "プラスする数値を入力 dn= "; dn = getnum(1); echo "変更クラスno no_cls= "; no_cls = getnum(1); str_bu = sprint("%d-",no_bu); MGNT ACT/ALL ALL /*文字マスク */ for(i=1; i<=#CURACTCNT; i+=1){ VER [actlst(i)] str0 = #VERTXT; if(strstr(str0,str_bu) >= 0){ /* 文字列の中に str_buがある*/ tmp_no = sscan(#VERTXT,"%d-%d"); str1 = sprint("%d-%d",tmp_no[0],tmp_no[1]+dn); /*echo str0 "を" str1 "に変更しますよ"; getany(1);*/ TEXT/MOD [actlst(i)] [str1] CLS/MOD [no_cls] [actlst(i)] } } exit;