; ; strlower p1 ; strupper p1 ; ; p1=変数 : 変換する文字列型変数 ; ; strlowerは、アルファベットの大文字を小文字に変換、 ; strupperは、小文字を大文字に変換します。 ; ; C言語のstrlwr,struprや、palhspのpal_StrLwr,Uprと違い、2バイト文字が含まれていても ; 文字化けする事無く変換出来ますが、その分低速かも知れません。(^^; ; 1バイトのアルファベットのみ変換。 ; ; (使用例) ; a="AbCdEfgHiJKlmnOPQRstuVWxyZ" ; strupper a ; dialog a ; #module #deffunc strlower val mref dat,24 strlen len,dat repeat len if FLG==0{ peek pe,dat,cnt if pe>=129&&(pe<=159) : FLG=1 ;2バイト文字判定 if pe>='A'&&(pe<='Z') : poke dat,cnt,pe+32 } else{ FLG=0 } loop return #deffunc strupper val mref dat,24 strlen len,dat repeat len if FLG==0{ peek pe,dat,cnt if pe>=129&&(pe<=159) : FLG=1 ;2バイト文字判定 if pe>='a'&&(pe<='z') : poke dat,cnt,pe-32 } else{ FLG=0 } loop return #global