Eliminare parte di stringa tra < e >

[domenico.nardo]

Buongiorno a tutti, ho cercato nel forum se ci fosse qualcosa di simile al mio problema, ma non ho trovato nulla.

In pratica ho la necessita una volta recuperato un valore di eliminare da questo valore il contenuto che si trova in questi due caratteri "<" e ">"

In pratica ricavo questa variabile da un file di testo (con un array) ma sorvoliamo questi dettagli visto che questo funziona alla grande.

Il problema è che una variabile (var_1) mi arriva così:

<span color="#ccc">FORZA</span><span color="#990000">Roma</span>

Siccome devo prendere solamente FORZA Roma vorrei eliminare dalla variabile (magari con un replace) tutto quello che si trova tra "<" e ">"

Qualcuno ha qualche dritta?

[Roby_72]

Serve una espressione regolare per togliere i tag HTML.
Cerca nel forum, è stata postata poco tempo fa.

Roby

[domenico.nardo]

Ciao Roby, L'ho trovata e la sto testando, ma non mi funziona un c... niente

questo è il codice che sto provando:

pattern = "<[^>]*>"
Set regEx = New RegExp   ' Create a regular expression.
regEx.Pattern = pattern   ' Set pattern.
regEx.IgnoreCase = True   ' Set case insensitivity.
regEx.Global = True   ' Set global applicability.				
risultato = regEx.Replace(stringa, "")

C'è per caso qualcosa che non va?

[Roby_72]

Vediamo come la applichi.

Roby

[domenico.nardo]

Vediamo come la applichi. Roby

In che senso?

[domenico.nardo]

Secondo me c'è un problema nel pattern

Credo che questo indichi i valori compresi tra < e >

pattern = "<[^>]*>"


Mah! :master:

[Roby_72]

Originariamente inviato da domenico.nardo
In che senso?

Nel senso che hai buttato lì del codice ma non l'hai applicato né impostato come funzione.

Roby

[domenico.nardo]

O cacchio, forse ho capito, dovrei dare la function?
Ora ci provo e ti faccio sapere

[domenico.nardo]

L'ho provata e mi da errore alla linea dove inizio la function

questo è il codice

function categoria_articolo(categoria_articolo_1)
				pattern = "<[^>]+"
				Set regEx = New RegExp   ' Create a regular expression.
				regEx.Pattern = pattern   ' Set pattern.
				regEx.IgnoreCase = True   ' Set case insensitivity.
				regEx.Global = True   ' Set global applicability.				
				categoria_articolo = regEx.Replace(categoria_articolo_1,"")
				set regEx = nothing
			End function

mi restituisce questo errore:

Microsoft VBScript compilation  error '800a03ea'

Syntax error

/carica_csv.asp, line 36

function categoria_articolo(categoria_articolo_1)

Che significa?

[Roby_72]

Mah. Possiamo vedere cosa hai scritto o è un segreto?

Roby