15/02/2007, 08:55
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
| Re: Extraer palabras de un texto
Algo rápido:
Código:
<%
TextoOriginal = "Este es un <b>texto</b> de prueba <b>capturado</b> para probar un sencillo <b>algoritmo</b> que extrae las palabras encerradas entre <b>y</b>"
Texto = TextoOriginal
Dim Vector()
Cnt=0
Response.Write ("Texto Original:")&Server.HTMLEncode(TextoOriginal) & "<br>"
While InStr(Texto,"<b>")>0
Redim preserve Vector(Cnt)
Vector(Cnt) = MID(Texto,InStr(Texto,"<b>")+3, (InStr(Texto,"</b>")-InStr(Texto,"<b>"))-3)
Texto = Replace(Texto, "<b>", "|", 1, 1)
Texto = Replace(Texto, "</b>", "|", 1, 1)
Cnt=Cnt+1
Wend
Response.Write ("Palabras: <br>")
For i=0 to UBound(Vector)
Response.Write Vector(i) & "<br>"
Next
%>
|