"> " i början av varje rad?

Response.write "> " & replace(foo, vbcrlf, vbcrlf & "> ")

Litet tips: Är det inte lite trevligare att köra med olika färger? När det blir många svar brukar det bli så himla många '>' plus att det är lite uttjatat. Kanske köra varannat svar i lite skiftande färg, och det allra senaste i en egen färg?

Tack för svar!

Det där med att byta färg är intressant.

Om foo innehåller följande:

Hej själv!

Hejdå!

> Hejsan!
> 
> Hur är det idag?
> 
> Anders
>>Tjenare

Hur gör man för att denna skall bli:

Hej själv!

Hejdå!

<font color="gray">> Hejsan!</font>
<font color="gray">> </font>
<font color="gray">> Hur är det idag?</font>
<font color="gray">> </font>
<font color="gray">> Anders</font>
<font color="gray">>>Tjenare</font>

Tack på förhand!

Med lite regexp:

foo = _
	"Hej själv!" & vbCrLf & _
	vbCrLf & _
	"Hejdå!" & vbCrLf & _
	vbCrLf & _
	"> Hejsan!" & vbCrLf & _
	"> " & vbCrLf & _
	"> Hur är det idag?" & vbCrLf & _
	"> " & vbCrLf & _
	"> Anders" & vbCrLf & _
	">>Tjenare"

With New RegExp
	.Global = True
	.Pattern = "(^|\n)(>.*)(\r|$)"
	foo = .Replace(foo, "$1<span class=""replymessage"">$2</span>$3")
End With

Hej Erik,

Tack för ditt svar.

Problemet blir om någon väljer att skriva ett inlägg efter "citaten" istället för före.

> Hejsan!
> 
> Hur är det idag?
> 
> Anders
>>Tjenare
Hej själv!

Hejdå!

...resulterar i att allt blir grått. Hur kan man justera regexp:en för att det ska fungera?

Hejsan!

Testa

with new regexp
  .pattern = "((?:^|\n)>(?:\n(?=>)|[^\n])*)"
  .replace(foo, "<font color=""gray"">$1</font>")
end with