objRegExp.Pattern ... kanske?

1 svar · 197 visningar · startad av voigtann1 2 apr. 2002

voigtann1Medlem sedan juni 20019 519 inlägg

Trådstart2 apr. 2002 14:11#1

Jag har en fråga om man kunde typ ha en kod som gör så att varanan bokstav blir röd och andra blå tex.. hur skulle man kunna göra detta? med objRegExp.Pattern eller?

PaceMedlem sedan juni 20019 024 inlägg

2 apr. 2002 14:17#2

Function ColorCode(sText)
	Dim I, strCurrChar, strNew

	For I = 1 To Len(sText)
		strCurrChar = Mid(sText, I, 1)
		If (I Mod 2) = 0 Then
			strColor = "blue"
		Else
			strColor = "red"
		End If
		strNew = strNew & "<FONT COLOR=""" & strColor & """>" & strCurrChar & "</FONT>"
	Next

	ColorCode = strNew
End Function