Semplice verifica su campo note

[pegaso22]

Ciao a tutti,
come posso fare un replace in un campo note quando trova 5 o più numeri consecutivi di fila?

Ad esempio:

Io mi chiamo Luca 12345 e vivo in Sardegna.
deve sostituire con:
Io mi chiamo Luca ***** e vivo in Sardegna.

Invece
Io mi chiamo Luca 1234 e vivo in Sardegna.
resta
Io mi chiamo Luca 1234 e vivo in Sardegna.

Come posso fare?

Fatemi sapere.
Grazie mille.

[pegaso22]

[br1]

esempio:

<%
Function ReplaceAllByExpression(StringToExtract, MatchPattern, ReplacementText)
    Dim regEx, CurrentMatch, CurrentMatches
    Set regEx = New RegExp
    regEx.Pattern = MatchPattern
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.MultiLine = True
    StringToExtract = regEx.Replace(StringToExtract, ReplacementText)
    Set regEx = Nothing
    ReplaceAllByExpression = StringToExtract
End Function


originale = "Io mi chiamo Luca 12345 e vivo in Sardegna."
cerca = "[0-9]{5,}"
metti = "*****"
risultato = ReplaceAllByExpression(originale, cerca, metti)
response.write risultato
%>

In ogni caso mette 5 asterischi, se vuoi invece un numero di asterischi pari al numero di caratteri sostituiti devi adottare un altro approccio

[pegaso22]

Grazie mille per la risposta!!
Allora, diciamo che per il numerico può andarmi bene anche così.
In sostanza devo evitare che in un campo note venga scritto un numero di telefono, se elimino 5 numeri di fila sostituendoli con asterisco mi va più che bene.

Ora mi restano altre 2 sostituzioni simili che sono:
- eliminare tutti i siti internet presenti nel testo (ad eccezione di www.miosito.it)
- eliminare tutte le email inserite.

Per questi 2 casi che soluzioni potresti darmi?

[pegaso22]

[br1]

Prova a cercare qui: http://www.regxlib.com/ con le chiavi mail, link, url

[pegaso22]

ok, grazie mille!!