reg exp med ' kommentar

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= "<% response.write "hej" 'test %>"

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

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

?

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

provat att ha istället för " nu istället.

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

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

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(""hej" "hej" "hej" 'test")

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

  Set objRegExp = New RegExp 
  objRegExp.Pattern = 	"(?:'([\w\W]*)|"([\w\W]*?)")"
  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

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