• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Quininho

BBCode

5 mensagens neste tópico

Alguem me pode dizer cm posso por bbcode numa pagina em asp (javascript)??? Se alguem tiver alguma coisa feita ainda melhor

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Será alguma coisa parecida com isto? :confused:

<%

'----------------------------------------
' Common Regular Expression Function
'----------------------------------------
Function ReplaceRegExp(strString, strPattern, strReplace)

Dim RE: Set RE = New RegExp

With RE
	.Pattern = strPattern
	.Global = True
	ReplaceRegExp = .Replace(strString, strReplace)
End With

End Function

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'----------------------------------------
' Turn BBcode into HTML
'----------------------------------------
Function BBCodeToHTML(strString)
strString = ReplaceRegExp(strString, "(http|ftp|https)(:\/\/[\w\-_]+)((\.[\w\-_]+)+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?", "<a href=""$1$2$3$5"" target=""_blank"">$1$2$3$5</a>")
strString = ReplaceRegExp(strString, "\[color=([^\]]*)\]([^\[]*)\[/color\]", "<span style=""color: $1;"">$2</span>")
strString = ReplaceRegExp(strString, "\[size=([^\]]*)\]([^\[]*)\[/size\]", "<font size=""$1"">$2</font>")
strString = ReplaceRegExp(strString, "\[font=([^\]]*)\]([^\[]*)\[/font\]", "<span style=""font-family: $1, Sans-Serif, Serif;"">$2</span>")
strString = ReplaceRegExp(strString, "\[quote=([^\]]*)\]([^\[]*)\[/quote\]", "<div class=""quote""><span style=""font-weight: bold; font-size: 8pt;"">$1 said:</span><pre class=""quote1"">$2</pre></div>")
strString = Replace(strString, "[b]", "<span style=""font-weight: bold;"">")
strString = Replace(strString, "[b]", "<span style=""font-weight: bold;"">")
strString = Replace(strString, "[u]", "<span style=""text-decoration: underline;"">")
strString = Replace(strString, "[u]", "<span style=""text-decoration: underline;"">")
strString = Replace(strString, "[i]", "<span style="" font-style: italic;"">")
strString = Replace(strString, "[i]", "<span style="" font-style: italic;"">")
strString = Replace(strString, "[/b]", "</span>")
strString = Replace(strString, "[/b]", "</span>")
strString = Replace(strString, "[/u]", "</span>")
strString = Replace(strString, "[/u]", "</span>")
strString = Replace(strString, "[/i]", "</span>")
strString = Replace(strString, "[/i]", "</span>")
strString = Replace(strString, "[/i]", "<ul><li>")
strString = Replace(strString, "[LI]", "<ul><li>")
strString = Replace(strString, "[Li]", "<ul><li>")
strString = Replace(strString, "[lI]", "<ul><li>")
strString = Replace(strString, "", "</li></ul>")
strString = Replace(strString, "[/LI]", "</li></ul>")
strString = Replace(strString, "[/Li]", "</li></ul>")
strString = Replace(strString, "[/lI]", "</li></ul>")
BBCodeToHTML = strString
End Function

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

%>

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ja experimentei.....n  sei cm e que akilo faz o replace...podes por um exemplo completo??? obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Em 2/4/2007 às 13:14, Quininho disse:

Ja experimentei.....n  sei cm e que akilo faz o replace...podes por um exemplo completo??? obrigado

<%
strTest = "blah blah http://www.thisisaurl.com blah blah Orange Text blah blah [size=7]Size 7 Text[/size] blah blah [font=Arial]Arial Font[/font] blah blah [quote=BBD]This is what BBD said.[/quote] blah blah [b]Bold Text[/b] blah blah [u]Underlined Text[/u] blah blah [i]Italicized Text[/i] blah blah [*]Listed Text blah blah"
strOutput = BBCodeToHTML(strTest)
Response.Write(strOutput)
%>
 
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ta a funcionar mas eu tou a trabalhar com asp javascript (n e a mm coisa k vbscript) e da me uns erros....havera outra maneira de fazer isto???

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora