kapiaba Posted August 3, 2012 Report Share Posted August 3, 2012 Galera ajuda ahi, Como eu faço para checar se um email tem o @ nele? Preciso barrar se o uçuário digitou o email errado. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 03/08/2012 12:15:41 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 3, 2012 Author Report Share Posted August 3, 2012 Galera ajuda ahi, Como eu faço para checar se um email tem o @ nele? Preciso barrar se o uçuário digitou o email errado. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 03/08/2012 12:15:41 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted August 3, 2012 Report Share Posted August 3, 2012 IF AT("@",cEmail)<>0 ? "ok" ELSE ? "Inválido" ENDIF Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 03/08/2012 09:24:04 Editado por - orlandof on 03/08/2012 09:25:38 Editado por - orlandof on 03/08/2012 10:58:56 Quote Link to comment Share on other sites More sharing options...
HERGON Posted August 3, 2012 Report Share Posted August 3, 2012 Olá João Eu faço assim: Function fTstEmail(cVar,oObjeto) If Empty(cVar) Return .t. Else cVar := Lower(cVar) oObjeto:Refresh() If ! ("@" $ cVar .and. "." $ cVar) MsgStop('Faltando informação no email.'+CRLF+CRLF+; 'Email´s válidos precisam conter os caracteres "@" e "."', "Atenção") Return .f. Endif If At(" ",Alltrim(cVar))>0 MsgStop('Não pode conter espaço em branco no email.', "Atenção") Return .f. Endif Endif Return .t. id=code>id=code>Abraço Herberson Gontijo Ponteware Software Editado por - HERGON on 03/08/2012 09:17:37 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 3, 2012 Author Report Share Posted August 3, 2012 Valeu feras, vou testar... Vocês são SHOW() oBg, abs. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ZECA Posted August 3, 2012 Report Share Posted August 3, 2012 citação:Galera ajuda ahi, Como eu faço para checar se um email tem o @ nele? Preciso barrar se o uçuário digitou o email errado. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Perdão KAPIABA!!!! Não seria URSOario??? {]s Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.