controllo testo miuscolo e minuscolo

[roberto78]

Ho ripreso questa funzione ma ho il problema che è case sensitive.
Portare tutto in minuscolo o maiuscolo non è molto utike perchè modificherebbe eccessivamente il testo.

Come posso ovviare al problema ?

Grazie mille!

-------------------------------
<%
Function badWords(sText)
'alcune parole poco consone, potete aggiungerne quante ne volete
words = Array("cretino","stupido","imbecille","porcapalett a")
stringa = sText
For k = LBound(words) To UBound(words)
stringa = Replace(stringa, words(k), String(Len(words(k)),"*"))
Next
badWords = stringa
End Function
%>

X richiamare la funzione -->

<%
Response.write badWords(Request.Form("NOME_CAMPO_FORM"))
%>
----------------------

[albis]

stringa = Replace(stringa, words(k), String(Len(words(k)),"*"),1,-1,1)

però penso che risolvi comunque poco
perchè basta cambiare una lettera con una altra
es al posto di z ci metti 2
e la parolaccia si può scrivere comunque

[Nunkij]

Secondo la documentazione microsoft la replace può essere fatta in modo case insensitive aggiungendo un parametro. Io non ho mai provato quindi non so se funziona o è un trucco pubblicitario. :P

Ti consiglio di andare a cercare nella msdn di visual basic (script) come funziona per bene la replace!