;hex2num.as ;16進文字列→数値変換 dat="ba,AB,dE,4F,6c,d,10F" mes dat hexstr="0123456789AaBbCcDdEeFf" strlen len,dat p=0 repeat getstr s,dat,p,',' ;データを1個sに取り出す val=0 ;変換結果数値の入る変数 strlen l,s ;データの長さ repeat l strmid t,s,cnt,1 ;1文字取り出す→t instr c,hexstr,t ;次と併せて1桁の16進→数値変換 if c<0: break ;00.05.23追加 if c>10: c=c/2+5 val=val*16+c ;valの更新 loop mes s+"→"+val ;結果表示 p+=strsize ;ポインタ更新 if p>=len: break ;終了判定 loop stop