---
title: "regexp cencur"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/64078-regexp-cencur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Arne"
published: "2003-01-07T17:58:13.000Z"
updated: "2003-01-07T19:22:19.000Z"
replies: 4
views: 220
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/64078-regexp-cencur"
---

# regexp cencur

## #1 — Arne, 2003-01-07T17:58Z

Vad göra så inte ord med å, ä, ö inte slipper igenom?

Nuvarande plockar inte bort ord som jävlar och kåt.....

```
Function cencur(mess)
	Set objRegExp = New regexp
	objRegExp.Global = true
	objRegExp.IgnoreCase = true
	mess = Server.HTMLEncode(mess)
	objRegExp.Pattern = "(skitful|asful|kåt|jävlar)"
	mess = objRegExp.Replace(mess,"<I>*censur*</i>")
	cencur = mess
End Function
```

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

## #2 — voigtann1, 2003-01-07T18:00Z

eftersom du kör

```
mess = Server.HTMLEncode(mess)
```

så blir dina å ä ö fel..

kör istället:

```
Function cencur(mess) 
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 
mess = Server.HTMLEncode(mess) 

'Fixar åäö
mess = Replace(mess, "&amp;#229;", "å")
mess = Replace(mess, "&amp;#197;", "Å")
mess = Replace(mess, "&amp;#228;", "ä")
mess = Replace(mess, "&amp;#196;", "Ä")
mess = Replace(mess, "&amp;#246;", "ö")
mess = Replace(mess, "&amp;#214;", "Ö")

objRegExp.Pattern = "(skitful|asful|kåt|jävlar)" 
mess = objRegExp.Replace(mess,"<I>*censur*</i>") 
cencur = mess 
End Function
```

eller ta bort HTMLEncode

red. Fixat :e

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

## #3 — Peeer, 2003-01-07T18:07Z

voigtann1:s funktion ska nog se ut så här:

```
Function cencur(mess) 
Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 
mess = Server.HTMLEncode(mess) 

'Fixar åäö
mess = Replace(mess, "&amp;#229;", "å")
mess = Replace(mess, "&amp;#197;", "Å")
mess = Replace(mess, "&amp;#228;", "ä")
mess = Replace(mess, "&amp;#196;", "Ä")
mess = Replace(mess, "&amp;#246;", "ö")
mess = Replace(mess, "&amp;#214;", "Ö")

objRegExp.Pattern = "(skitful|asful|kåt|jävlar)" 
mess = objRegExp.Replace(mess,"<I>*censur*</i>") 
cencur = mess 
End Function
```

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

## #4 — voigtann1, 2003-01-07T18:07Z

aj! glömde bort wF konteverten :e jeje

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

## #5 — Arne, 2003-01-07T19:22Z

Tackar

Man tackar för hjälpen......

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/64078-regexp-cencur