---
title: "Den gör inte om till länk"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98166-den-gör-inte-om-till-länk"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fundrusse"
published: "2004-02-25T10:58:01.000Z"
updated: "2004-02-25T12:27:14.000Z"
replies: 4
views: 280
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/98166-den-gör-inte-om-till-länk"
---

# Den gör inte om till länk

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

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/98166

## #2 — Calevan, 2004-02-25T11:22Z

Testa att skriva ut dina variabler lite överallt i koden och se så att de verkligen ser ut så om du tror att de ska göra.

och raden Str2 = Str2 & Link &" " blir väll lite skum när man inte har definierat något startvärde på Str2? (eller så nollställs den med dim, jag vet inte, använder aldrig dim)

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

## #3 — fundrusse, 2004-02-25T11:27Z

Jag provade att ändra såhär

```
    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
```

Då skriver den bara ut ord som är längre än 7..
men de som börjar på <http://> blir inte länkar.. fattar inte varför..
borde ju bli det

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

## #4 — fundrusse, 2004-02-25T12:10Z

Med denna kod fungerar det som jag vill

```
'  Fix Char
'  ********
   Dim Str, Str2, HyperArray, Link
   Function FixChar(Str)
    Str = Replace(Str,VbCrLf,VbCrLf&" <br> ") 
    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
```

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

## #5 — fundrusse, 2004-02-25T12:27Z

```
'  Fix Char
'  ********
   Dim Str, Str2, HyperArray, Link
   Function FixChar(Str)
    Str = Replace(Str,VbCrLf,VbCrLf&" <br> ") 
    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
    Str2 = ""
    End Function
```

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

---

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