Accueil > Forum > > > > comparaison de chaines de caratères
comparaison de chaines de caratères
jeudi 7 août 2008 à 14:57:32 |
comparaison de chaines de caratères

zoeline
|
Bonjour, je cherche a créer une fonction qui permettrait losque l'on rentre deux chaines de caracteres,de renvoyer le pourcentage de ressemblance entre celles-ci. j'ai trouvé un exemple en delphi mais comme je débute en programmation je ne comprend pas grand chose: - Function ComparerChaines(s1,s2:String):Integer;
- { Fonction comparaison chaînes de texte:
- Entrée:
- S1 = première chaîne a comparer, taille limitée a 2048 caractères
- S2 = deuxième chaîne a comparer, taille limitée a 2048 caractères
- Sortie:
- INTEGER, de 0 a 100, % de ressemblance entre les 2 chaînes }
- Var identiques, // Nombre de caractères identiques
- p1,p2, // Indicateurs de position
- l1,l2, // Longueurs des chaînes
- pt, // Compteur de boucle
- diff : Integer; // Facteur d égalisation
- hstr : String; // Variable temporaire d échange des chaînes
- test : Array [1..2048] Of Boolean; // Tableau d indicateur pour suivre les positions déjà testées
- Begin
- // Tester les longueurs et échanger si S1 est plus courte, on teste toujours par rapport a la chaîne la plus longue
- If Length(s1)<Length(s2) Then Begin
- hstr := s2;
- s2 := s1;
- s1 := hstr;
- End;
- // Stocker les longueurs des chaînes
- l1 := Length(s1);
- l2 := Length(s2);
- // Une chaîne a vide ? alors la comparaison est de 0%
- If (l1=0) Or (l2=0) Then
- Result := 0
- Else Begin
- p1 := 1;
- p2 := 1;
- identiques := 0;
- // Calculer le facteur d égalisation dépendant de la longueur de la chaîne, en général c est 1/3 de la longueur maximale
- diff := Max(l1,l2) Div 3 + Abs(l1-l2);
- // Initialiser le tableau de suivi
- For pt := 1 To l1 Do
- test[pt] := False;
- // Parcours de la chaîne
- Repeat
- // Position testée ?
- If Not test[p1] Then Begin
- // Caractère identique ?
- If (s1[p1]=s2[p2]) And (Abs(p1-p2)<=diff) Then Begin
- test[p1] := True;
- // Augmenter le compteur de caractères identiques
- Inc(identiques);
- // Positions suivantes
- Inc(p1);
- Inc(p2);
- // Boucler
- If p1>l1 Then p1:=1;
- End Else Begin
- Test[p1] := False;
- Inc(p1);
- // Boucler a la prochaine position de test si on arrive a la fin de la chaîne
- If p1>l1 Then Begin
- While (p1>1) And Not (test[p1]) Do
- Dec(p1);
- Inc(p2)
- End;
- End;
- End Else Begin
- Inc(p1);
- // Boucler a la prochaine position de test si on arrive a la fin de la chaîne
- If p1>l1 Then Begin
- Repeat
- Dec(p1);
- Until (p1=1) Or test[p1];
- Inc(p2);
- End;
- End;
- Until p2>Length(s2);
- // Calculer la valeur en pourcentage
- Result := 100 * identiques Div l1;
- End;
- End;
Si vous pouviez m'aider a le transcrire en c#, je vous serait reconnaissante!! :) voila, bonne journée!!
|
|
jeudi 7 août 2008 à 17:00:36 |
Re : comparaison de chaines de caratères

ofonadroite
|
Salut, J'avais commencée à te le traduire puis j'ai réfléchie et je me suis dit que ça ne t'aiderai absolument pas. Tu devrai avant tout essayer de créer un algorithme et ensuite demander conseil sur la syntaxe ! Je passe peut être un peu pour une moralisatrice mais il ne faut pas oublier que le forum n'est pas là pour faire le travail à ta place mais pour t'aider pas à pas. N'hésite pas à me demander des conseils. @Pluche
 Si une réponse vous convient n'oubliez pas le réponse acceptée !!! Ca aidera beaucoup d'autres personnes
|
|
jeudi 7 août 2008 à 19:53:31 |
Re : comparaison de chaines de caratères
|
Cette discussion est classée dans : end, p1, test, s1, l1
Répondre à ce message
Sujets en rapport avec ce message
création d'un test psychologique ? [ par arwiin ]
Bonjour a tous, je suis actuellemnt d'apprendre le langage Csharp dans le but de créer une version informatisé du "test de barrage" afin d'évaluer l'a
recuperation de donnée [ par Online ]
Bonjour, voila, j'ai réalisé un prog qui se connecte à un FTP via des commandes DOS, mais j'aimerais bien récupérer ls informations renvoyées par le s
Numero Random 16 chiffres [ par metasys ]
Bonjour tlm,Je rechercher une methode pour generer des nombres de 16 chiffres aleatoirement. Je connais Random test = new Random(); test.Next(); et te
cacher les tabpages [ par micfrip ]
Bonjour !Je chercher un moyen de cacher, dans un tabControl, les onglets... Quelqu'un a-t-il une idée du comment faire ?Pour ma part, venant du monde
test si une variable est numérique [ par oboudou ]
En VB6 je pouvais avec IsNumeric() tester une variable et savoir si elle est numérique. Je cherche l'équivalent en C# Dot.NetOlivier Boudou
(textbox) bloquer l'access a certaine touches [ par gnuprotek ]
Bonjour a tous,en VB je fait comme ça pour autorisé la saisie de certain caractere :Private Sub TextBox4_KeyPress(ByVal sender As System.Object, ByVal
Trouver un élément dans une énumération [ par oberown ]
Bon je suis en pleins les énumérations, au cas où si ca se voyait pas ;-)Donc j'ai une string elt, et une enum test;Comment faire pour savoir si mon e
Connect a SQL Server [ par fdouieb ]
Bonjour,J'utilise C# depuis quelques mois. Cependant c'est uniquement la partie Windows Form que avait attiré mon attention dans un premier temps. Mai
FromBase64String, problèmes avec [ par Fildomen ]
salutje chercher une commande xx, qui convertit un string(s1) à un autre string(s2) ,et que celui ci(s2) quand on le reconvertit avec le FromBase64Str
""Purifier" un string [ par Flip84 ]
Bonjour, j'suis débutant en C# et je souhaiterais comme le dit le sujet "purifier" un string.Je m'explique :On a un string, par exemple public string
Livres en rapport
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|