Foros del Web » Programando para Internet » ASP Clásico »

busco palabras encerradas entre caracteres.. ayuda

Estas en el tema de busco palabras encerradas entre caracteres.. ayuda en el foro de ASP Clásico en Foros del Web. Resulta que tengo un texto el cual encierra una serie de palabras entre los simbolos < y >. Lo que quiero es recuperar cada una ...
  #1 (permalink)  
Antiguo 19/06/2002, 05:14
 
Fecha de Ingreso: junio-2002
Mensajes: 2
Antigüedad: 22 años, 10 meses
Puntos: 0
busco palabras encerradas entre caracteres.. ayuda

Resulta que tengo un texto el cual encierra una serie de palabras entre los simbolos < y >.
Lo que quiero es recuperar cada una de las palabras (me da igual si es en un array...)

Lo importante es conocer un algoritmo que me seleccione namás la palabras.

Espero que alguien tenga la solución!
Gracias!

  #2 (permalink)  
Antiguo 19/06/2002, 06:50
Avatar de OMiCRoM  
Fecha de Ingreso: febrero-2002
Mensajes: 101
Antigüedad: 23 años, 3 meses
Puntos: 0
Re: busco palabras encerradas entre caracteres.. ayuda

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.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:28.