他人に見せる予定はなかったのでとても見づらいと思います、、、。
sdim text sdim textuni, 100 sdim temp dim textstart dim x dim y x=ginfo(20) y=ginfo(21) *main bgscr screen 0,1000,100,0,0,0,1000,100 textstart=0 mes "下のテキストボックスに表示したい文字を入力(全角50字まで)" font "", 20:objmode 2:objsize 1000 , 25:input text, 1000, 50 font "", 5:mes "" font "", 20 button "Go" , *disp stop *disp cnvstow textuni , text bgscr 0, x, y repeat await 500 cls temp=strmid(textuni, textstart, 2) dis=cnvwtos( temp ) if dis="" : break mes dis textstart=textstart+2 loop goto *main
問題は
の部分です。
cnvstow textuni , text
空白がない全角文字列だと
あああ → 0B0B0B
と正しく変換してくれるのですが、
空白があると
あああ あああ → 0B0B0B
、半角文字列だと
test → t
というように正しく変換してくれません。特に
test → t
はとても大きいです。
対処法がわかる方、お願いします。