---
title: "Mid-fel vid RegExp-\"invertering\" av forumkod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56262-mid-fel-vid-regexp-invertering-av-forumkod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "m_soderlund"
published: "2002-10-17T07:07:09.000Z"
updated: "2002-10-17T14:18:21.000Z"
replies: 4
views: 258
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/56262-mid-fel-vid-regexp-invertering-av-forumkod"
---

# Mid-fel vid RegExp-"invertering" av forumkod

## #1 — m_soderlund, 2002-10-17T07:07Z

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
\<a href="http://www.dileno.cjb.net" target="\_blank"\><http://www.dileno.cjb.net>\</a\> 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 = "(<a href="")|("" target=""_blank"">)|(</a>)|"
incoming = objRegExp.Replace(incoming,"")

forumCodeInvert = incoming
'Slut foruminvertering
End Function %>
```

Jag är oerhört tacksam för svar!! OBS! { och } ska på egentligen ersättas med \[ och \]..

Permalänk: https://www.webforum.nu/p/56262

## #2 — LarsG, 2002-10-17T07:38Z

Då kan det bero på att incopming inte har någoit vettigt värde.

Lägg till lite utskrifter

```
response.write "incoming:" & incoming & "<br>"
if isnull(incoming) then response.write "incoming is null "
```

Permalänk: https://www.webforum.nu/p/825777

## #3 — m_soderlund, 2002-10-17T13:58Z

Men incoming har ju en massa text och en länk.. \*Snyft\*

Permalänk: https://www.webforum.nu/p/826030

## #4 — OveRRidE, 2002-10-17T14:15Z

Och som den tjatiga moraltant jag är så hänvisar jag till [denna länk](http://www.webforum.nu/showthread.php?s=&threadid=55116). ;)

Använd \[kod\]-taggarna! :)

Permalänk: https://www.webforum.nu/p/826055

## #5 — m_soderlund, 2002-10-17T14:18Z

Det blev ju inte så snyggt.. Men det fungerar i alla fall OveRRidE..

Permalänk: https://www.webforum.nu/p/826061

---

Tråden på webben: https://www.webforum.nu/amne/asp/56262-mid-fel-vid-regexp-invertering-av-forumkod
