---
title: "reg exp med ' kommentar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/140245-reg-exp-med-kommentar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2006-01-03T20:42:44.000Z"
updated: "2006-01-07T10:44:34.000Z"
replies: 5
views: 459
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/140245-reg-exp-med-kommentar"
---

# reg exp med ' kommentar

## #1 — voigtann1, 2006-01-03T20:42Z

Försöker få igång denna kod:

```
	objRE.Pattern = "^("([\w\W])"|'([\w\W]))$"
	strFound = objRE.Replace(strFound,"<span style='color:green'><i>$1</i></span>")
```

jag provar med strängen:

```
strText= "&lt;% response.write &quot;hej&quot; 'test %&gt;"
```

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

## #2 — Peter S, 2006-01-04T15:25Z

```
objRE.Global = True
objRE.Pattern = "(?:'([\w\W]*)$|&quot;([\w\W]*?)&quot;)"

objRE.Replace(strFound,"<span style='color:green'><i>$1$2</i></span>")
```

?

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

## #3 — voigtann1, 2006-01-04T20:51Z

krockar lite... när jag har mer än ' kommentarer så krockar hela koderna..

provat att ha istället för &quot; nu istället.

provar även att ändra om 'hej' träffar med så 'kommentar,"hej",'hej' skall bli grön färgat.

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

## #4 — Peter S, 2006-01-04T22:18Z

Kan du posta exempelinput som visar på problemet samt vad förväntat resultat är?

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

## #5 — SannyW, 2006-01-07T07:06Z

Inte riktigt rätt, problem kvarstår med 'kommentar då allt som kommer efter även blir grön. Men annars så funkar det att slänga inte text mellan citaten. Frågan som inte löstes, hur stänger man 'kommentar ?

```
Response.Write ColorText("&quot;hej&quot; &quot;hej&quot; &quot;hej&quot; 'test")

Function ColorText(str) 
Dim objRegExp,strText
  strText=str 

  Set objRegExp = New RegExp 
  objRegExp.Pattern = 	"(?:'([\w\W]*)|&quot;([\w\W]*?)&quot;)"
  objRegExp.IgnoreCase = True 
  objRegExp.Global = True 
  
  for each objMatch in objRegExp.Execute(strText)
    strText = Replace(strText,objMatch.Value,"<span style='color:green'><i>" & objMatch.Submatches(0) & "" & objMatch.Submatches(1) & "</i></span>")
  next 
  
  Set objRegExp = Nothing

  ColorText=strText
End Function
```

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

## #6 — voigtann1, 2006-01-07T10:44Z

löste det med att lägga \\n islutet då jag kör en ny rad för varje enterslag.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/140245-reg-exp-med-kommentar