‘/*************************************************/ ‘/* [ 名 称 ] 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)を初期化する。 ‘For 入力文字がある場合 ‘If 外字がある場合 ‘関数を終了する Err_blnCheckGaiji: |
Visual Basic TIPS集
初期登録日: 2003年11月09日
最終更新日: 2003年11月10日
< Home ヘ戻る >
ブラウザ画面の文字サイズを変更するショートカットキー
Shortcut Keys
|