---
title: "Koppla en funktion!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9449-koppla-en-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "saw"
published: "2001-05-12T14:29:00.000Z"
updated: "2001-05-13T10:18:00.000Z"
replies: 7
views: 200
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/9449-koppla-en-funktion"
---

# Koppla en funktion!!

## #1 — saw, 2001-05-12T14:29Z

Det här låter väll mer än tokigt??
Jag försöker att koppla en funktion i från IDG, men får det inte att fungera
Jag försöker koppla strInlagg med:

Function ConvertLinks(svalue)

svalue = ConvertLinksHREF(svalue, "http://")
svalue = ConvertLinksHREF(svalue, "ftp://")
svalue = ConvertLinksHREF(svalue, "news://")
svalue = ConvertLinksHREF(svalue, "mailto:")
ConvertLinks = svalue
End Function

Function ConvertLinksHREF(svalue, sHREF)
Dim iPos1, iPos2, sTemp, sTemp1, sTemp2
iPos2 = 1
iPos1 = InStr(1, svalue, sHREF, 1)
Do While iPos1 \> 0
iPos2 = FindLinkEnd(svalue, iPos1 + Len(sHREF))
If iPos2 \> 0 Then
sTemp1 = Mid(svalue, iPos1, iPos2 - iPos1)
sTemp2 = "\<A HREF=" & Chr(34) & sTemp1 & Chr(34) & "\>" & sTemp1 & "\</A\>"
svalue = Left(svalue, iPos1 - 1) & sTemp2 & Mid(svalue, iPos2)
iPos2 = iPos1 & Len(sTemp2) + 1
Else
iPos2 = iPos1 + Len(sHREF)
End If
iPos1 = InStr(iPos2, svalue, sHREF, 1)
Loop
ConvertLinksHREF = svalue
End Function
Function FindLinkEnd(svalue, iPos1)
Dim iPos2, i, iLen, iTempPos
Dim sValidChars
sValidChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-.@/"
iLen = iPos1 + Len(Mid(svalue, iPos1)) - 1
iPos2 = -1
For i = iPos1 To iLen
iTempPos = InStr(1, sValidChars, Mid(svalue, i, 1), 1)
If iTempPos = 0 Then
If i \< iPos1 + 4 Then
iPos2 = -1
Else
iPos2 = i
End If
Exit For
End If
Next
If iPos2 = 0 Then
iPos2 = Len(svalue) + 1
End If
FindLinkEnd = iPos2
End Function 

Jag tycker att jag har försökt på alla dom möjliga och omöjliga sätt men...
Hur bör jag göra?

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

## #2 — icaaq, 2001-05-12T14:34Z

vad ska funktionen göra.... :)

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

## #3 — Herman, 2001-05-12T14:50Z

För att kalla på funktionen skriver du 

```
strInlagg = ConvertLinks(strInlagg)
```

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

## #4 — saw, 2001-05-12T16:13Z

Den här funktionen läser in och skall göra om till länkar, ni vet!!

Men när jag skrev strInlagg = ConvertLinks(strInlagg)
så blev resultatet "TRUE"
Är den här funktionen kass?

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

## #5 — @nders, 2001-05-12T16:21Z

ja, det mesta som kommer från idg är kasst, tyvärr. :l

men, emission har skrivit en rätt så trevlig funktion mha regular expressions.

kika här: <http://cgi.webforum.nu/wf/Forum11/HTML/001475.html> 

mvh,

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

## #6 — saw, 2001-05-12T16:54Z

Superperbra, man tackar.

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

## #7 — PatrikB, 2001-05-13T10:10Z

.... ohh, @nders ... nu tror inte förståss jag att den funktionen kommer från IDG´s lektioner från början ... :o

cya,
PatrikB

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

## #8 — @nders, 2001-05-13T10:18Z

humma, vickeva? 

vad menar herrn? :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9449-koppla-en-funktion