---
title: "Radbrytningsfunktion strular om texten innehåller en URL"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107854-radbrytningsfunktion-strular-om-texten-innehåller-en-url"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "G8"
published: "2004-07-23T09:34:42.000Z"
updated: "2004-07-23T09:34:42.000Z"
replies: 0
views: 203
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/107854-radbrytningsfunktion-strular-om-texten-innehåller-en-url"
---

# Radbrytningsfunktion strular om texten innehåller en URL

## #1 — G8, 2004-07-23T09:34Z

```
   Function FixChar(Str)
    Str = Replace(Str,VbCrLf,VbCrLf&" <br> ")
	Str = Replace(Str,"'", "''")
	Str = Replace(Str,"|", "")

    HyperArray = Split(Str)
    For Each Link in HyperArray
     If Len(Link) > 7 Then
      If Lcase(Left(Link,7)) = "http://" Then
	  If Len(Link) > 30 Then
    	Link2 = Left(Link, 26) & "..." & Right(Link, 10)
		else
		link2 = link
		End If
       Str2 = Str2 & "<a href="""& Link &""">"& Link2 &"</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

'##Radbrytning efter 45 bokstäver i rad, utan mellanrum
Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString
intMaxLength = 45
arrString = Split(OriginalString, " ")
For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If
strNewString = strNewString & arrString(intIndex) & " "
Next
Strang = strNewString
End Function
```

Och jag skriver ut texten så här:

```
<%=Smileyreplace(fixChar(strang(rs("svar"))))%>
```

Problemet uppstår då en URL ska skrivas ut, adressen blir då såhär:<http://spaceflightnow.com/news/n0108/26xss11/>\<br\>xss11.jpg\<br\> vilket blir lite knasigt.

Jag vill alltså inte att den ska köra radbrytning på ord som innehåller <http://>

Radbrytningen har jag för att förhindra sabotage i tabellens utseende..

Nån som har några förslag?

Mvh

//G8

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107854-radbrytningsfunktion-strular-om-texten-innehåller-en-url