Replace

Hej!

Det är så att jag håller på att göra ett forum och om någon skulle skriva <% %> i inläggen så ska det bytas mot < och >

Gör man inte det så här?
Replace("texten", "<%", "<")
Replace("texten", "%>", ">")

gör det så men fungerar inte, det blir detta felmeddelande:

Kompileringsfel i Microsoft VBScript (0x800A0409)
Oavslutad strängkonstant

Någon som vet vad som är fel eller hur jag ska göra det

Den första parametern är inte ByRef och Replace är inte en Sub-funktion, så för det första får du se till att returnera till något, lämpligtvis den sträng du skickar in först.

sStringVal = Replace(sStringVal, "<%", "&lt;")
sStringVal = Replace(sStringVal, "%>", "&gt;")

Jag är dock lite osäker på om det ger det där felmeddelandet.

Funkar fortfarande inte, kommer upp samma felmeddelande...
testade din kod...

sStringVal = Request("inlagg")

sStringVal = Replace(sStringVal, "<%", "<")
sStringVal = Replace(sStringVal, "%>", ">")

Detta hade (föga förvånande) varit upp tidigare såg jag nu efter en sökning och @nders hade lösningen bland annat i det här inlägget. Det visste jag faktiskt inte att man inte fick göra så.. skumt. :l

Testade @nders kod och ingen kom inget felmeddelande men däremot så funkade det inte, det blev fortfarande <% %> i inlägget....??

ska det inte bli < > så när det skrivas ut så blir det <% %>

hmmm vet vad som var fel, för pinsamt för att säga :OO

eller trodde att jag löste det men gjorde det inte....hjälp

/red. Nehe..

Nu har jag fått ordning på det!

hmm nu är det en annat problem, jag vill att när man skriver html i inläggen i mitt forum så ska det visaso också i text men det gör det inte det blir html....gjorde så här

str = Replace(str, "<","&lt;")
str = Replace(str, ">","&gt;")

det blev inte html av det men då fungerade det inte att skriva med aspkoder????

mer kod....

str = Request("inlagg")
str = Replace(str, "<" & "%","<%")
str = Replace(str, "

", "Kod:<br>" & "<hr><br>" & "<font style=font-size:9px;")
str = Replace(str, "%" & ">","%&gt;")
str = Replace(str, "

", "<hr>" & "</font>")

str = Replace(str, vbCrLf, "<br>" & vbCrLf)

nu blev det lite konstigt....men tror jag löste det igen på igen hand:p

strText = Inlägg
strText = Server.HTMLEncode(strText)
strText = Replace(strText,vbCrLf,"<br>" & vbCrLf)

Jag är inte säker men jag tror att <% och %> blir > och < genom att du kör Server.HTMLEncode på din text... Så denna lilla kod borde väl räcka?

Hej igen!

Jag vill ha en funktion som gör att om man skriver

så blir det en länk av det. Man ska kunna öppna sidan oavsett om man skriver http:// eller www

fattar ni?

Sök, sök och sök. Återigen. Knappen finns uppe i högra hörnet på alla sidor i hela forumet.

problem problem som jag ej hittar lösning på...inte ens om jag söker oveRRide.

<%
objRegExp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
str = ObjRegExp.Replace(str,"$1<a href=""mailto:$2"">$2</a>")

str = Replace(str, "www", "http://www")

objRegExp.Pattern = "\[url=(&quot;)?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
str= objRegExp.Replace(str,"<a href=""http://$3"" target=""_blank"">$4</a>")
%>

om jag skriver t.ex http://www.bla.se eller https://www.bla.se så fungerar det men och jag skriver [ url=http://adressen.asp]bla[/ url] så fungerar det inte, det skriver ut http://www.bla.com target="_blank">

skit konstigt att det inte fungerar, verkar som om koderna "krockar" med varandra