TOP > プログラミング HSP関係 > 半角・全角を区別するプログラム

■半角・全角を区別するプログラム

HSP3.0でのプログラム

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20

a="おはよabcd" b=strlen(a) basyo=0 y="" repeat flg=0;半角=1:全角=0 x=strmid (a,basyo,1) c=peek(x) if((c>31)AND(c<128))OR((c>159)AND(c<224))OR(c==9):flg=1 if flg==1{ y=y+(strmid (a,basyo,1)) basyo++ }else{ y=y+(strmid (a,basyo,2)) basyo=basyo+2 } if b<cnt:break loop mes y stop


戻る
このページのURLをメールで送る