FoxPro/Visual FoxPro - eliminar duplicados

   
Vista:

eliminar duplicados

Publicado por Panambi (12 intervenciones) el 12/10/2009 21:21:12
amigos apelo de nuevo a vuestra ayuda.
Quisiera eliminar unos registros que tengo duplicados, mi problemas es que soy nueva en
el en FOx y quisiera me ayuden con las sentencias.
COMO EJEMPLO TENGO LOS CAMPOS
CEDULA NOMBRE
12345 PEPITO GIMENEZ
12345 GIMENEZ, PEPITO
12345 GIMENES, PEPITO

45678 LOPEZ, PABLO
45678 PABLO LOPEZ
....
....
Y ASI CONTINUA, QUIERO DEJAR SOLO UNO DE CADA UNO, SON MILES DE REGISTROS.
Cualquier ayuda sera bienvenida, desde ya gracias!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

eliminar duplicados

Publicado por Mauricio (1368 intervenciones) el 12/10/2009 22:03:08
Deseas eliminarlos por Codigo? Porque por nombre son diferentes
*---
USE duplicados IN 0 ORDER codigo && ordenar por codigo
SELE duplicados
public vcod
vcod = duplicados.codigo && Asignamos el primer registro
SCAN
SKIP 1 && saltamos el primero para no eliminarlo
DELETE FOR vcod = codigo && Eliminar los siguientes iguales
vcod = duplicados.codigo && asignar de nuevo
ENDSCAN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:eliminar duplicados

Publicado por Javier (265 intervenciones) el 13/10/2009 15:55:55
Hola, abre la tabla en forma exclusiva y modifica la estructura de la tabla, agrega un campo, por ej., repe N( 1 ).
Luego indexa la tabla así: INDEX ON CEDULA TO INDICEXX UNIQUE
De esta manera en el índice UNIQUE solo se te va a agregar un solo registro por cada valor de cédula.
A continuación: REPLACE ALL REPE WITH 1
Luego cierra el índice: SET INDEX TO
Por último borra los registros con repe=0 : DELETE FOR REPE = 0
y hacete un PACK.

Luego, puedes eliminar el campo REPE.

Espero que te sirva.
Saludos (Jujuy-Argentina).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:eliminar duplicados

Publicado por MIR (1 intervención) el 06/09/2013 22:36:05
MUCHAS GRACIAS ..!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar