Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

mekanis

Verificar textbox

Recommended Posts

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

Share this post


Link to post
Share on other 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"

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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"

Share this post


Link to post
Share on other 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!"

Share this post


Link to post
Share on other 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"

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.