Pulire le stringhe da word
Ci sarà mai capitato di dover mettere pulire il testo dal codice HTML.
Nulla di più semplice se ci facciamo aiutare dalle espressioni regolari.
Ecco il codice.
function replace_string(strOriginalString, strPattern,strReplace,varIgnoreCase)
‘ Function matches pattern, returns true or false
‘ varIgnoreCase must be TRUE (match is case insensitive) or FALSE (match is case sensitive)
dim objRegExp set objRegExp = new RegExp
with objRegExp
.Pattern = strPattern
.IgnoreCase = varIgnoreCase
.Global = True
end with
replace_string = objRegExp.replace(strOriginalString,strReplace)
set objRegExp = nothing
end function
Per qualiasi dubbio o perplessità …. commentate.
replace_string(”STRINGA”, “<[/!]*?[^<>]*?>”,”", True)







































