20-11-2003, 13:47
|
#116
|
Bannato
Iscritto dal: Jan 2001
Messaggi: 1976
|
beh,sefaiachicel'hapiùcorto:
Codice:
Function f_arcobaleno(a$) As String
c$ = "red orangeyellowgreen blue "
For i% = 1 To Len(a$)
f_arcobaleno = f_arcobaleno + "[ccolor=" + Trim$(Mid$(c$, (i% Mod 5) * 6 + 1, 6)) + "]" + Mid$(a$, i%, 1) + "[/ccolor]"
Next i%
End Function
Ultima modifica di a2000 : 21-11-2003 alle 10:08.
|
|
|