Problema con RegExp

[Adler]

Hola

El problemas me lo provoca los caracteres acentuados.

Me explico

Código HTML:

marca = Trim(Request.QueryString("clave")) 'recoge valor del form, el valor está codificado con escape

IF marca = "" then
%>
<%=unescape(rs.Fields("txt"))%>
<%
ELSE
array_cadena  = Split(marca," ")
Function ResaltaParam(base)
strOriginal = unescape(rs.Fields("txt")) 'descodifico el campo BD
For i=0 to UBound(array_cadena)
paraBusq = "\b("&array_cadena(i)&")\b"
Dim objRegExp 
Set objRegExp = new RegExp
With objRegExp
.Pattern = paraBusq
.IgnoreCase = True
.Global = True
End With
base = objRegExp.replace(strOriginal, "<span class=""BC"&i&""">$1</span>")
ResaltaParam = base
Set objRegExp = nothing
Next 'i
End Function
%>
<%=ResaltaParam(strOriginal)%>
<%
END IF
%> 

Bien, todo funciona hasta que ha de encontrar la cadena "sí" recogida desde el form "s%ED".
En este caso se marca, por ejemplo, la cadena "así", aunque en la BD aparece como "as%ED".
Lo que me dice que el problema está en la expresión que estoy usando \b("&array_cadena(i)&")\b

¿Qué he de hacer para que si busco en la BD la palabra "ón" me encuentre solamente "ón" y no "camión"?

Gracias

[Shiryu_Libra]

buena pregunta Adler

solamente lo que sea identico

texto = '" & textoabuscar & "'

que termine con la palabra

texto LIKE '%" & textoabuscar & "'

que empiece con la palabra

texto LIKE '" & textoabuscar & "%'

en cualquier parte que contenga la palabra

texto LIKE '%" & textoabuscar & "%'

cual de estas combinaciones sera la que te funcione a tus propositos???

ahora podrias tambien utilizar Escape(palabra) dentro de la misma funcion de busqueda para que te codifique los acentos, si en dado caso no encuentre palabras por este suceso

pero en estos casos son pruebas y pruebas

[Adler]

Gracias Shiryu_Libra por tu respuesta, pero creo, que no me expliqué bien

El asunto se trata de un buscador

1 Tengo el form para buscar en BD
2 Listo los resultados de la búsqueda
3 Abro uno de los registros. Por la Query le he paso su Id y la cadena que se introdujo en el form, para así resaltar en el documento las palabras que coincidan con la cadena.

Por ejemplo

Busco la cadena (qué)
Encuentra 10 registros
Abro uno de los registros y en el documento se resalta la palabra (qué) tantas veces como aparezca. El problema es que además de la palabra (qué) también se resalta la palabra (porqué).

De ahí que el problema esté en la expresión \b("&array_cadena(i)&")\b

La expresión dice que ha de haber un espacio a ambos lados de la palabra, para que sea verdadera. Pero aún así, resalta (porqué)

¿Qué he de modificar en expresión regular para que no sea verdadero (porqué)?

Gracias

[Shiryu_Libra]

con razon

bueno en ese sentido lo que pudieras realizar es lo siguiente

original=request.form("txt")
modificado="<strong>" & original & "</strong>"

tu codigo de busqueda, y cuando tengas resultados cambias el despliegue por esta parte

temp=replace(RS.Fields.Item("campo").value, original, resaltado)
response.write temp

intentalo y haber que tal

[Adler]

Lo que me comentas no me es válido

temp=replace(RS.Fields.Item("campo").value, original, resaltado)
response.write temp

puesto que necesito que ignore mayúsculas y minúsculas. Además necesito hacer un ciclo para buscar todas las palabras que me llegan por la query, y no he conseguido hacer que funciones con el replace. Lo he logrado con un select, pero de esa forma sería imposible expresar todos los casos.

Así que finalmente he decidido dejarlo tal y como está. De esta forma parece haber menos contras que pros.

Te reitero mi agradecimiento por tu interés y ayuda

[Shiryu_Libra]

okas