[Resolvido] Caracteres após "@"

[Gustav Silv 0]

Como faço para pegar todos os caracteres após o "@"? Por exemplo, se o usuário digitar "augusto@mimmesmo.com.br"ou "eu@mimmesmo.com.br jogar numa variável somente o "mimmesmo.com.br"

[Ted k' 126]

Opa essa é simples:

 

ASP

StrURL = "augusto@mimmesmo.com.br"

    MinhaPos = InStrRev(StrURL, "@")

    Tamanho = Len(StrURL)

    Posicao = Tamanho - MinhaPos

    Arquivo = Right(StrURL, Posicao)        

    Response.Write Arquivo

[CassianoVix 0]

Gustavo

 

Basta fazer assim:

 

x = mid(teste, instr(email,"@")+1, len(email))

 

Abraço

Cassiano

[Ted k' 126]

esse tbm é bom, usava esse ai...

 

agora é só ele escolher o mais adequado e estudar a fórmula!!

[Gustav Silv 0]

EXCELENTE! Muito obrigado, CassianoVix!

[Mário Monteiro 179]

outra forma seria usar array

 

ASP

MeuArray = Split(Email,"@")

 

ai voce escreve o que queria usando o segundo indice do array

 

ASP

Response.write(MeuArray(1))