eliminare i tag da una stringa eccetto alcuni

[diablobox]

ciao

per eliminare i tag di una stringa senza togliere i
e i

ed altri tag come potrei fare?

per elinare i tag utilizzo la funzione:

Function RemoveHtmlTag(txt)
Set objRE = createObject("VBScript.RegExp")
objRE.Pattern = "\<*[^\>]*\>"
objRE.Global = true
objRE.IgnoreCase = true
RemoveHtmlTag = objRE.Replace(txt,"")
End Function

come faccio a dirgli di ignorare alcuni tag e di non eliminarli?

Grazie

[willybit]

Ciao diablobox,

io sostituirei i tag che ti interessano con qualcosaltro, poi toglierei tutti i tag rimanenti e in fine risostituirei i tag di prima
tipo così

stringa = RemoveHtmlTag(Replace(Replace(Replace(stringa,"
","[br]"),"

","[p]"),"</p>","[/p]"))

[diablobox]

ciao

ottima idea...
provo

ciao

[willybit]

beh prima mi son dimenticato di farlo nell'esempio... alla fine bisogna risostiuire i tag
immagino che si capisse comunque... metto l'esempio completo

stringa =  RemoveHtmlTag(Replace(Replace(Replace(st
ringa,"
","[br]"),"

","[p]"),"</p>","[/p]"))
stringa = Replace(Replace(Replace(stringa,"[br]","
"),"[p]","

"),"[/p]","</p>")

[diablobox]

ciao

per adesso funziona.

vorrei pero implementare altri controlli sulla variabile

sai mica dove si può trovare un po di documentazione in italiano sulle
espressioni, regolari

???

ciao

e grazie

[willybit]

in italiano... qui in msdn trovi la sintassi spiegata in italiano. Si riferisce a JScript .NET ma è la stessa cosa