FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Algoritmo que compara cadenas de texto
Saludos de nuevo amigos, llevo horas buscando un hilo antiguo y no lo encuentro ojalá ustedes puedan orientarme para llegar a él, lo que pasa es que ni siquiera me acuerdo de como se llama el algoritmo, pero no es el común para comparar cadenas de texto.
La cosa es así alguien alguna vez comentó que quería o tenía el un algoritmo que decía cuantas modificaciones había que hacer en una cadena de texto para convertirla en otra, por ejemplo:
Saludos y gracias de antemano.
__________________
Herr Heins Faust |
#2
|
|||
|
|||
Hoooola!!
Si no me equivoco se llama Distancia_de_Levenshtein http://es.wikipedia.org/wiki/Distancia_de_Levenshtein Código:
function levenshtein(Str1, Str2: String): Integer; var d : array of array of Integer; Len1, Len2 : Integer; i,j,cost:Integer; begin Len1:=Length(Str1); Len2:=Length(Str2); SetLength(d,Len1+1); for i := Low(d) to High(d) do SetLength(d[i],Len2+1); for i := 0 to Len1 do d[i,0]:=i; for j := 0 to Len2 do d[0,j]:=j; for i:= 1 to Len1 do for j:= 1 to Len2 do begin if Str1[i]=Str2[j] then cost:=0 else cost:=1; d[i,j]:= Min(d[i-1, j] + 1, // deletion, Min(d[i, j-1] + 1, // insertion d[i-1, j-1] + cost // substitution ) ); end; Result:=d[Len1,Len2]; end; |
#3
|
||||
|
||||
Muchísimas gracias!!!
Efectivamente es esto lo que estoy buscando... ya haciendo una búsqueda en los foros del club he encontrado algunos hilos ya antiguos... De nuevo muchas gracias.
__________________
Herr Heins Faust |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Manejo de cadenas de texto. | mcasso | Varios | 3 | 18-03-2010 07:23:24 |
Comparar dos cadenas de texto | GerTorresM | Varios | 6 | 09-01-2010 14:27:54 |
Comparar dos cadenas de texto | creus | Varios | 5 | 06-03-2009 00:22:13 |
Algoritmo para comparacion de cadenas | danilo_candales | Varios | 8 | 17-11-2007 17:23:14 |
AYUDA! no puedo terminar un algoritmo de resalto de texto en un RichEdit! | Black_Ocean | Varios | 2 | 05-06-2007 10:54:00 |
|