🚀 go-pugleaf

Podria hacerse un peque�o programa que hiciera lo siguiente: (pseudocodigo)
for i=1 to 8000 ' o el numero de registros
   for e=i+1 to 8000
        if registroessimilar(i,e) then eliminaregistro(e)
    next
next

public function registroessimilar(i,e) as boolean
' aqui lees los datos del registro en la posicion "i" y el registro en la 
posicion "e", luego utiliza instr para ver si un registro esta contenido en 
el otro.
'por ejemplo  :
'estacontenido=instr(1,"ana","ana maria") + instr(1,"ana maria", "ana")   ' 
esto debe dar un valor diferente a 1 en el caso de que un texto este 
contenido en otro.

end function


publis sub eliminaregistro(e)
' aqui elimina el registro, ya sea con ADO, DAO, etc.
end sub




"Alexis araya" <alex2000@no_spam_vtr.net> wrote in message 
news:d5c85j$ppj$1@news1.nivel5.cl...
> Holap.
>
> necesito limpiar una bd, esta en access.
>
> el problema, es q hay muchos campos dupliados..
>
>
> por ejemplo
> ----------------------
> nombre : ana
> Apellido P : perez
> Apellido M : Diaz
> ----------------------
> Nombre : ana Maria Apellido P : perez
> Apellido M : Diaz
> ----------------------
>
> Como se ve es la misma persona, ingresada 2 veces...
>
> la bd, tiene 8000 registros. hay alguna forma de limpiarla??
> tambien hay q considerar, pueden haber hermanas registradas..
> y que esten los apellidos mal escritos..
> :S
>
>
> help me, please..