Accorciare i caratteri uguali

[dabbia]

Vorrei creare una function che controlla il testo inserito e se vede che c'è una parola con troppi (>10 esempio) caratteri uguali me la accorcia a 5.

Esempio:

Se trova il seguente testo:

Ciao come va? Non vedo l'ora di rivederti!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


Diventerà:

Ciao come va? Non vedo l'ora di rivederti!!!!!

[weppos]

Crea una funzione che ti controlli ogni singola leggera (o se vuoi porzione) e che confronti la lettera successiva con la precedente.

Se uguali tieni una variabile di conteggio e se tale variabile supera il limite posto taglia la stringa.

[dabbia]

Con Split vero?
Ma come faccio a far capire alla funzione split che deve considerare ogni singolo carattere, senza spazi (ovvero una parola)?

[willybit]

per queste cose secondo me la maniera più veloce è sfruttare le regular expression

stringa="Ciao come va? Boooooooooooo. Non vedo l'ora di rivederti!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
set re = new RegExp
re.Pattern="(.)\1{10,}"
re.Global=true
re.Multiline=true
Response.Write stringa & "
"
Response.Write re.Replace(stringa,"$1$1$1$1$1")

[dabbia]

Sei un grande!!!! Funziona alla perfezione!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Baol74]

sei un mago delle RegEx.... complimenti....

Spiegami una cosa, perchè usando (.){10,} non funziona ? l'espressione {10,} non dovrebbe quantificare la precedente?

E poi...il punto identifica tutti i caratteri tranne spazi,ritorno a capo ect...?

Hai una buona guida sulle re?

Grazie

[willybit]

Originariamente inviato da dabbia
Sei un grande!!!! Funziona alla perfezione!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

sono 1,89
la tua frase diventa così

Sei un grande!!!! Funziona alla perfezione!!!!!

[willybit]

Originariamente inviato da Baol74
sei un mago delle RegEx.... complimenti....

Spiegami una cosa, perchè usando (.){10,} non funziona ? l'espressione {10,} non dovrebbe quantificare la precedente?

(.){10,} così trova 10 o più caratteri che possono essere qualunque cosa tranne che "ritorno a capo"
il \1 è quello che trova tra parentesi, quindi un qualunque carattere, ed è quello che cerca per 10 o più ripetizioni...
marò! Mi spiego veramente da schifo

[Baol74]

ok, non avevo letto bene la richiesta....

grazie...

e per la guida?

[willybit]

dimenticavo un po' di link
MSDN Microsoft - RegExp VBScript
DevGuru - RegExp VBScript