codice:
<%
function bbcode(text)
text = replace(text,"","")
text = replace(text,"","")
text = replace(text,"","")
text = replace(text,"","")
text = replace(text,"[br]"," ")
text = replace(text,"[li]","[*]")
text = replace(text,"[/li]","")
text = replace(text,"[ul]","<ul>")
text = replace(text,"[/ul]","[/list]")
text = replace(text,"[align=center]","<div style=""text-align:center;"">")
text = replace(text,"[align=left]","<div style=""text-align:left;"">")
text = replace(text,"[align=right]","<div style=""text-align:right;"">")
text = replace(text,"[/align]","</div>")
bbcode = text
End Function
%>
<% response.write bbcode("[align=center]Hello[/align]")%>
<%
function bbcode_new(argStrText)
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "\[align=(center|left|right)\]"
argStrText = objRegExp.Replace(argStrText, "<div style=""text-align:$1"">")
objRegExp.Pattern = "\[\/align\]"
argStrText = objRegExp.Replace(argStrText, "</div>")
objRegExp.Pattern = "\[(/)?(B|I|U|UL|LI)\]"
argStrText = objRegExp.Replace(argStrText, "<$1$2>")
objRegExp.Pattern = "\[BR\]"
argStrText = objRegExp.Replace(argStrText, "
")
set objRegExp = Nothing
bbcode_new = argStrText
End Function
%>
<% response.write bbcode_new("[align=center]Hello[/align]")%>
vediamo se ho capito bene... il codice postato qui che l'ho estrapolato dalla discussione che mi è stata indicata è composto da due funzioni gemellari dove la prima è quella dell'utente mentre la seconda è la reedizione della medesima da parte di imente il quale l'ha resa più performante grazie alle regolar expression.
da qui si evince che in breve io dovrei utilizzare questo:
codice:
<%
function bbcode_new(argStrText)
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "\[align=(center|left|right)\]"
argStrText = objRegExp.Replace(argStrText, "<div style=""text-align:$1"">")
objRegExp.Pattern = "\[\/align\]"
argStrText = objRegExp.Replace(argStrText, "</div>")
objRegExp.Pattern = "\[(/)?(B|I|U|UL|LI)\]"
argStrText = objRegExp.Replace(argStrText, "<$1$2>")
objRegExp.Pattern = "\[BR\]"
argStrText = objRegExp.Replace(argStrText, "
")
set objRegExp = Nothing
bbcode_new = argStrText
End Function
%>
<% response.write bbcode_new("[align=center]Hello[/align]")%>
che nello specifico del mio caso vorrebbe dire fare un ulteriore restyling alla funzione e cioè:
codice:
function bbcode_new(argStrText)
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "\[codice\]"
argStrText = objRegExp.Replace ??????
set objRegExp = Nothing
bbcode_new = argStrText
End Function
%>
<% response.write bbcode_new("[codice]Hello
ciao[/codice]")%>
giusto?
e quindi al posto dei punti di domanda che fo il replace di stringa?
codice:
<%Stringa=""
Stringa1=""
Stringa = Replace(Replace(Scripting1, "<", "<"), ">", ">")
Stringa1= Replace(Stringa, vbCrLf, "
")
response.write(stringa1) %>