FoxPro/Visual FoxPro - comparar cadenas

 
Vista:

comparar cadenas

Publicado por Cesar Almanza (40 intervenciones) el 03/09/2007 17:26:16
Buenos dias a todos...

Necesito comparar cadenas para detectar duplicidades en una base de datos de clientes..
el problema es que necesito que detecte si las cadenas son iguales en cierto porcentaje, por ejemplo si el nombre es "CESAR GOMEZ PEREZ" y otro "CESAR GOMES PEREZ" , cambia la "Z" por "S" en "GOME__" , deberia detectarlo como iguales...
Existe algun metodo sencillo para hacerlo...

Gracias por la ayuda...

Cesar A. Almanza A.
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

RE:comparar cadenas

Publicado por enrique (1041 intervenciones) el 05/09/2007 17:59:56
mira este codigo, tal vez te sirva.

a="CESAR GOMEZ PEREZ"
b="CESAT GOMES PERES"
porc_igual = 0

a=upper(strtran(a," ",""))
b=upper(strtran(b," ",""))

for i = 1 to len(a)
v_a = subs(a,i,1)
v_b = subs(b,i,1)
if v_a = v_b
porc_igual = porc_igual + 1
endif
endfor

porc_res = int(porc_igual/len(a)*100)
if porc_res > 90
wait wind "Los datos son casi similares"
endif

Adaptalo a lo que vos necesites.
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