string04 - vslibrary @ wiki

入力チェック（数値チェック等）

数値チェック、アルファべトの大文字チェック等のチェックはRegexを使用する。
（Regexは正規表現のクラス。Regular Expressionsの略。）
Regexの詳細仕様はコチラ（英語）

例：数値チェック、大文字チェック等を行う関数。

       Public Function fncChkInputData(ByVal target As String, ByVal atbFlg As Integer) As Boolean
           Dim r As New Regex(target)
           Dim p As String = String.Empty
           Select Case atbFlg
               Case 0 ' 半角英大字数字
                   p = "^[A-Z0-9]+$"
               Case 1 ' 半角英大字
                   p = "^[A-Z]+$"
               Case 2 ' 半角数字
                   p = "^[0-9]+$"
               Case 3 ' 半角記号
                   p = "^[!-/][:-@][\[-`][{-~]+$"
               Case 4 ' 整数1～2桁、小数0～2桁
                   p = "^[0-9]{1,2}(\.[0-9]{1,2})?$"
               Case 5 ' マイナス記号許可、整数1～6桁、小数0～2桁
                   p = "^-?[0-9]{1,6}(\.[0-9]{1,2})?$"
               Case 6 ' マイナス記号許可、整数1～9桁、小数0～2桁
                   p = "^-?[0-9]{1,9}(\.[0-9]{1,2})?$"
               Case Else
           End Select
           If Not Regex.IsMatch(target, p) Then
               Return False
           End If
           Return True
       End Function

.