文字列チェック

[onyo]

umemura の口様

文字列の検証として、バイト数、半角・全角、数字、英数字などを行うにはどうすればいいのでしょうか。 数値チェックとはNumericValidatorを利用すればよさそうですが・・・。

regexp-subst プロシージャ で範囲指定してあげるのが簡単かと思います。
自分の場合バイトチェックは encode-characters を使用しました。
サンプルをのっけときます。

Code:

{import * from CURL.LANGUAGE.REGEXP}
|| 必須チェック
{define-proc public {must-check value:String, must:bool, trim-clone?:bool}:String
    {if trim-clone? then
        {if (must == true and {value.trim-clone} == "") then
            {return "必須入力です。"}
        }
     else
        {if (must == true and value == "") then
            {return "必須入力です。"}
        }
    }
    {return ""}
}

|| 全角ONLYチェック
{define-proc  {is-only-zenkaku in:String, max-chars:int, must:bool, trim-clone?:bool}:String
    
    let result:String = {must-check in, must, trim-clone?}
    {if result != "" then
        {return result}
    }
    
    {if in != "" then
        let s:String = in
        let exp:String = "[^ -~｡-ﾟ]"
        set s = {regexp-subst exp, s, "",replace-all? = true}
        {if s != "" then
            {return "全角文字で入力してください。"}
        }
    }
    let encodeout:ByteVec =
        {ByteVec
            max-size= {value in.size} *
            CharEncoding.ucs2-big-endian.transcode-min-expansion-factor
        }
    let encoding:CharEncoding =
        {get-character-encoding-by-name  "shift-jis"}
    
    let (int-used:int, out-made:int) =
        {encode-characters in, encodeout, encoding}
    
    {if out-made > max-chars then
        {return "サイズオーバーです。"}
    }
    
    {return result}

}
{let tf:TextField = {TextField width = 60pt}}
{VBox
    tf,
    {CommandButton
        label = "CheckValue",
        {on Action do
            let s:String = {is-only-zenkaku tf.value, 10, true, true}
            {if not s.empty? then
                {popup-message s}
            }
        }
    }
}