外字文字チェック (blnCheckGaiji)

 

‘/*************************************************/
‘/* [ 名 称 ] blnCheckGaiji       : 外字文字チェック                         
‘/* [ 引 数 ] strCheckData  : 入力文字列                                     
‘/*           strData       : 出力文字列 (ここに文字列がある時はエラー文字がある)
‘/* [ 戻 値 ] なし                                                           
‘/* [ 概 要 ] 文字列内に外字が存在するかチェックする。                       
‘/*           外字は抽出し、引数に文字列の形で返す。                         
‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名                      
‘/*************************************************/
Private Function blnCheckGaiji(ByVal strInData As String, _
                               ByRef strErrorData As String) As Boolean
On Error GoTo Err_blnCheckGaiji
‘変数宣言———————————————————————-
    Dim intLoopCnt1     As Integer  ‘ループカウント変数
    Dim strCheckMoji    As String   ‘チェック文字変数
‘——————————————————————————

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





    ‘For 入力文字がある場合
    For intLoopCnt1 = 1 To Len(strInData)
        ‘1文字抽出する
        strCheckMoji = Mid$(strInData, intLoopCnt1, 1)   ‘1文字抽出
        ‘If 文字に外字が含まれている場合
        If (Hex(Asc(strCheckMoji)) >= "F040") And _
           (Hex(Asc(strCheckMoji)) <= "F9FF") Then
            ‘外字を発見
            strErrorData = strErrorData & strCheckMoji
        End If
    Next intLoopCnt1

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

    ‘関数を終了する
    Exit Function

Err_blnCheckGaiji:
    ‘ランタイムエラーが発生したのでエラー処理をする
    Call subErrSyori("blnCheckGaiji", 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