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
Trådstart#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?