入力不可文字チェック (subCheckBatData)

 

‘/*************************************************/
‘/* [ 名 称 ] subCheckBatData      : 入力不可文字チェック                    
‘/* [ 引 数 ] strCheckData  : 入力文字列                                     
‘/*           strData       : 出力文字列 (ここに文字列がある時はエラー文字がある)
‘/* [ 戻 値 ] なし                                                           
‘/* [ 概 要 ] 文字列内にWEB上で表示出来ない文字や外字などのチェックを     
‘/*           行ない、使用不可な文字を抽出し、引数に文字列の形で返す。       
‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名                      
‘/*************************************************/
Public Sub subCheckBatData(ByVal strCheckData As String, _
                           ByRef strBatData As String)
On Error GoTo Err_subCheckBatData
‘変数宣言———————————————————————
    Dim blnErrData      As Boolean  ‘入力エラーフラグ変数
                                    ‘ True:エラー有り False:エラー無し
    Dim intLoop1        As Integer  ‘ループ1変数
    Dim intLoop2        As Integer  ‘ループ2変数
    Dim strRetErrData   As String   ‘関数文字列引数変数
‘—————————————————————————–   

    ‘戻り引数の初期化を行う
    strBatData = vbNullString       ‘戻り値
    blnErrData = False              ‘入力エラーフラグ変数 





    ‘IF 引数がNULLの場合
    If IsNull(strCheckData) Then
        ‘引数の値を戻り値にそのまま渡す
        strBatData = vbNullString
        ‘当関数を終了する
        Exit Sub
    End If

    ‘IF 引数に文字列が無いの場合
    If strCheckData = vbNullString Then
        ‘引数の値を戻り値にそのまま渡す
        strBatData = strCheckData
        ‘当関数を終了する
        Exit Sub
    End If  

    ‘IF 入力不可文字がある場合
    If blnCheckWebBatMoji(strCheckData, strRetErrData) = False Then
        ‘入力不可文字を戻り値(strBatData)にセットする
        strBatData = strBatData & strRetErrData
    End If

    ‘IF 外字が入力されている場合
    If blnCheckGaiji(strCheckData, strRetErrData) = False Then
        ‘外字を戻り値(strBatData)にセットする
        strBatData = strBatData & strRetErrData
    End If

    ‘プロシージャを終了する
    Exit Sub

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

 

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

OO4O(Oracle Objects for OLE)でVisual Basic 6 からOracleデータベースへアクセス