5 svar · 459 visningar · startad av voigtann1
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.