---
title: "Sammanfoga 2 funktioner..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/49586-sammanfoga-2-funktioner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Dee"
published: "2002-08-05T18:20:11.000Z"
updated: "2002-08-12T09:32:08.000Z"
replies: 5
views: 313
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/49586-sammanfoga-2-funktioner"
---
# Sammanfoga 2 funktioner...
## #1 — Dee, 2002-08-05T18:20Z
Hej, försöker lägga in Emmisions "länk-funktion" tillsammans med min replace men får det inte att fungera. Vad gör jag för fel?
```
Response.Write "| "& fixStr(RecSet("message")) &" |
"
'
'
'
'
'
'
Public Function fixStr(strToFix,LinkTarget)
'fix the links (by: Emmision)
f_strText=strToFix
m_objRxp.Pattern="(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2$3$4")
m_objRxp.Pattern="(^|[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2$3")
'objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
m_objRxp.Pattern="(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2")
fixStr=f_strText
'fix the style
strToFix = server.HTMLEncode(strToFix)
strToFix = Replace(strToFix, vbCrLf, "
")
strToFix = Replace(strToFix,"[fet]","")
strToFix = Replace(strToFix,"[/fet]","")
strToFix = Replace(strToFix,"[kursiv]","")
strToFix = Replace(strToFix,"[/kursiv]","")
strToFix = Replace(strToFix,"[röd]","")
strToFix = Replace(strToFix,"[/röd]","")
strToFix = Replace(strToFix,"[blå]","")
strToFix = Replace(strToFix,"[/blå]","")
Trim strToFix
fixStr = strToFix
End Function
```
Emmisions orginalfunktion:
```
Public Function ParseURLs(TextToParse,LinkTarget)
dim f_strText
f_strText=TextToParse
m_objRxp.Pattern="(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2$3$4")
m_objRxp.Pattern="(^|[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2$3")
'objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
m_objRxp.Pattern="(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2")
ParseURLs=f_strText
End Function
```
Tack på förhand.
Permalänk: https://www.webforum.nu/p/49586
## #2 — solbulle, 2002-08-05T19:19Z
En snabb titt säger mig att funktionen skall ha två argument: fixStr(strToFix,LinkTarget)
Du anropar den med ett:
fixStr(RecSet("message"))
Permalänk: https://www.webforum.nu/p/744223
## #3 — Dee, 2002-08-06T09:59Z
Ok, men hur gör jag det då? Testade med...
```
Response.Write "| [b]"& fixStr(RecSet("message"), blank) &"[/b] |
"
```
...men får det inte att fungera. :l
Permalänk: https://www.webforum.nu/p/744569
## #4 — bassebhu, 2002-08-06T11:29Z
hello
vad fick du för felmess?
Permalänk: https://www.webforum.nu/p/744660
## #5 — solbulle, 2002-08-06T13:48Z
Först ska jag var jobbig, det blir mycket lättare om man får reda på ev. felmeddelande till att börja med.
Jaja, jag hittar inte Emmisions orginalfunktion men den där funktionen ser inte riktigt komplett ut, saknar typ:
Set m_objRxp = New RegExp
Sen i funktionen har du skrivit fel variabelnamn så emmisions del används inte inte:
```
fixStr=f_strText
'fix the style
strToFix = server.HTMLEncode(strToFix)
```
Vidare **tror** jag inte att du kan ha:
server.HTMLEncode(fixStr) där!?!
Så här tror jag nog att det ska fungera:
(Glöm inte att även ange target när du kallar på funktionen)
```
Public Function fixStr(strToFix,LinkTarget)
Set m_objRxp = New RegExp
'fix the links (by: Emmision)
f_strText=strToFix
m_objRxp.Pattern="(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2$3$4")
m_objRxp.Pattern="(^|[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2$3")
'objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
m_objRxp.Pattern="(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)"
f_strText=m_objRxp.Replace(f_strText,"$1$2")
fixStr=f_strText
'fix the style
strToFix = fixStr 'server.HTMLEncode(fixStr)'strToFix
strToFix = Replace(strToFix, vbCrLf, "
")
strToFix = Replace(strToFix,"[fet]","")
strToFix = Replace(strToFix,"[/fet]","")
strToFix = Replace(strToFix,"[kursiv]","")
strToFix = Replace(strToFix,"[/kursiv]","")
strToFix = Replace(strToFix,"[red]","")
strToFix = Replace(strToFix,"[/red]","")
strToFix = Replace(strToFix,"[blå]","")
strToFix = Replace(strToFix,"[/blå]","")
Trim strToFix
fixStr = strToFix
End Function
```
Permalänk: https://www.webforum.nu/p/744778
## #6 — Dee, 2002-08-12T09:32Z
> **solbulle skrev:**
>
> Först ska jag var jobbig, det blir mycket lättare om man får reda på ev. felmeddelande till att börja med.
Borde ha lärt mig det vid det här laget :r
Gjorde en egen funktion istället, men tack för hjälpen iaf.
Permalänk: https://www.webforum.nu/p/748803
---
Tråden på webben: https://www.webforum.nu/amne/asp/49586-sammanfoga-2-funktioner