---
title: "GubbenGlad i Forum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10592-gubbenglad-i-forum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ironhead"
published: "2001-07-16T07:56:00.000Z"
updated: "2001-07-17T09:33:00.000Z"
replies: 13
views: 296
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/10592-gubbenglad-i-forum"
---

# GubbenGlad i Forum

## #1 — ironhead, 2001-07-16T07:56Z

Använder Denna kod för att konvertera länkar och mailadresser. Nu vill jag kunna konvertera ":)" så att det blir en :)
Får det inte att fungera med chr(41)
Hur ska man skriva?

```
<%
Function StrFix(StrText)
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
re.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1"">$1</a>")
re.Pattern = "(:"&chr(41)&")(\S)(\S+)"
strText = re.Replace(strText, "GUBBENGLAD")
strText = Replace(strText, mDelimit, "")
StrFix=StrText
End Function

StrText="test [url="http://www.text.com"]http://www.text.com[/url]  eller en mailadress: bulle@bulle.com test [url="http://www.test5.com"]www.test5.com[/url]  :) test"
Response.Write StrFix(StrText)
%>
```

\[Redigerat av ironhead den 16 jul 2001\]

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

## #2 — emission, 2001-07-16T08:00Z

Byt ut 

re.Pattern = "(:"&chr(41)&"&#0124;B)(\\S)(\\S+)"
strText = re.Replace(strText, "GUBBENGLAD")
strText = Replace(strText, mDelimit, "")

till

strText=replace(strText,":)","GUBBENGLAD")

Vill du ha parentes i en pattern skriver du /) . Backslash escapar i patterns (och det heter på svenska? ;) )

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

## #3 — ironhead, 2001-07-16T08:06Z

Tack tack tack!

\*Hrmmm\* Kan nog inte hjälpa dig med "svengelskan", man kommer på sig själv att mumla engelska ord när man inte kommer på dem på svenska :)

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

## #4 — ironhead, 2001-07-16T08:19Z

eh! en fråga till

Om man vill ha som detta forum en
\[blå\]text\[/blå\] att bli blå mellan taggarna hur skriver man då?

\[Redigerat av ironhead den 16 jul 2001\]

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

## #5 — nakoz, 2001-07-16T08:30Z

har bara en dålig (?!) lösning på det problemet...

```
strText = Replace(strText,"[blå]","<font color='blue'>"
strText = Replace(strText,"[/blå]","</font>")
```

bör funka... men finns säkert nån med ett bättre sätt :)

mvh.

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

## #6 — ironhead, 2001-07-16T08:54Z

Tack för det!

Man får väl exprimentera litegrann ;)

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

## #7 — @nders, 2001-07-16T08:55Z

detta har avhandlats massor med gånger, så för bättre lösningar, sök lite grann vetja.

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

## #8 — ironhead, 2001-07-16T13:04Z

Tycker inte jag hittar nåt bättre.

Har en fråga till:
Med denna funktiion kan man inte använda en gubbe som ser ut såhär \>:\> hur ska man lösa det?
Ska man lägga in dessa tecken i
re.Pattern = "(\\w+((-\\w+)&#0124;(\\.\\w+))\*\\@\[A-Za-z0-9\]+((\\.&#0124;-)\[A-Za-z0-9\]+)\*\\.\[A-Za-z0-9\]+)" i så fall vart?

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

## #9 — emission, 2001-07-16T14:12Z

Nej, det där används för att hitta mailadresser. Gör likadant som i mitt första svar.

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

## #10 — ironhead, 2001-07-16T20:40Z

Emission: Då funkar det inte!
Tar jag allt utom \< eller \> så funkar det.

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

## #11 — emission, 2001-07-16T21:49Z

Visa kod.

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

## #12 — ironhead, 2001-07-17T05:01Z

```
Function StrFix(StrText)
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
re.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1"">$1</a>")
strText=replace(strText,":)","<img src=""Images/smile.gif"">")
strText=replace(strText,":(","<img src=""Images/bad.gif"">")
strText=replace(strText,";)","<img src=""Images/blink.gif"">")
strText=replace(strText,"bira","<img src=""Images/beergrin.gif"">")
strText=replace(strText,":o","<img src=""Images/redface.gif"">")
strText=replace(strText,":?","<img src=""Images/quest.gif"">")
strText=replace(strText,"=)","<img src=""Images/supergrin.gif"">")
strText=replace(strText,"=(","<img src=""Images/mad.gif"">")
strText=replace(strText,"8)","<img src=""Images/cool.gif"">")
strText=replace(strText,":W","<img src=""Images/evil.gif"">")
strText=replace(strText,"(:I","<img src=""Images/shame.gif"">")
strText = Replace(strText,"[ljus]","<font color='lightgrey'>")
strText = Replace(strText,"[/ljus]","</font>")
strText = Replace(strText,"[kåd]","<br><font color='white'>kod:</font><br><hr color='white'><font color='yellow'>")
strText = Replace(strText,"[/kåd]","<br><hr color='white'></font>")
strText = Replace(strText, mDelimit, "")
StrFix=StrText
End Function
```

\[Redigerat av ironhead den 17 jul 2001\]

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

## #13 — emission, 2001-07-17T07:48Z

Du har ju ingen sådan gubbe med i din funktion....???

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

## #14 — ironhead, 2001-07-17T09:33Z

Jag hade den såhär:
strText=replace(strText,"\>:\>","\<img src=""Images/evil.gif""\>")
men bytte ut den...för att den inte funkade

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10592-gubbenglad-i-forum