#273 パターンマッチングでメールアドレスをチェックする方法 VBA

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

実行例:
実行結果のイミディエイトウィンドウ
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved