‘/*************************************************/ ‘/* [ 名 称 ] 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 ‘関数文字列引数変数 ‘—————————————————————————– ‘戻り引数の初期化を行う ‘IF 引数がNULLの場合 ‘IF 引数に文字列が無いの場合 ‘IF 入力不可文字がある場合 ‘IF 外字が入力されている場合 ‘プロシージャを終了する Err_subCheckBatData: |
Visual Basic TIPS集
初期登録日: 2003年11月09日
最終更新日: 2003年11月10日
< Home ヘ戻る >
ブラウザ画面の文字サイズを変更するショートカットキー
Shortcut Keys
|