(Resolvido) Tem como pegar um valor especifico de uma variável?

[marvi]

Olá pessoal, tenho uma dúvida.

Eu queria saber se tenho como pegar o valor especifico de uma variável? Tipo:

VariavelE="teste@teste.com"

Existe como eu saber se essa variável, VariavelE, acima possue um arroba, @, antes que eu possa imprimir ela?

Queria fazer algo assim

VariavelE="teste@teste.com"

if VariavelE = @ then

Algo que diga que se VariavelE possue um arroba, @, faça tal coisa, mas para isso preciso de uma função antes que possa identificar se tal variável leva o "@", entendem? Tem como?

[lobismano]

E ai beleza.

Usa o Instr

VariavelE = "teste@teste.com"

Busca = "@"

Pos = Instr(1, VariavelE, Busca)

if Pos > 0 then

Achou

else

Não Achou

end if

At.

[marvi]

Mas isso não faz descobrir se a variavel VariavelE = "teste@teste.com" possui um arroba, entende?

O valor é teste@teste.com, por exemplo, e nesse teste@teste.com, preciso achar o arroba, @.

Poderia ser joao@uol.com.br e assim tenho que achar o arroba também

Editado Março 22, 2010 por marvi

[bareta]

Função: InStr ( ) 

Devolve a posição da primeira ocorrência de uma string dentro de outra.
Dim ProcuraString, ProcuraChar, MinhaPos
ProcuraString ="XXpXXpXXPXXP" ' String onde procurar
ProcuraChar = "P" ' Procurar por "P"
MinhaPos = Instr(4, ProcuraString, ProcuraChar, 1)
' Uma comparação textual a começar em 4 devolve 6

[lobismano]

E ai beleza.

Faz sim.

Neste caso se houver uma ocorrencia de @ na string o valor da variável "Pos" será maior que 0 e alem disso o valor de "Pos" informa em qual posição da string ocorre a primeira ocorrencia . Caso não houver o resultado é 0.

At.

[marvi]

Certo, obrigado! Funcionou!