---
title: "Ersätta flera vbCrLf"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/177694-ersätta-flera-vbcrlf"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "leniz"
published: "2009-03-27T06:48:26.000Z"
updated: "2009-03-27T12:09:50.000Z"
replies: 12
views: 807
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/177694-ersätta-flera-vbcrlf"
---

# Ersätta flera vbCrLf

## #1 — leniz, 2009-03-27T06:48Z

Hej!

Jag undrar om det finns något enkelt sätt att modifiera den här koden så att

vbCrLf = radbrytning
vbCrLf vbCrLf = nytt stycke
vbCrLf vbCrLf vbCrLf (eller ännu fler) = nytt stycke

Jag vill alltså inte att man ska kunna få större mellanrum i sin text än nytt stycke.

\<script language=VBScript runat=Server\> 
Function Radbryt(rfix) 
  
rfix = Replace(rfix,vbCrLf, "\<br\>")
Radbryt = rfix 
  
End Function
\</script\>

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

## #2 — voigtann1, 2009-03-27T07:00Z

Med nytt stycke så menar du att det skall vara ett nytt \<p\> element då eller?

Eller är det bara två \<br\> du vill ha för nytt stycke?

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

## #3 — leniz, 2009-03-27T07:01Z

Hej hej! Jag skulle vilja ha 2 st \<br\> om det är 2 eller fler vbCrLf i koden

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

## #4 — voigtann1, 2009-03-27T07:06Z

```
Function Radbryt(rfix)
	With New RegExp
		.Global = True
		.Pattern = vbCrLf & "{2,}"
		rfix= .Replace("" & rfix, "<br><br>")
		Radbryt  = Replace(rfix,vbCrLf, "<br>")
	End With
End Function
```

något sådant med RegExp.

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

## #5 — leniz, 2009-03-27T07:15Z

Hm... vet inte om det är jag som lagt in det fel på något vis men jag får exakt samma resultat som innan...

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

## #6 — voigtann1, 2009-03-27T07:51Z

prova byt uttrycket till: "\[\\r\\n\]{3,}" istället för vbCrLf & "{2,}"

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

## #7 — leniz, 2009-03-27T09:49Z

Tyvärr hände inget då heller...

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

## #8 — voigtann1, 2009-03-27T09:52Z

Det är märkligt, jag kör exakt samma kod på:
<http://voigt.se/sandbox/wf/newline/>

och vad jag ser så är det inga problem.

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

## #9 — leniz, 2009-03-27T11:15Z

Oj, vad konstigt. Visst menade du så här:
\<script language=VBScript runat=Server\> 
Function Radbryt(rfix)
	With New RegExp
		.Global = True
		.Pattern = "\[\\r\\n\]{3,}" 
		rfix= .Replace("" & rfix, "\<br\>\<br\>")
		Radbryt  = Replace(rfix,vbCrLf, "\<br\>")
	End With
End Function
\</script\>

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

## #10 — voigtann1, 2009-03-27T11:37Z

Koden jag kör exakt är:

```
<form action="index.asp" method="post">
	<textarea name="fubar"></textarea>
	<input type="submit" />
</form>
<%
Function Radbryt(Byval rfix)
	With New RegExp
		.Global = True
		.Pattern = "[\n\r]{3,}"
		rfix = .Replace("" & rfix, "<br><br>")
		Radbryt = Replace(rfix,vbCrLf, "<br>")
	End With
End Function

If Len(Request.Form("fubar")) Then Response.Write Radbryt(Request.Form("fubar"))
%>
```

\<script language\> fungera väl sådär vad jag vet...

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

## #11 — leniz, 2009-03-27T11:56Z

Den vill bara inte, jag får nog ge upp :-)
Stort tack till dig för dina försök @-\>---

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

## #12 — voigtann1, 2009-03-27T12:03Z

kör du någon annan funktion innan dess, har ser indatan ut i funktionen som inte fungera? Du kanske kör någon WYSIWYG-javascript som rendera ut HTML osv?

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

## #13 — @nders, 2009-03-27T12:09Z

Jag sätter en hundring på att det beror på att webbplatsen körs på något annat än Windows/IIS.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/177694-ersätta-flera-vbcrlf