---
title: "Funktion som gör radbrytning efter vissta antal ord"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/166987-funktion-som-gör-radbrytning-efter-vissta-antal-ord"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2007-12-05T15:43:42.000Z"
updated: "2007-12-07T11:45:20.000Z"
replies: 3
views: 440
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/166987-funktion-som-gör-radbrytning-efter-vissta-antal-ord"
---

# Funktion som gör radbrytning efter vissta antal ord

## #1 — devotion, 2007-12-05T15:43Z

Hepp!   :) 

Jag har följande funktion som fungerar finfint...

```
function ReplaceBRTag(sText)

	dim re
	
	set re = new regexp
	re.global = true
	re.ignorecase = true
	re.pattern = "<br>"
	sText = re.replace(sText, vbcrlf & "12")
	
	ReplaceBRTag=sText
end function
```

Hur kompletterar man den med att bryta strängen efter 60 tecken samt att den enbart bryter efter hela ord?

Mvh
Henrik

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

## #2 — devotion, 2007-12-05T20:45Z

Hmmm...

Hittade den här när jag sökte på wf...
<http://www.webforum.nu/showthread.php?p=995470#post995470>

Men hur får jag ihop båda....

Red/

Sen fanns det lite här också...
<http://www.webforum.nu/showthread.php?p=1081246#post1081246>

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

## #3 — Peter S, 2007-12-07T11:42Z

```
function myFunc(myText)
 MAGIC = 60
 set re = new regexp
 re.global = true
 re.ignorecase = true
 re.pattern = "<br>"
 myText = re.replace(myText, vbcrlf & "12")
 re.pattern = "\r\n[^ ]+|[^\r\n ]+"
 set m = re.execute(myText)
 re.pattern = "^" & vbcrlf & "12$"
 r = 0
 str = "12"
 for each q in m
  if 3 + r + len(q) > MAGIC then
   r = 0
   str = str & vbcrlf & "12"
  elseif re.test(q) then
   r = 0
  end if
  str = str & q & " "
  r = r + 1 + len(q)
 next
 myFunc = str
end function
```

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

## #4 — devotion, 2007-12-07T11:45Z

Aha!  ;)   

Funkish...  (y)

Mvh
Henrik

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/166987-funktion-som-gör-radbrytning-efter-vissta-antal-ord