---
title: "Sammanfoga kod i regexp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106734-sammanfoga-kod-i-regexp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Inferis"
published: "2004-07-04T19:59:44.000Z"
updated: "2004-07-19T16:18:30.000Z"
replies: 5
views: 318
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/106734-sammanfoga-kod-i-regexp"
---

# Sammanfoga kod i regexp

## #1 — Inferis, 2004-07-04T19:59Z

Är det nån som vet hur man bäst sammanfogar koden för bildvisning med det andra?
Problemet jag får är att det visas ingen bild, blir bara en länk som slutar med \[/img
Denna kod:

```
function getImage(strText)
  set oRegExp = new regexp
  oRegExp.global=true
  oRegExp.ignorecase = true
  oRegExp.pattern = "\[img]((.|\n)+?)\[/img\]"
  getImage = oRegExp.replace( strText, "<img src='$1'>" )
end function
```

Vill jag baka in i denna kod:

```
Function FCode(str)

str = Replace(str,"<","&lt;")
str = Replace(str,VbCrLf,"<br />")

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

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

objRE.Pattern = "([url]www.[/url][^ ]*[a-z])|([url]http://[/url][^ ]*[a-z])"
str = objRE.Replace(str,"<b>Länk: </b><a href=""$1$2"" target=""_blank"">$1$2</a>")

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

str = Replace(str,"<br""","""")
str = Replace(str,"<br</a> />","</a><br />")

str = Replace(str,"</span><hr""","""")
str = Replace(str,"</span><hr</a> />","</a></span><hr />")

str = Replace(str,"<blockquote><span""","""")
str = Replace(str,"<blockquote><span</a>","</a><span")
str = Replace(str,"</b</a>>","</b>")

objRE.Pattern = "([\w~\-\.]+@[\w~\-\.]+[a-z])"
str = objRE.Replace(str,"<b>Epost: </b><a href=""mailto:$1"">$1</a>")

Set objRE = Nothing

Fcode = str
End Function
```

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

## #2 — Inferis, 2004-07-04T20:00Z

Kan man på nåt sätt baka in dessa också?

```
Function FixaTecken(str)
FixaTecken = Replace(Trim(str),"'","''")
End function

' Radbryt efter visst antal tecken
Function br(str)
	Dim antal, tecken, count
	antal = 15  'antal tecken som raden skall vara.

	for tecken = 1 to len(str)
	     count = count + 1
	     Response.Write Mid(str, tecken, 1)
	     If count > antal Then Response.Write "<BR>": count = 0
	next
End Function
```

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

## #3 — Inferis, 2004-07-06T11:37Z

Det var ingen som kunde eller ville?

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

## #4 — Engine^, 2004-07-06T11:59Z

Du har missat att escape:a sluthakparantesen på din img-tagg i ditt pattern.

Baka in... det går nog lika bra att anropa funktionerna från FCode.

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

## #5 — Josef, 2004-07-06T12:00Z

Så här kanske...

```
Function FCode(str)

str = Replace(str,"<","&lt;")
str = Replace(str,VbCrLf,"<br />")

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

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

objRE.Pattern = "([url]www.[/url][^ ]*[a-z])|([url]http://[/url][^ ]*[a-z])"
str = objRE.Replace(str,"<b>Länk: </b><a href=""$1$2"" target=""_blank"">$1$2</a>")

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

str = Replace(str,"<br""","""")
str = Replace(str,"<br</a> />","</a><br />")

str = Replace(str,"</span><hr""","""")
str = Replace(str,"</span><hr</a> />","</a></span><hr />")

str = Replace(str,"<blockquote><span""","""")
str = Replace(str,"<blockquote><span</a>","</a><span")
str = Replace(str,"</b</a>>","</b>")

objRE.Pattern = "([\w~\-\.]+@[\w~\-\.]+[a-z])"
str = objRE.Replace(str,"<b>Epost: </b><a href=""mailto:$1"">$1</a>")

objRE.pattern = "\[img]((.|\n)+?)\[/img\]"
str = objRE.Replace( str, "<img src='$1'>" )

str = Replace(str, "'","''")

antal = 15  'antal tecken som raden skall vara.

for tecken = 1 to len(str)
     count = count + 1
     Response.Write Mid(str, tecken, 1)
     If count > antal Then Response.Write "<BR>": count = 
next

Set objRE = Nothing

Fcode = str
End Function8
```

Men jag förstår inte va radbrytnings-delen gör för nytta. Nu bryter den ju mitt i ett ord t ex. Ingen snygg lösning enligt min mening...

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

## #6 — Inferis, 2004-07-19T16:18Z

Det funkar inte riktigt... Det blir bara en länk som slutar med

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/106734-sammanfoga-kod-i-regexp