[Resolvido] Tem como pegar um valor especifico de uma variável?

[marvi 0]

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?

[xanburzum 169]

neste caso especifico, como você quer ser se tem o "@", use uma regular expression para ver se o conteudo é valido...

dê uma pesquisada no forum que existem exemplos

[hargon 64]

Pesquise pela função INSTR. Se o resultado da pesquisa for maior que zero, entra no IF se não, sai do IF.

[xanburzum 169]

olha uma regular expression

 

<%
Response.write isValidEmail("teste@dominio.com") & "<BR>"
Response.write isValidEmail("testedominiocom")

Function isValidEmail(myEmail)
  dim isValidE
  dim regEx
  
  isValidE = True
  set regEx = New RegExp
  
  regEx.IgnoreCase = False
  
  regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
  isValidE = regEx.Test(myEmail)
  
  isValidEmail = isValidE
End Function%>

[marvi 0]

Isso não serve, porque ele só pega o arroba na posição exata.

 

Se a variável tiver outro valor, tipo: marceloteste@oi.com ele já não acha o @, entende?

 

Tem que reconhecer o @ em qualquer posição dentro da variável

[jothaz 1]

Acho que o exemplo do xanburzum faz o que você quer.

 

Mas quer simplificar:

 

<%

pos = instr(1,sua_variavel,"@")

if pos = 0 then
 response.write "não existe"
else
 response.write "existe"
end if


%>

[marvi 0]

Certo, obrigado! Funcionou!