Hashtag Na Mensagem

[Gilberto Jr 26]

Boa noite;

 

Criei um formulário para envio de mensagem no bolão que criei do segundo turno do brasileirão.

 

Criei uma pagina mural que o apostador manda a mensagem.

 

Porem o que eu queria que quando o apostador colocar uma palavra com um HASHTAG no inicio criar um link para o facebook com aquela palavra que esta com o HASHTAG.

 

Exmplo

-----------------------------------

Será que o Cauê vai assumir a liderança hoje?
Pelo que eu to vendo o Luiz vai abrir pontos igual o #CRUZEIRO esta fazendo com os outros times.

Att;

---------------------------------------------------

Queria que ficasse assim

---------------------------------------------

Será que o Cauê vai assumir a liderança hoje?

Pelo que eu to vendo o Luiz vai abrir pontos igual o

<a href="https://www.facebook.com/hashtag/cruzeiro">#CRUZEIRO</a>

esta fazendo com os outros times.

Att;

-----------------------------------------

 

Ou seja, a palavra que esta com HASHTAG virar um link...

 

É possível fazer que fique assim?

 

Att;

[xanburzum 169]

um replace, mas antes localize a palavra e dae sim um replace pelo link. coloquei algumas funções para trabalhar com texto, dá uma olhada. Lembrando que você pode fazer isso com jquery também

[Gilberto Jr 26]

Bom dia;

 

Eu já tentei fazer com replace e não consegui...

[Gilberto Jr 26]

Como eu pego somente um palavra que esta com a HASHTAG no inicio?

 

Exemplo:

---------------------------

Será que o Cauê vai assumir a liderança hoje?
Pelo que eu to vendo o Luiz vai abrir pontos igual o #CRUZEIRO esta fazendo com os outros times.

Att;

---------------------------

Quero pegar somente a palavra #CRUZEIRO ou seja que inicia com HASHTAG. Ou seja, pegar do HASHTAG até o próximo ESPAÇO onde termina a palavra com HASHTAG.

 

Att;

[Gustavo Emygdio Barboza 24]

Function GeraLinknoHashTag(qualtexto)

vet = Split(qualtexto, " ")

For i = 0 To UBound(vet)

If Left(vet(i), 1) = "#" Then

link = "<a href='https://www.facebook.com/hashtag/" & Right(vet(i), Len(vet(i)) - 1) & "'>" & vet(i) & "</a>"

novotexto = novotexto & " " & link

Else

novotexto = novotexto & " " & vet(i)

End If

Next

GeraLinknoHashTag = novotexto

End Function

Texto = "Será que o Cauê vai assumir a liderança hoje?" _

& "Pelo que eu to vendo o Luiz vai abrir pontos igual o #CRUZEIRO esta fazendo com os outros times"

response.write GeraLinknoHashTag(Texto)

não testei mas a ideia é essa!

sucesso!

[xanburzum 169]

ou usando a API do FB tb

[Gustavo Emygdio Barboza 24]

?

[xanburzum 169]

pode usar a API ou jquery para gerar hashtag com mais funcionalidades

[Gustavo Emygdio Barboza 24]

acredito que evitando demais recursos o desempenho melhora ... agora quando se não tem jeito ai sim concordo com a opção ... uma funçãozinha de 10 linhas com grau de complexidade zero não vi problema para preferir API.

[Gilberto Jr 26]

Fala ae galeira. Gustavo e Xan consegui resolver com o post do

Gustavo Emygdio Barboza

O codigo ficou assim

<%
set coment = conn.execute("select * from comentariosbolao where idbolao=2")
 
 
 
Function GeraLinknoHashTag(qualtexto)
vet = Split(qualtexto, " ")
For i = 0 To UBound(vet)
If Left(vet(i), 1) = "#" Then
link = "<a href='https://www.facebook.com/hashtag/" & Right(vet(i), Len(vet(i)) - 1) & "' target='_blank'>" & vet(i) & "</a>"
novotexto = novotexto & " " & link
Else
novotexto = novotexto & " " & vet(i)
End If
Next
GeraLinknoHashTag = novotexto
End Function
 
while coment.eof = false
 
Texto = coment("comentario")
 
response.write GeraLinknoHashTag(replace(Texto,VBCRLF, "<br>"))&"<br><br>"
 
coment.movenext
wend
%>

 

Obrigado.

[xanburzum 169]

maravilha ficou muito funcional e simples