Extraer palabras de un texto

[tammander]

Tienes razon, no me di cuenta.

Bueno, mira esto a ver si te vale. La idea es la misma: recursividad

Código:

texto = "Esto es una prueba de <b>valores</b> continuos que estan concatenados <b>uno</b> a <b>uno</b>"
 
function extraeTodos(texto)
 Dim textox
  textox = texto
  te = instr(1, textox, "<b>", 1)
  if te <> 0 and te <> vbNull then
   texto1 = left(textox, te-1)
   tu = instr(1, textox, "</b>", 1)
   if tu <> 0 and tu <> vbNull then texto2 = mid(textox,tu+4)
   extraeTodos = extraeTodos(1, (texto1 & texto2))
  end if
end function
 
 
response.Write(extraeTodos(texto))

Un saludo