[URL=??] till länk? (UTAN regexp)

Du kan ju göra såhär:

function doStuff(strDo)
strDo = Replace(strDo, "[U RL=","<a target=""blank"" href=""")
strDo = Replace(strDo, "[/U RL]","</a>")
strDo = Replace(strDo, "]",""">")
doStuff = strDo
end function

Det är ju inte den ultimata lösningen. Men något liknande borde funka.

Funka inge bra.. händer... inget alls.

Ingen?

Det jag skrev funkar bra för mig. Prova igen:

<%
strDoStuffWith = doStuff("[U RL=http://www.webforum.nu]wF[/U RL] är en bra sida...")
Response.Write strDoStuffWith

function doStuff(strDo)
strDo = Replace(strDo, "[U RL=","<a target=""blank"" href=""")
strDo = Replace(strDo, "[/U RL]","</a>")
strDo = Replace(strDo, "]",""">")
doStuff = strDo
end function
%>

Kom ihåg att ta bort mellanslaget emellan U och RL

Funkar bra, jag som klantade mig, förstår mig dock inte på koden riktigt.

Om jag vill ersätta den med ren text då?
Beskrivningen ska alltså skrivas ut i olänkad text enbart.

/red.

Om det står tex: [U RL=http://www.webforum.nu]wF[/U RL] är en bra sida.. så vill jag att wF ska bli, låt oss säga, FET stil "<B>wF</B>" då... hur gör jag då?

Kan inte allt i huvudet men jag tror det borde bli något som detta

<%
strDoStuffWith = doStuff("[U RL=http://www.webforum.nu]wF[/U RL] är en bra sida...")
Response.Write strDoStuffWith

function doStuff(strDo)
strDo = Replace(strDo, "[U RL=","")
strDo = Replace(strDo, "[/U RL]","")
strDo = Mid(strDo,instr(strDo,"]")+1)
doStuff = strDo
end function
%>

Jag är väldigt osäker på inStr men meningen är att du ska få indexet var "]" finns i strängen.

/Viktor

Med det där så blir bara länken fet stil, vill inte ha med länken alls, bara beskrivningen...

Både fett och länkat:

<%
strDoStuffWith = doStuff("[U RL=http://www.webforum.nu]wF[/U RL] är en bra sida...")
Response.Write strDoStuffWith

function doStuff(strDo)
strDo = Replace(strDo, "[U RL=","<a target=""blank"" href=""")
strDo = Replace(strDo, "[/U RL]","</b></a>")
strDo = Replace(strDo, "]","""><b>")
doStuff = strDo
end function
%>

Bara fett:

<%
strDoStuffWith = doStuff("[U RL=http://www.webforum.nu]wF[/U RL] är en bra sida...")
Response.Write strDoStuffWith

function doStuff(strDo)
strDo = Replace(strDo, "[U RL=","<b><!-- ")
strDo = Replace(strDo, "[/U RL]","</b>")
strDo = Replace(strDo, "]","-->")
doStuff = strDo
end function
%>

nisslass skrev:

Med det där så blir bara länken fet stil, vill inte ha med länken alls, bara beskrivningen...

Har du provat min kod? Jag gjorde det och jag fick den att fungera perfekt. Den skriver ut

wF är en bra sida...

på sidan och texten är inte länkad.

/Viktor

Den funkar inte hos mig, vill helt ha bort länken ur stringen.. den får inte finns med alls.. bara beskrivningen... utan formatering då. Hur gör jag då? ;)

Verkar vara svårt?

Kan bara säga som förut, fungerar perfekt för mig :)

<%
strDoStuffWith = doStuff("[U RL=http://www.webforum.nu]wF[/U RL] är en bra sida...")
Response.Write strDoStuffWith

function doStuff(strDo)
strDo = Replace(strDo, "[U RL=","")
strDo = Replace(strDo, "[/U RL]","")
strDo = Mid(strDo,instr(strDo,"]")+1)
doStuff = strDo
end function
%>

sidan jag får i explorer blir då

wF är en bra sida...

Det är så du vill ha det om jag har förståt dig rätt. För att få det till fet stil är det bara att köra

<%
strDoStuffWith = doStuff("[U RL=http://www.webforum.nu]wF[/U RL] är en bra sida...")
Response.Write strDoStuffWith

function doStuff(strDo)
strDo = Replace(strDo, "[U RL=","")
strDo = Replace(strDo, "[/U RL]","")
strDo = Mid(strDo,instr(strDo,"]")+1)
doStuff = "<b>" & strDo & "<b>"
end function
%>

/Viktor

Det funkar konstigt nog inte för mig, min string innehåller mycket text med nya rader osv, kan det vara det som strular till det?

Här sitter jag och försvara mitt dåliga förslag :r

Det här borde fungera bättre :)

<%
strDoStuffWith = doStuff("dsadsad[U RL=http://www.webforum.nu]wF[/U RL] är ejgl")
Response.Write strDoStuffWith

function doStuff(strDo)
strDo = Replace(strDo, "[/URL]","")

DO
	pos=instr(strDo,"[URL=")
	if pos<>0 then
		strTmp=Mid(strDo,1,pos-1)
		strDo=strTmp & Mid(strDo,inStr(pos, strDo,"]")+1)
	end if
LOOP WHILE pos<>0
doStuff = strDo
end function
%>

/Viktor

Yes!!! Tack ska ru ha! Fungerar utmärkt...

Men i linux så skiljs ju stora o små bokstäver på [U RL] och [u rl]. kan man få med så den gör om båda?

med reg.exp :e

varför kan du inte använda reg.exp längre?

Första inlägget:

Kör med Chilisoft ASP och har fått lite problem.