Contar repeticiones dentro de un texto

¡Hola, Madman!

Si no lo he entendido mal necesitas un índice en cada tabla para que
el Keyword del registro 1 del TablaA lo busque en el Texto del
registro 1 de la TablaB. Si no, buscaría cada Keyword en todos los
registros de la TablaB.

Crea una función en un módulo con el siguiente código:
Public Function iVeces(Texto As String, Palabra As String) As Integer
Dim iCont As Integer, iPos As Integer

iPos = InStr(Texto, Palabra)
While iPos
iCont = iCont + 1
iPos = InStr(iPos + 1, Texto, Palabra)
Wend
iVeces = iCont
End Function

Y luego crea una consulta con el siguiente SQL:
SELECT Keyword, Texto, iVeces(Texto,Keyword) AS Veces
FROM TablaA, TablaB
WHERE TablaA.Id=TablaB.Id;

Al ejecutar la consulta deben aparecer las ocurrencias de cada Keyword
en los Textos.
Espero que te sirva de ayuda.

Un saludo,
Ignacio.

jo, 1000 gracias Ignacio pero debo ser el amyor paquete del mundo!! hago el
módulo y la consulta y la tabla resultante no muestra ningún registro...que
desesperación... :(

no sé si es se puede, pero te podría enviar un fichero de ejemplo para que
le echarás un vistazo?? gracias de nuevo por la ayuda!!!!

"Ignacio" wrote:

¡Hola, Madman!

Si no lo he entendido mal necesitas un índice en cada tabla para que
el Keyword del registro 1 del TablaA lo busque en el Texto del
registro 1 de la TablaB. Si no, buscaría cada Keyword en todos los
registros de la TablaB.

Crea una función en un módulo con el siguiente código:
Public Function iVeces(Texto As String, Palabra As String) As Integer
Dim iCont As Integer, iPos As Integer

iPos = InStr(Texto, Palabra)
While iPos
iCont = iCont + 1
iPos = InStr(iPos + 1, Texto, Palabra)
Wend
iVeces = iCont
End Function

Y luego crea una consulta con el siguiente SQL:
SELECT Keyword, Texto, iVeces(Texto,Keyword) AS Veces
FROM TablaA, TablaB
WHERE TablaA.Id=TablaB.Id;

Al ejecutar la consulta deben aparecer las ocurrencias de cada Keyword
en los Textos.
Espero que te sirva de ayuda.

Un saludo,
Ignacio.
.

Puedes enviarlo a mi grupo http://groups.google.es/group/juank?hl=es


**
Salu2/Regards
[MVP Access] 2006/10
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es

¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**
"madman" escribió en el mensaje
news:

jo, 1000 gracias Ignacio pero debo ser el amyor paquete del mundo!! hago
el
módulo y la consulta y la tabla resultante no muestra ningún
registro...que
desesperación... :(

no sé si es se puede, pero te podría enviar un fichero de ejemplo para que
le echarás un vistazo?? gracias de nuevo por la ayuda!!!!

"Ignacio" wrote:

¡Hola, Madman!

Si no lo he entendido mal necesitas un índice en cada tabla para que
el Keyword del registro 1 del TablaA lo busque en el Texto del
registro 1 de la TablaB. Si no, buscaría cada Keyword en todos los
registros de la TablaB.

Crea una función en un módulo con el siguiente código:
Public Function iVeces(Texto As String, Palabra As String) As Integer
Dim iCont As Integer, iPos As Integer

iPos = InStr(Texto, Palabra)
While iPos
iCont = iCont + 1
iPos = InStr(iPos + 1, Texto, Palabra)
Wend
iVeces = iCont
End Function

Y luego crea una consulta con el siguiente SQL:
SELECT Keyword, Texto, iVeces(Texto,Keyword) AS Veces
FROM TablaA, TablaB
WHERE TablaA.Id=TablaB.Id;

Al ejecutar la consulta deben aparecer las ocurrencias de cada Keyword
en los Textos.
Espero que te sirva de ayuda.

Un saludo,
Ignacio.
.