Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

mekanis

Verificar textbox

Mensagens Recomendadas

mekanis

Boas pessoal

Gostava de saber como poderia eu verificar se uma textbox tem o simbolo "@" ou se era um e-mail válido tipo exemplo@exemplo.com

Cumpz

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Podes testar se determinada string contem outra assim:

        Dim Email As String = "zeca@qualquerlado.com"
        If Email.Contains("@") Then MsgBox("Contém @") Else MsgBox("Não contém @")

Podes fazer o teste do email com um simples LIKE:

        Dim Email As String = "zeca@qualquerlado.com"
        If Email Like "*@*.*" Then MsgBox("Temos email!") Else MsgBox("Isso é tudo menos um email pah")

Dá uma vista de olhos neste artigo


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
mekanis

Podes testar se determinada string contem outra assim:

        Dim Email As String = "zeca@qualquerlado.com"
        If Email.Contains("@") Then MsgBox("Contém @") Else MsgBox("Não contém @")

Podes fazer o teste do email com um simples LIKE:

        Dim Email As String = "zeca@qualquerlado.com"
        If Email Like "*@*.*" Then MsgBox("Temos email!") Else MsgBox("Isso é tudo menos um email pah")

Dá uma vista de olhos neste artigo

Obrigado Sérgio, está a resultar na perfeição

Cumpz

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Dei-lhe o exemplo do Contains porque foi uma dúvida também.

A validação do email é feita com o LIKE, que foi o segundo exemplo que lhe dei.

Com aquelas wildcard, de facto, o email pode sair inválido.

Pode ficar bem se:

Dim Email As String = "zeca@qualquerlado.com"
If Email Like "*?@?*.?*" Then MsgBox("Temos email!") Else MsgBox("Isso é tudo menos um email pah")

Assim já se garante que existe pelo menos um caractere antes e depois da arroba, e depois do ponto também.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
duduml

Estamos sempre a aprender...

eu teria feito um algoritmo com um for a ver se tinha pontos e @...e depois verificar mais uma serie de coisas...

ainda aqui a dias fiz um algritmo para validar um ip...e ficou algo extenso...e com isto bastava...

Dim ip As String = "127.0.0.1"
If ip Like "*?.?*.?.?*" Then MsgBox("Temos ip!") Else MsgBox("Isso é tudo menos um ip pá")

certo??

interessante =D


"use windows, você merece!"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Antes *#.*#.*#.*# porque em qualquer das quatro posições podem estar de um a três números.

Só não te safa de validar 123456.123456.123456.123456 como IP válido.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.