Jag har försökt o söka på NÅT som har med att replace:a en bit av en text i en form som man väljer att skriva som länk..D.v.s. om man skriver <link>bla</link> så ska "bla" bli en klckbar länk men jag hittar inte..har för mig att det finns ett inlägg om det men kan inte hitta det nu. Nån som kan hjälpa mig i rätt riktning.

/Juha

Kolla i filarean, jag har för mig att Henkoz har lagt upp en sådan funktion,
det ska vara den som Pelle använder sig av här.

/Anna-Karin

Detta är den kod som används på pellesoft för att göra det du efterfrågar, nämligen omvandlar en länk i en textmassa till en klickbar länk. Henrik Malmberg har bidragit med denna del till pellesoft.

Detta exempel genererar en klickbar länk om man anger < url : www.test.se > utan mellanslag. Du kallar på den genom att skriva:

<code>
Response.Write ParseMessage("hej, detta är en < url:www.pellesoft.nu> länk")
</code>

Här kommer funktionen som du antingen har på sidan eller i en includefil.

<code>
Function ParseMessage(sText)
Dim oRE, oMatches, oMatch
Dim sMatch, sURLValue, sEmail
Dim sType, nNum

Set oRE = New RegExp
oRE.Global = True
oRE.IgnoreCase = True

'** Leta
oRE.Pattern = "(.*?)"

'** Kort förklaring till ovanstående RegExp:
'** följt av ngn sorts text och till slut
'** < = <, > = >

Set oMatches = oRE.Execute(sText)
For Each oMatch In oMatches
sMatch = oMatch.Value
sURLValue = oMatch.SubMatches(0)

If InStr(sURLValue, ":") = 0 Then
sText = Replace(sText, sMatch, "" & urlnamn & "")
Else
If Left(sURLValue, 7) = "mailto:" Then
sEmail = Right(sURLValue, Len(sURLValue) - 7)
sText = Replace(sText, sMatch, "" & sEmail & "")
Else
sText = Replace(sText, sMatch, "" & urlnamn & "")
End If
End If
Next

ParseMessage = sText

End Function
</code>

Tack. Me lite tricks så löste det sig med denna kod.

En enklare funktion:
<code>
Function ParseLinks(Text)
Dim RegExp
Set RegExp = New RegExp
RegExp.Global = True
RegExp.IgnoreCase = True
RegExp.Pattern = "<link>([^<]*)<\/link>"
ParseLinks = RegExp.Replace(Text, "$1")
End Function
</code>