PALABRAS COMUNES DE DOS CAMPOS

Colt, que extraños son tus pedidos ¿son necesidades de tu aplicacion o
trabajos practicos de la escuela/universidad?

Aqui va una forma de como hacerlo:

SELECT MiTabla
SCAN ALL
CREATE CURSOR Masc (NomMasc C(30))
ln = ALINES(la, ALLTRIM(MiTabla.NombresMasc), .T., " ")
FOR lnI = 1 TO ln
INSERT INTO Masc (NomMasc) VALUES (la(lnI))
ENDFOR
CREATE CURSOR Feme (NomFeme C(30))
ln = ALINES(la, ALLTRIM(MiTabla.NombresFem), .T., " ")
FOR lnI = 1 TO ln
INSERT INTO Feme (NomFeme) VALUES (la(lnI))
ENDFOR
SELECT NomMasc FROM Masc ;
WHERE EXISTS ;
(SELECT * FROM Feme ;
WHERE NomMasc = NomFeme) ;
INTO CURSOR MiCursor
SELECT MiCursor
lc = ""
SCAN ALL
lc = lc + ALLTRIM(MiCursor.NomMasc) + " "
ENDSCAN
REPLACE NombresIguales WITH lc IN MiTabla
ENDSCAN

Otra pregunta: ¿En que ciudad y pais vives?

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos



"colt clint" escribió en el mensaje
news:

HOLA, AMIGOS!

Por favor, si tengo una tabla with 3 campos:

nombresmasc
nombresfem
nombresiguales

Como puede ser rellenado automaticamente el campo NOMBRESIGUALES con las
palabras/nombres comunes entre NOMBRESMASC y NOMBRES FEM?


OBSERVACIÓN: Cada campo tiene muchas palabras/nombres.

Muchas gracias anticipadamente,

Saludos


Colt


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Estimado Lyus Maria Guyán,

Otra vez, muchas gracia por su ayuda.

En respuesta a sus preguntas puedo decirle que vivo actualmente en
Ciudad-Real - España, aunque no sea español (lo que sposible saber por mi
'castellano'.

Necesidades de mi trabajo. Soy como la hormiga - de poco en poco rellena
el nido!

Jamás hizo curso alguno en computacion (soy muy viejo para hacerlo!),
aunque tenga hecho mucha cosa en Pascal y Clipper en la década de 80/90.


El relación a su script (antiguamente se decía 'programa' o 'algoritmo' -
ahora es script - funciona muy bien.

Aprovechando nuestra charla me mustaría preguntarle 3 cosas.

1. Sería posible considerar como misma palabra/nombre casos así:

banco
Banco
bancos
Bancos

2. Sin querer aburrirle sería posible crear un cuarto campo para quitar
del campo NOMBRESIGUALES los dobles?

3. Y Ud. con todo este conociemiento de VFP - en inglés se dice -
background - trabajas con este para ganar dinero?

Muchas gracias por su colaboración

Cordiales saludos

Colt Clint

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Estimado Luis María Guayán,

Perdón por el error en su nombre!

Olvidé decirte una cosa: Esto es parte de mi trabajo, pero no gano un
centavo de lo que hazo con este. Sirve solamente como herramienta para
manuseo de datos.

Saludos

Colt Clint

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Hola Colt, comentando un poco tu mensaje:

1. Para obtener datos con semejanzas fonéticas, VFP tiene las funciones
SOUNDEX() y DIFFERENCE()

Un ejemplo utilizando DIFFERENCE():

OPEN DATABASE (HOME(2) + "NorthWind\NorthWind")
SELECT Country FROM Customers ;
WHERE DIFFERENCE(Country, "FRANCIA") > 3

La función DIFFERENCE() no puedes usarla en una condición WHERE
conjuntamente con EXISTS, por lo que tendras que recorres la primer tabla de
nombres ("Masc") y hacer el SELECT con la segunda tabla de nombres ("Feme").

2. Para lograr separar los nombres dobles, puedes usar ALINES() (como en el
ejemplo enviado ayer) y asi completar tu nuevo campo.

3. Mi trabajo diario es el desarrollo, y como herramienta principal utilizo
Visual FoxPro.


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"colt clint" escribió en el mensaje
news:

Estimado Luis María Guayán,

Perdón por el error en su nombre!

Olvidé decirte una cosa: Esto es parte de mi trabajo, pero no gano un
centavo de lo que hazo con este. Sirve solamente como herramienta para
manuseo de datos.

Saludos

Colt Clint


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Hola Luis Guayán,

Gracias por su respuesta.

En el primer caso será mejor yo continuar a hacer un trabajo que hoy ya
estoy haciendo - no muy deprisa - para sacar de las palabras el plural -
dejándolas en el singular.

En relación a la segunda cuestión es que lo que haces en 10 minutos yo
preciso de 10 horas o más para hacerlo!!!

Pero, voi a intertarlo!


Saludos

Colt

Historia: Hace muchos años pasados yo empecé a aprender a programar porque
me gustaría poner mis poemas en forma digital, estábamos en el año de
1988/1990. Lo que hizo en aquel tiempo es hoy llamado de e-book!
Evidentemente era un poco rústico hecho en Turbo Pascal !!! Sería más
facil en Clipper, pero no me gustaba!






PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway