RegExp e ASP

[lelo]

Ho cerato in giro ma una questione forse così semplice nn l'ha trattata nessuno!

Fate conto che vado d'accordo + con mia madre ke con le RegExp

Vorrei che una parola come "contro" (scritto in ogni maniera possibile, tipo Contro, CONTRO, COntRo, ...) venisse sostiruita con "vs".
Il problema è quando incontra parole come "incontro" oppure "controllo", nelle quali NON deve effetture alcuna modifica!

avevo pensato a mettere ^ davanti al contro...ma nn effettua alcuna modifica.

In questo modo:

Set changvs = New RegExp  				 
changvs.Pattern = "contro"				
changvs.Global = True
changvs.IgnoreCase = True											
strtemp = changvs.Replace(strtemp, "vs")

ma sostituisce tutto "contro"
incontro -> invs

[Sypher]

edito che mesà che ho detto na castroneria

[lelo]

?????
Kè hai detto????
:master:

[lelo]

nessuno mi sa dare qualche aiutino????

[Roby_72]

Set changvs = New RegExp  				 
changvs.Pattern = "contro"				
changvs.Global = True
changvs.IgnoreCase = True											
strtemp = changvs.Replace(" "& strtemp &" ", "vs")

E' solo una ipotesi.

[lelo]

Secondo me nn va bene xkè se Contro è contornato da punteggiatura non sostituisce contro con vs

[Roby_72]

Ok ma devi definirgli in quale caso sostituire ed in quali no altrimenti come fa a saperlo?

Roby

[lelo]

ma nel tuop esempio non gli hai per caso detto: se trovi " contro " (nota gli spazi!) sostitisci con "vs".
Secondo te dovrei fare una cosa del tipo:

strtemp = changvs.Replace(" "& strtemp &".", "vs")
strtemp = changvs.Replace(" "& strtemp &",", "vs")
strtemp = changvs.Replace(" "& strtemp &";", "vs")
strtemp = changvs.Replace(" "& strtemp &":", "vs")
etc????

ho scritto un esempio banale, cioè secondo te dovrei per ogni caso scrivere come comportarsi???
ma se c'è una cosa del tipo:
1contro1 come faccio a farlo sostituire a 1vs1???

[willybit]

Ciao a tutti,

per una cosa così credo tu debba fare un ciclo per ogni corrispondenza trovata... tipo così

strtemp = "incontro di calcio 5contro5, Contro tutti e contro..."
Response.Write strtemp & "
"

Set changvs = New RegExp  				 
changvs.Pattern = "[^a-z]contro[^\a-z]"
changvs.Global = True
changvs.IgnoreCase = True											
set ris = changvs.Execute(strtemp)
inizio=1
For Each rr in ris
  fine = rr.FirstIndex-inizio+1
  strtemp2 = strtemp2 & Mid(strtemp,inizio,fine) & Replace(LCase(rr.value),"contro","vs")
  inizio = rr.FirstIndex+Len(rr.value)+1
Next
strtemp2 = strtemp2 & Mid(strtemp,inizio)
Response.Write strtemp2