"a100b50C-30D40" という文字列を分解して配列に入れて、
a = 100
b = 50
C = -30
D = 40
と表示したいのですが、自分で作ると下記のような物凄く長ったらしいプログラムになってしまいます
もうちょっとやれる命令や関数や手法などありましたら教えてもらえないでしょうか
////////////////////////////////////////////////////////////////////////
a="a100b50C-30D40"
a=a+"Z"
a_len = strlen(a)
dim moji,a_len
dim check,a_len
repeat a_len
moji(cnt) = peek(a,cnt)
if (moji(cnt)>=65 & moji(cnt)<=90) | (moji(cnt)>=97 & moji(cnt)<=122){
a_count + = 1
check(cnt) = 1
}
loop
sdim alpha,,a_count
sdim number,,a_count
repeat a_len
if check(cnt) = 1{
alpha(s) = strmid(a,cnt,1)
if s!=0{
number(s-1) = strmid(a,p1+1,cnt-p1-1)
}
p1 = cnt
s+=1
}
loop
b=""
repeat a_count-1
b = b + alpha(cnt) + " = " + number(cnt) + "\n"
loop
mes b