Buscador Interno que reconozca palabras con ACENTOS

[Ramondi]

URGENTE!

Hola, estamos implementando un buscador interno ya sea con el api de google o Index server. El problema que tenemos es que al tener una página con alguna palabra con acento el buscador no la encuentra, a menos que busquemos todas las variantes de la palabra en cuestion.

Por ejemplo, una pagina que contenga Tecnología. Ponemos en el buscador Tecnologia y no la encuentra. Si ponemos Tecnologìa tampoco.

O sea, no es problema de la palabra que entramos en el campo de texto sino de las palabras acentuadas de las páginas web...

Estamos programando en ASP, pero lo que importa es el algorismo o la herramienta que nos pueda ayudar...
GRACIAS por adelantado!!

Ramondi

[Muzztein]

Convierte el texto que estas buscando si acentos , y al patron que buscas le haces lo mismo.

y luego comparas.

[Ramondi]

El problema es que los documentos que están colgados en la web son oficiales y no los puedo modificar (Tienen que estar correctamente escritos con sus acentos y demás en catalan). Además, no estoy hablando de un buscador en una base de datos, sino de un buscador de páginas web.

[Muzztein]

has una funcion que te tome la palabra buscar y por cada vocal acentuada que pille la cambie por un comodin "?"

y luego ese patrón lo metes a una expresion regular y ya.



busca por expresiones regulares y checa esto de pasada

Código:

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches          ' Crea una variable.
   Set regEx = New RegExp             ' Crea una expresión regular.
   regEx.Pattern = patrn              ' Establece un modelo.
   regEx.IgnoreCase = True            ' Establece la no distinción de mayúsculas y minúsculas.
   regEx.Global = True                ' Establece la aplicabilidad global.
   Set Matches = regEx.Execute(strng) ' Ejecuta la búsqueda.
   For Each Match in Matches          ' Repite el conjunto de coincidencias.
      RetStr = RetStr & "Coincidencia encontrada en la posición "
      RetStr = RetStr & Match.FirstIndex & ". El valor de la coincidencia es '"
      RetStr = RetStr & Match.Value & "'." & vbCRLF
   Next
   RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

[Ramondi]

Gracias! Voy a buscar lo de las expresiones regulares...