recuperare parola in una stringa

[imente]

si usano le regular expression

ma una ricerchina no eh?


cmq

Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "\[([^\]]*)\]"
dim testo, matches, ricerca 
testo = "questa è una [stringa] di prova"
if objRegExp.Test(testo) then
	set Matches = objRegExp.Execute(testo)
	ricerca = Matches(0).SubMatches(0)
end if
set Matches = Nothing
set objRegExp = Nothing

response.write ricerca