バッチスクリプトでユーザー入力電子メール形式を検証する方法は？

Question

私は、ユーザーがスクリプトを実行する前に、自分のメールアドレスを入力するために取得したいと思い、私は以下のようにそれをやっている：私は@の、空白部分に存在することを確認することができていますし、上記のコードでは

​​

たとえユーザーがダミーa@b.comを入力したとしても、少なくとも7文字以上の電子メールを受け取ることができますが、@の前に何も入力しないで@を入力するだけの方法を確認する方法がわかりません。また、私は無効にするか、入力フィールドのユーザーのために "TAB"をサイレントにして、TABを使用できないようにします。

他の方法でこのメールフォーマット全体をチェックすることはできますか？あなたはこのソリューションを試すことができます

Answer 1

：

@echo off 
echo Type your e-mail address : 
Set /p "Email=" 
Call :CheckValidMail %Email% 
cls 
IF "%errorlevel%" EQU "0" ( 
    Color 0A 
    echo %Email% is valid 
) else (
    Color 0C 
    echo %Email% is not valid 
) 
pause & Exit 
::********************************************************************************* 
:CheckValidMail <Email> 
(
echo If IsValidEmail("%~1"^) = True Then 
echo Wscript.Quit(0^) 
echo Else 
echo Wscript.Quit(1^) 
echo End If 
echo Function IsValidEmail(strEAddress^) 
echo Dim objRegExpr 
echo Set objRegExpr = New RegExp 
echo objRegExpr.Pattern = "^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]@[\w-\.]*[a-zA-Z0-9]\.[a-zA-Z]{2,7}$" 
echo objRegExpr.Global = True 
echo objRegExpr.IgnoreCase = False 
echo IsValidEmail = objRegExpr.Test(strEAddress^) 
echo Set objRegExpr = Nothing 
echo End Function 
)>"%tmp%\%~n0.vbs" 
Cscript /nologo "%tmp%\%~n0.vbs" 
Exit /b 
::*********************************************************************************