WEB上で表示出来ない文字チェック (blnCheckWebBatMoji)

 

Public Const mBAT_DATA As String = _
             "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳" & _
             "ⅠⅰⅡⅱⅢⅲⅣⅳⅤⅴⅥⅵⅦⅶⅧⅷⅨⅸⅩⅹ"        ‘WEB使用禁止

‘/*************************************************/
‘/* [ 名 称 ] blnCheckWebBatMoji       : WEB上で表示出来ない文字チェック  
‘/* [ 引 数 ] strCheckData  : 入力文字列                                     
‘/*           strData       : 出力文字列 (ここに文字列がある時はエラー文字がある)
‘/* [ 戻 値 ] なし                                                           
‘/* [ 概 要 ] 文字列内にWEB上で表示出来ない文字や外字などのチェックを     
‘/*           行ない、使用不可な文字を抽出し、引数に文字列の形で返す。       
‘/*           ここでは外字のチェックはしない。                               
‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名                      
‘/*************************************************/
Private Function blnCheckWebBatMoji(ByVal strInData As String, _
                                    ByRef strErrorData As String) As Boolean
On Error GoTo Err_blnCheckWebBatMoji
‘変数宣言———————————————————————
    Dim intLoopCnt1     As Integer  ‘ループカウント変数
    Dim intLoopCnt2     As Integer  ‘ループカウント変数
    Dim strBatMoji      As String   ‘チェック文字変数
‘——————————————————————————





    ‘戻り値(strErrData)を初期化する。
    strErrorData = vbNullString

    ‘For 入力文字がある場合
    For intLoopCnt1 = 1 To Len(mBAT_DATA)
        ‘BAT文字列から1文字抽出する
        strBatMoji = Mid$(mBAT_DATA, intLoopCnt1, 1)
        ‘For チェック対象文字がある場合
        For intLoopCnt2 = 1 To Len(strInData)
            ‘If チェック対象文字列から1文字抽出する
            If Mid$(mBAT_DATA, intLoopCnt2, 1) = strBatMoji Then
               
                strErrorData = strErrorData & Mid$(mBAT_DATA, intLoopCnt2, 1)
            End If
        Next intLoopCnt2
    Next intLoopCnt1

    ‘If 入力不可文字がある場合
    If strErrorData = vbNullString Then
        ‘入力不可文字が無いので戻り値にTrue(正常)を返す
        blnCheckWebBatMoji = True
    Else
        ‘入力不可文字があるので戻り値にFalse(エラー)を返す
        blnCheckWebBatMoji = False
    End If

    ‘関数を終了する
    Exit Function

Err_blnCheckWebBatMoji:
    ‘ランタイムエラーが発生したのでエラー処理をする
    Call subErrSyori("blnCheckWebBatMoji", Err.Number, Err.Description)
End Function

 

Visual Basic TIPS集

初期登録日: 2003年11月09日

最終更新日: 2003年11月10日

< Home ヘ戻る >


キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ ]  :  Down the font size