Script - Expresión regular de validación de emails

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:28 P. M. por David Miralpeix

En el siguiente ejemplo se solicita una dirección de e-mail por pantalla y se valida mediante una expresión regular si el formato de la misma es, o no, válida.

Código VB6:

Sub Main ()
      lemail=inputbox ("ingrese email")
      if not regExpTest (lemail) then 
          msgbox "Email no válido"
     else
          msgbox "email válido"
     end if
end sub

Function RegExpTest(sEmail)
   RegExpTest = false
   Dim regEx, retVal
   Set regEx = New RegExp

  ' Create regular expression:
     regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"

  '  Set pattern:
   regEx.IgnoreCase = true

  ' Set case sensitivity.
   retVal = regEx.Test(sEmail)

  ' Execute the search test.
    If not retVal Then 
exit function
End If

RegExpTest = true
End Function

Código C#:

using System.Text.RegularExpressions;
using static AhoraCore.VBA.Interaction;

namespace AhoraScriptsVacia
{
    public class Script_63 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            string lEmail = InputBox("Introduzca el e-mail:");
            if (!RefExpTest(lEmail))
            {
                MsgBox("E-mail no válido");
            }
            else
            {
                MsgBox("E-mail válido");
            }
            
        }

        private bool RefExpTest(string sEmail)
        {
            Match match = Regex.Match(sEmail, "^[\\w-\\.]{1,}\\@([\\da-zA-Z-]{1,}\\.){1,}[\\da-zA-Z-]{2,3}$", RegexOptions.IgnoreCase);
            return (match != null && match.Success);

        }
    }
}