---
title: "Den gör inte om till länk"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98165-den-gör-inte-om-till-länk"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fundrusse"
published: "2004-02-25T10:56:32.000Z"
updated: "2004-02-29T19:38:31.000Z"
replies: 1
views: 216
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/98165-den-gör-inte-om-till-länk"
---

# Den gör inte om till länk

## #1 — fundrusse, 2004-02-25T10:56Z

Hejsan!
Jag har snickar ihop följande kod

```
'  Fix Char
'  ********
   Dim Str, Str2, HyperArray, Link
   Function FixChar(Str)
    Str = Replace(Str,VBCrLf,"<br>" & VBCrLf)
    Str = Replace(Str,"<rubrik>","<span class=""rubrik"">")
    Str = Replace(Str,"</rubrik>","</span>")

    HyperArray = Split(Str)
    For Each Link In HyperArray
     If Len(Link) > 7 Then
      If Lcase(left(Link,7)) = "http://" Then
       Str2 = Str2 & "<a href="""& Link &""">"& Link &"</a> "
      ElseIf InStr(Link,"@")>1 Then
       Str2 = Str2 & "<a href=""mailto:"& Link &""">"& Link &"</a> "
      Else
       Str2 = Str2 & Link &" "
      End If
     Else
      Str2 = Str2 & Link &" "
     End If
    Next

   FixChar = Str2
   End Function
```

Den skall gå igenom texten o gör om ord till länk om det finns..
Men av någon anledning så blir det inga länkar fast man skriv in det.. 
Någon som hittar något fel?

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

## #2 — Web-Tor, 2004-02-29T19:38Z

Script-avdelningarna är till för färdiga script som man vill dela med sig av.
Tråden flyttas från Script - ASP, VB.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/98165-den-gör-inte-om-till-länk