busco palabras encerradas entre caracteres.. ayuda

[OMiCRoM]

Me he molestado en confeccionarte esto:

Sub separa (byval palabra)
Dim i, comienzo,aux

comienzo=false
i=0
aux=""
do while (i<len(palabra))
i=i+1
if (mid(palabra,i,1)=">") then
response.write aux&"<BR>"
aux=""
comienzo=false
End if
if comienzo then
aux=aux&mid(palabra,i,1)
End if
if (mid(palabra,i,1)="<") then
comienzo=true
End if
Loop
End sub

Como parametro pásale la cadena de texto.

Una aclaración es que te mostrará sólo aquellas palabras que estén entre "<" y ">". El resto se deshecharán.
Si en vez de mostrarlas, quieres guardarlas en un array solo tienes que sustituir la linea

response.write aux&"<BR>"

por

indice=indice+1
miarray(indice)=Aux

y por supuesto, crearte un indice que lleve la cuenta de los elementos que metes en el array.


Un salu2.