#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
実行例：
