#273
Like演算子のパターンマッチングを利用して、入力されたメールアドレスの形式が正しいかどうかをチェックするサンプルFunctionプロシージャです。正しいかどうかの判断は、アドレスが「xxx@xxx.xxx」形式かどうかで行なっています。
サンプルプロシージャ：
Public Function ChkMail(strMail As String) As Boolean
'概要 メールアドレスの形式が正しいかチェックする
'引数 strMail : メールアドレス
'返値 正しい形式の場合はTrue、そうでない場合はFalse
'備考
ChkMail = (strMail Like "*@*.*") And (Not strMail Like "@*.*") And (Not strMail Like "*@")
End Function
'概要 メールアドレスの形式が正しいかチェックする
'引数 strMail : メールアドレス
'返値 正しい形式の場合はTrue、そうでない場合はFalse
'備考
ChkMail = (strMail Like "*@*.*") And (Not strMail Like "@*.*") And (Not strMail Like "*@")
End Function
実行例：
この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
