文字列が数値か判定する場合はisNumeral()関数を使用します。
半角数字の[0-9]、全角数字の[０-９]の場合に1が返却され、それ以外は0が返却されます。
第1引数：対象文字列
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
Kf(_isnumeral){ Pe{ /*キーステーションが最初に実行するキーセット*/ N(_main); } } K(_main){ Se{ @s1{ /*Cキーに対してスタイルを設定*/ ~key="C"{ ~border{ ~style="solid"; } } } } U(@s1){ R(#row1){ C(#colpre,"0123456789") C(#colpro) } R(#row2){ C(#colpre,"０１２３４５６７８９") C(#colpro) } R(#row3){ C(#colpre,"abcdef") C(#colpro) } R(#row4){ C(#colpre,"あいうえお") C(#colpro) } Pe{ /*line 1*/ (int)result1 = isNumeral(#row1#colpre?); if(result1){ #row1#colpro?="数値です"; }else{ #row1#colpro?="数値でない"; } /*line 2*/ (int)result2 = isNumeral(#row2#colpre?); if(result2){ #row2#colpro?="数値です"; }else{ #row2#colpro?="数値でない"; } /*line 3*/ (int)result3 = isNumeral(#row3#colpre?); if(result3){ #row3#colpro?="数値です"; }else{ #row3#colpro?="数値でない"; } /*line 4*/ (int)result4 = isNumeral(#row4#colpre?); if(result4){ #row4#colpro?="数値です"; }else{ #row4#colpro?="数値でない"; } } } } |
isnumeral.ksf 1.20 KB
実行結果
