Power Builder - Validacion de Cuenta de correo

Les hago llega mi más cordial saludo.
Alguien tiene algun algoritmo para validar el nombre de la cuenta de correo, por ejemplo [email protected]. ç
Gracias

Hola que tal:

Que es lo que te gustaria validar, que sea una cuenta que se encuentra en una lista o tabla?

Que tenga arroba @

Que el dominio exista "yahoo.com"

Saludos!

Deseo validar que sea una cuenta correcta, que exista el arroba por ejempolo

para saber si tiene arroba el string que contiene la direccion puedes usar pos para saber si esiste la arroba

Pos ( string1, string2 {, start } )

ejemplo:
li_pos=pos(ls_cadena,"@",1)
if li_pos=0 then
// no esta la arroba en esa cadena de caracteres
end if

en li _pos quedara la posicion de la arroba en la variable ls_cadena

espero te sirva
saludos desde argentina

Puedes construir tú mismo la validación, explotando la función MATCH, que verifica la existencia de una subcadena dentro de una cadena.

La validación , puede ser tan compleja como quieras. Por ejemplo, podrías verificar:
* Que no contenga una cadena vacia.
* Que contenga el símbolo @
* Que contenga punto.
* Que tenga más de 4 caracteres (con LEN)
* Que sólo acepte caracteres y números, además del guion y guion_bajo (y nó caracteres raros: *, !, :)

Ejemplo simple:
1. Declaras una variable de instancia:
String is_email

2. Script:
is_email=sle_1.text

If is_email=" " then
MessageBox("Aviso", "Está vacío")
sle_1.SetFocus()
ElseIf Not Match(is_email, "\@") then
MessageBox("Aviso", "Falta arroba")
sle_1.SetFocus()
ElseIf Not Match(is_email, "\.") then
MessageBox("Aviso", "Falta punto")
sle_1.SetFocus()
End If

Nota: Que termine en com, es relativo, ya que existen e-mails que pueden contener: net, org, etc.

Para terminar, te conviene ver ayuda de la función MATCH, que emplea símbolos como: ^, $, \, [ ], *, +, ?) para pillar cualquier ocurrencia de subcadena:
Ejemplos:
- Pregunta si la cadena empieza con un dígito:
Match(is_email, "[^[0-9]")
- Pregunta si la cadena termina con una letra:
Match(is_email, "[a-z]$")

Esto funciona, no sé cómo, pero funciona. Hace una validación decente y en una sola línea de código:

Gracias, amigo, funciona a la perfecciòn !

Excelente, esto funcionó a la perfección:

if match(email1,'^[a-zA-Z0-9][a-zA-Z\0-9\-_\.]*[^.]\@[^.][a-zA-Z\0-9\-_\.]+\.[a-zA-Z\0-9\-_\.]*[a-zA-Z\0-9]+$') then