---
title: "Radbrytning och byte av tecken??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9884-radbrytning-och-byte-av-tecken"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "phazer23"
published: "2001-06-05T14:57:00.000Z"
updated: "2001-06-05T15:26:00.000Z"
replies: 1
views: 196
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/9884-radbrytning-och-byte-av-tecken"
---

# Radbrytning och byte av tecken??

## #1 — phazer23, 2001-06-05T14:57Z

Har i dag ett forum där tecken skall bytas använder denna koden för det 

```
strPoetry = RecSet("annonstext")

'Replace all vbCrLf with <BR>s
strPoetry = Replace(strPoetry, vbCrLf, "<BR>")

'Replace all spaces with &nbsp;
strPoetry = Replace(strPoetry, " ", "&nbsp;")

'Output the formatted TEXTAREA value:
Response.Write strPoetry
```

Nu är det så att jag även vill tvinga fram radbrytning efter ett visst antal tecken .. Hittade denna koden här på wfforum 

```
function bryt(sText)
sLen = Len(sText)
If sLen > 200 then
Response.Write Left(sText, 200) & "<br>" & Right(sText, sLen - 200)
Else
Response.Write sText
End If
End Function

myText = Texten du vill bryta...
arrText = split(myText, " ")
countText = uBound(arrText) + 1
X = 0
Do Until X = countText
Response.Write bryt(arrText(X)) & " "
X = X + 1
Loop
```

Finns det nån som kan hjälpa mig att kombinera dom två???

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

## #2 — Wiberg, 2001-06-05T15:26Z

Använd den här koden istället. Exempel:

> Strang = RecSet("text")
> theArr= Split(strang, " ")
> maxLangd= 26
> i=0
> while i\<= uBound(theArr)
> If len(theArr(i)) \> maxLangd then
> j=0
> while j\<(len(theArr(i))/maxLangd)
> splittOrd=splittOrd & mid(theArr(i),(1+j\*maxLangd),maxLangd) &" "
> j=j+1
> wend
> theArr(i)=splittOrd
> End If
> nyStrang=nystrang & theArr(i) &" "
> i=i+1
> wend
> nyStrang=Replace(nyStrang,vbCrlf,"\<br\>")

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9884-radbrytning-och-byte-av-tecken