文字列チェック

[usami]

バイト数に関してはStringUtilのget-bytesを使用しました。

特殊文字を使わなければこんな感じで判定してます。

Code:

{import * from COM.CURLAP.LIB.LANG}

{let str:String = "1１ｱアaAａＡ!！\|｜\\￥"}
{let message:VBox={VBox}}
{for c:char in str do
    || バイト判定
    let bt:int = {StringUtil.get-bytes {String c}}
    let st:String = c & " = "
    || 全角判定
    {if bt == 1 then
        set st = st & "半角,"
     else
        set st = st & "全角,"
    }
    || 数字判定
    {if ((c>='0' and c<='9') or
         (c>='０' and c<='９'))
     then
        set st = st & "数字,"
    }
    || 英字判定
    {if ((c>='A' and c<='Z') or
         (c>='a' and c<='z') or
         (c>='Ａ' and c<='Ｚ') or
         (c>='ａ' and c<='ｚ'))
     then
        set st = st & "英字,"
     else
        set st = st & "英字以外,"
    }
    set st = st & " " & bt & "バイト"
    {message.add st}

}
{value message}