12/02/2003, 15:55
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Monterrey
Mensajes: 2.454
Antigüedad: 23 años, 3 meses Puntos: 5 | |
| Bueno, para solucionar la cantidad de coincidencias que muestra, solo haz este cambio:
<%
Function Cambia(ElTexto,LaBusqueda)
Dim Expresion, Patron, Cuenta
Set Expresion= New RegExp
Expresion.Pattern = ("((\S+\s+){0,5})("&LaBusqueda&"[\.,:;]*)((\s+\S+){0,5})")
Expresion.IgnoreCase = True
Expresion.Global = True
Set Matches=Expresion.Execute(ElTexto)
Cuenta=1
For Each Match in Matches
If Cuenta <3 Then 'OJO: Aqui puedes cambiar el valor para decidir cuantas coincidencias muestre
ElResultado = ElResultado& "..."& Match.Value & "... <br>"
End If
Cuenta=Cuenta+1
Next
Cambia = ElResultado
End Function
Dim Texto
Texto="El Tren: Muchos perros han caminado por este sendero triste y desolado, donde el tren pasa todas las mañanas haciendo un ruido insoportable que despierta hasta a don José, el simple sonido de el tren"
Response.write (Cambia(Texto,"tren"))
%>
Nota que tal como lo estoy poniendo, solo muestra 2 coincidencias
__________________
Manoloweb |