Excelを使っててちょっと思いついたので作ってみました。
Excelの操作とかで使えるかな?
と思ったけどあまり需要がないような
#module base26 #defcfunc int26 str p1_ p1=p1_ len=strlen(p1) a1=0 repeat len tmp=peek(p1,len-1-cnt) if tmp>=65 & tmp<=90 : tmp-=64 : else { if tmp>=97 & tmp<=122 : tmp-=96 : else : a1=-1 : break } a1+=tmp*powf(26,cnt) loop return a1 #defcfunc str26 int p2 if p2>=1 : tmp=p2-1 : else : return "#Error." sdim a2,27 : dim a2_,27 len=0 if tmp==0 : len=1 repeat 27 if tmp<=0 : break a2_(len)=tmp\26 tmp/=26 len++ loop a2_(0)+=1 repeat len poke a2,cnt,a2_(len-1-cnt)+64 loop return a2 #global mes int26("A") mes int26("xfd") pos 300,0 mes str26(1) mes str26(16384)
質問ではないのでとりあえず報告ということにしておきました。