Jag har denna kod för att "invertera" HTML-kod till min egen forumkod då en användare redigerar
sitt inlägg. Nu är det så att en URL liknande
http://www.dileno.cjb.net enbart ska
visas som http://www.dileno.cjb.net eftersom jag har en annan funktion som gör länkar av
http://-text. Nu är det så att jag undrar hur jag tar ut http://www.dileno.cjb.net ur
strängen så att enbart det syns när användaren ska redigera sidan? Om jag enbart kör forumkoden längst ner
skrivs url:en ut två gånger i rad vilket inte ser så bra ut. Men om jag försöker plocka ut url:en
genom denna första kodsnutt så fungerar det på en oberoende sida men inte i forumfunktionen Felmeddelandet blir:

Körningsfel i Microsoft VBScript fel '800a0005'

Ogiltigt proceduranrop eller argument.: 'Mid'



Koden för utplockning av url:en:

<% Dim VStart, VEnd, ThisLink, LinkDone
VStart = Instr(incoming,"<a")
VEnd = Instr(incoming,">")+1
ThisLink = (VEnd-VStart)
LinkDone = Mid(incoming,VStart,ThisLink)
Linkdone = ""
LinkFinished = incoming %>



<% 'Funktion för "invertering" av kod från forum-databasen
Function forumCodeInvert(incoming)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "<span class=""codebehind"">"
incoming = objRegExp.Replace(incoming,"")

objRegExp.Pattern = "\<(b|/b|i|/i|u|/u|p)\>"
incoming = objRegExp.Replace(incoming,"[$1]")

objRegExp.Pattern = "<span class=""citat"">Citat:<br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"[citat]")

objRegExp.Pattern = "</span><br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"[/citat]")

objRegExp.Pattern = "<span class=""forumkod"">Kod:<br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"[kod]")

objRegExp.Pattern = "</span><br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>"
incoming = objRegExp.Replace(incoming,"[/kod]")

objRegExp.Pattern = "</span>"
incoming = objRegExp.Replace(incoming,"")

objRegExp.Pattern = "()|()|"
incoming = objRegExp.Replace(incoming,"")

forumCodeInvert = incoming
'Slut foruminvertering
End Function %>


Jag är oerhört tacksam för svar!!

Alla dina inlägg innehåller nog inte länkar och det ställer till problem. Du får kontrollera att instr returnerar > 0

<%

VStart = Instr(incoming,"<a")
VEnd = Instr(incoming,">")+1
if vstart > 0 and (vend > vstart) then
ThisLink = (VEnd-VStart)
LinkDone = Mid(incoming,VStart,ThisLink)
Linkdone = ""
LinkFinished = incoming
end if

%>

Hälsningar
/Pelle

Men i mitt exempel när jag redigerade en post i mitt forum så fanns det en länk med och ändå fick jag Mid-felmeddelandet.. Fungerar din kod ändå?