/*#TITLE# 文字列をまとめて変換するマクロ */ /* TXTHENKAN.MAC 2004.12.06 kita */ /* 2014.12.24 MENU/OFF ONN追加 */ clear(); s = menu(1); echo "変換対象を Activ List に登録しましたか? y(CR)/n"; tmp = getany(1); type_tmp = vtype(tmp); if (type_tmp == 5) { /* Entr キーのみ */ yn = "y"; } else if (type_tmp == 4) { /* 文字 */ yn = tmp; } if(yn == "n"){ exit;} n = #CURACTCNT; /* Act List 内の要素数 */ echo "変換 元 文字列を入力(ピックも可)"; ss0 = gettxt(1); echo "変換 後 文字列を入力"; ss1 = gettxt(1); MENU/OFF for(i=1; i<=n; i+=1){ VER [actlst(i)] if (#VERITMTYPE == 11 || #VERITMTYPE == 13){ /* 文字,寸法 */ ss = #VERTXT; ns = subs(ss, ss0, ss1); TEXT/MOD [actlst(i)] [ss] } else if(#VERITMTYPE == 12){ /*マーク */ TEXT/MOD [actlst(i)] [ss1] } } MENU/ONN s = menu(3); exit;