FORUM WINDEV

Bonjour

Je cherche un moyen de comparer rapidement deux chaines de caractères et récupérer le nombre de différences. (un peu comme le mastermind - bon et bien placé)

je dois comparer beaucoup de chaine. La comparaison caractères par caractères ralenti énormément le programme.

peut être avez vous une solution .....

par exemple :
chaines1 = 02rez45e
chaines2 = 03rez45
retour 2

Merci par avance

Rourke

Bonjour,

Quel code ou algo utilisez-vous actuellement comme comparateur ?

bonjour,

voir l'aide de chaineCompare

Bonjour

Je reviens sur mon souci quelques moi plus tard .....

Merci pour vos reponses.

Si j'ai bien lu (et j'espere bien compris), la fonction Chainecompare renvoie -1 ou 0 ou 1 mais pas le nombre de difference.

Je souhaite recuperer le nombre de difference entre les deux chaines.

En vous remerciant encore

Rourke

Bonjour,

voici une procédure qui fait cela et qui est rapide
elle renvoie le nombre de caractères en différence entre les 2 chaines

Code: Tout sélectionner

PROCEDURE Difference2chaines(LOCAL _szSt1 est une chaîne,LOCAL _szSt2 est une chaîne)

// compare le nombre de caractères en différence mais aussi par rapport a leur place
// renvoie le nombre de caractères pas a leur place ou différent

lLongStr1       est un entier
ct             est un entier
lLongStr2       est un entier
lReponse       est un entier

// variables locale pour traitement des 2 parametres et eviter de les modifier
szStr1          est une chaîne = " "+_szSt1
szStr2          est une chaîne = " "+_szSt2

// recuperation de la taille des 2 parametres envoyés
lLongStr1= Taille(szStr1)
lLongStr2= Taille(szStr2)

// on regarde combien de cracteres sont différents en comprarant la place et le caractere
DMatrix est un tableau de lLongStr1 par lLongStr2 entier   
POUR i = 2 A lLongStr1
   DMatrix[i, 1] = i-1
   POUR j = 2 A lLongStr2
      DMatrix[1, j] = j-1
      ct = szStr1[[i]] = szStr2[[j]] ? 0 SINON 1
      DMatrix[i,j] = Min((DMatrix[i,j-1]+1),( DMatrix[i-1,j]+1),(DMatrix[i-1,j-1]+ct))
   FIN
FIN
lReponse =  DMatrix[lLongStr1,lLongStr2]

// renvoie de la valeur
RENVOYER lReponse


a tester car j'ai enlever des modifications specifiques au traitment
et voir si plus rapide (pour mes traitement cela n'a pas d'importance)

pour l'utilisation
nb est un entier = Difference2chaines(MachaineNumero1, maChainenumero2)

Merci beaucoup

je vais tester cela et vous tiens au courant

encore merci

Rourke

Bonjour à tous,

Salut Emidev,
Je viens de tester ton code.
Pas mal, mais je ne comprends pas bien cette ligne :
ct = szStr1[[i]] = szStr2[[j]] ? 0 SINON 1

et le résultat étant faux je pense qu'il s'agit d'une erreur de frappe.
Peux-tu me confirmer ?
Merci

Bonjour,

Emidev a quitté ce forum.

Daniel.

Suis-je bête ?
Merci Daniel de me remettre en phase.
Pour ceux que ça branche :
Il faut faire
si szStr1[[i]] = szStr2[[j]]
ct=0
sinon
ct=1
fin