Recuperar Telefone de um site

[mike_br 0]

Ola pessoal. tentei com regexp mas nao deu certo, pois eu tenho um texto padrão... e gostaria de atravez de uma padrao ou mascara (xx)xxxx-xxxx recuperar o numero que apareca nesse padrao.. tipo.

"^\(\d{2}\)\d{4}-\d{4}$" nesse caso seria (11)-3333-3333 mas como recuperar esse valor em um texto?

 

 

Alguem pode me ajudar?

 

 

Obrigado

 

Rodrigo

[xanburzum 169]

você pode usar funcoes k manipulam string, para recuperar determinado dados da mesma, dá uma pesquisada no lab. de script k existem exemplos, vai te ajudar

[mike_br 0]

você pode usar funcoes k manipulam string, para recuperar determinado dados da mesma, dá uma pesquisada no lab. de script k existem exemplos, vai te ajudar

 

 

SIm ja procurei.. mas como INSTR tem mesmo.. mas preciso atraves de expressoes regulares

[xanburzum 169]

você pode pegar as funcoes e converter para uma regular expressions tipo uma Strip Tags

[jrcardozo 4]

Function resgatarTelefone(str)

Dim regEx

Dim Match

Dim Matches

Set regEx = New RegExp

regEx.Pattern = "\([0-9]{2,2}\) [0-9]{4,4}-[0-9]{4,4}"

regEx.IgnoreCase = True

regEx.Global = True

Set Matches = regEx.Execute(str)

For Each Match In Matches

resgatarTelefone = Match.Value

Exit For

Next

End Function

 

Response.Write resgatarTelefone("String de teste e este é o telefone(51) 9999-4445acabou")

bom proveito

[mike_br 0]

jonathan, MUITO OBRIGADO MESMO!

 

Perfeito....

 

Andei lendo sobre expressoes regulares.. estou aprendendo.. mas seu exemplo me esclareceu muitas duvidas.

 

 

Será que não querendo abusar, mas pegando seu exemplo, eu fiz uma expressao para recuperar e-mails porem esta com um pequeno problema..

 

olha:

regEx.Pattern = "([a-z]+)@([a-z]+).([a-z]{2,3}).([a-z]{2,3})"

 

no texto "rodrigo teste de email email@teste.com do teste"

 

esta retornando "email@teste.com do"

 

Estranho, não era para nao bater com a expressão? xxx@xxx.xxx.xxx ?

 

 

Obrigado heim Jonathan.

 

 

Abraços

[jrcardozo 4]

segue exemplo, não entendo muito(melhor, quase nada) de Expressão regular, mas a dor ensina a gemer, fui atras hehehe. Legal que você está fazendo o mesmo, querendo aprender ao invés de só sugar o que precisa.Parabens por usar e aprender com o que a galera posta aqui

Function resgatarEmail(str)
	Dim regEx
	Dim Match
	Dim Matches
	Set regEx = New RegExp
	regEx.Pattern = "[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}"
	regEx.IgnoreCase = True
	regEx.Global = True
	Set Matches = regEx.Execute(str)
	For Each Match In Matches
		resgatarEmail = Match.Value
		Exit For
	Next
End Function

Response.Write resgatarEmail("rodrigo teste de email email@teste.com do teste")

[xanburzum 169]

ela gera algum erro ???