replace insensitive

[KLINKO]

devo fare un semplice REPLACE ma insensitive

come si fa con asp?

Replace(strCONTENUTO,strPAROLAVECCHIA,strPAROLANUO VA)

[DarioN1]

cosa intendi per insensitive ???

Se intendi non sensibile a maiuscole/minuscole fai così :

Replace(UCase(strCONTENUTO),UCase(strPAROLAVECCHIA ),UCase(strPAROLANUOVA))

[KLINKO]

si indendo quello, cosi facendo non rimane tutto maiuscolo?

[willybit]

Ciao a tutti,

usa il replace delle regular expressions
ti faccio un esempio

set re = Server.CreateObject("VBScript.RegExp")
re.Pattern = "ciao"
re.Global=true
re.IgnoreCase=true
re.MultiLine=true

stringa = "Ciao ciao questa stringa ti saluta con cIaO"
Response.Write re.Replace(stringa,"buongiorno")

[KLINKO]

sono riuscito a costruire la funzione

solo che interviene oltre misura.. cioè sostituisce anche occorrenze dentro altri termini
ad esempio per la parola casa mi sostituisce anche le altre parole che contengono casa

casa

casale

casaletto

[santino83_11_04]

prova a mettere nel pattern gli spazi chissà se funge

[willybit]

più che gli spazi esiste lo "inizio o fine parola" che è \b

set re = Server.CreateObject("VBScript.RegExp")
re.Pattern = "\bciao\b"
re.Global=true
re.IgnoreCase=true
re.MultiLine=true

stringa = "Ciao ciao questa stringa ti saluta con cIaO. ciaociao non lo cambia"
Response.Write re.Replace(stringa,"buongiorno")

[santino83_11_04]

mi deciderò mai un giorno a studiare queste dannate regexp? beh con willybit il futuro è piu roseo

[KLINKO]

Parola = RsHiperLink("key")
LinkR = RsHiperLink("LinkPagina")

Set re = Server.CreateObject("VBScript.RegExp")
re.Pattern = "\b" & Parola & "\b"
re.Global=true
re.IgnoreCase=true
re.MultiLine=true

strContenuto = re.Replace(strContenuto,"" & Parola & "")

prendo il termine da un recordset solo che cosi mi trova anche occorrenze in situazioni tipo

stringa= "Ciao ciao questa stringa ti saluta con cIaO. ciaociao non lo cambia"
Response.Write re.Replace(stringa,"buongiorno")

[willybit]

quindi bisogna fare il replace delle occorrenze che si trovano solo fuori dai tag?

Function ReplaceTestoHTML(html,trova,sostituisci)
	set re = new RegExp
	re.Pattern = "((^|>)[^<>]*?)(\b" & trova & "\b)"
	re.Global=true
	re.Multiline=true
	re.IgnoreCase=true
	html2 = html
	do while re.Test(html2)
		html2 = re.Replace(html2,"$1#§#")
	loop
	html2 = Replace(html2,"#§#",sostituisci)
	ReplaceTestoHTML = html2
End Function


stringa= "Ciao ciao questa stringa ti saluta con cIaO. ciaociao non lo cambia</a>"
Response.Write stringa & "<hr>" & vbCrLf & ReplaceTestoHTML(stringa,"ciao","buongiorno")