Discussion :

[jjcasalo]

Bonjour,

Je cherche un moyen de comparer 2 texte, sans tenir compte de la casse et des accents.

Il semble qu'il faille utiliser la fonction String.Compare, avec une CultureInfo.

Mais quand j'essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Imports System
Imports System.Globalization
 
Public Module Module1
 Public Sub Main()
  Console.WriteLine(String.Compare("Jean", "Jeàn", True, New CultureInfo("fr-FR" )))
 End Sub
End Module

Ca me retourne -1. Alors que je m'attends à avoir 0.
Si je compare "Jean" avec Jexn", ça me retourne aussi -1.

Je sais qu'il y a aussi la possibilité de remplacer toutes les lettres accentuées par leur équivalents simples.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function Sans_accents(ByVal Chaine As String) As String ' R. Dezan + Michel Pierron
 
        Dim a As String
        Dim b As String
        Dim u As Integer
 
        a = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
        b = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
        'Chaine = Replace(Replace(Replace(Replace(Chaine, "œ", "oe"), "Œ", "OE"), "æ", "ae"), "Æ", "AE")
        For i = 1 To Len(Chaine)
            u = InStr(1, a, Mid(Chaine, i, 1), 0)
            If u > 0 Then Mid(Chaine, i, 1) = Mid(b, u, 1)
        Next i
        Sans_accents = Chaine
    End Function

Mais je voudrais trouver une solution un peu plus "propre".

Merci d'avance pour votre aide.

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function Sans_accents(ByVal Chaine As String) As String
Dim a As String= "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
Dim b As String="AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
Dim T As String=Chaine
For i as Integer  = 1 To T.Count - 1
    T = T.Replace(a.Substring(i, 1), b.Substring(i, 1)).ToUpper
Next i
return T
    End Function

tu peux t'intéresser également aux expression régulières!

[jjcasalo]

Bonjour disotrhogarphie,

Merci pour la réponse.

Mais ma question concerte surtout pourquoi le code suivant :
Console.WriteLine(String.Compare("Jean", "Jeàn", True, New CultureInfo("fr-FR" )))
ne marche pas, alors que d'après la doc, ça devrait marcher.
https://msdn.microsoft.com/en-us/lib...v=vs.110).aspx

Hum ....
En fait, je crois comprendre, mais c'est un peu particulier.
Console.WriteLine(String.Compare("Jean", "Jeàn", True, New CultureInfo("fr-FR")))
Résultat = -1

Console.WriteLine(String.Compare("Jeàn", "Jean", True, New CultureInfo("fr-FR")))
Résultat = 1

La doc indique :
Value _________Condition
Less than zero____strA precedes strB in the sort order.
Zero____________strA occurs in the same position as strB in the sort order.
Greater than zero__strA follows strB in the sort order.

Donc, VB.NET compare l'ordre de "a" et "à". Et pour lui, ce ne sont pas des lettres avec le même ordre.

Si le seul cas pour lequel String.Compare retourne la valeur 0, c'est quand les 2 textes sont parfaitement identiques (modulo la casse), je ne vois pas trop l'intérêt de la fonction.

Pourquoi c'est si compliqué, alors que dans SQL Server, c'est si simple ...

Bon, ben je crois que je vais devoir faire la méthode Replace... lettre par lettre.

Et je me suis permis de reprendre ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
imports system
 
Public Module Module1
	Public Sub Main()
		Dim a As String = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
		Dim b As String = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
		Dim T As String = "Jeàñ Hélëne Jérôme"
		For i as Integer = 0 To a.Length - 1
			T = T.Replace(a.Substring(i, 1), b.Substring(i, 1))
		Next i
 
	Console.WriteLine(T.ToUpper)
	End Sub
End Module

[Invité]

Le code ascii du a est 145 et celui du A 65 , hors un ordinateur ne comprends que du binaire!

[jjcasalo]

On dévie un peu du sujet, mais essaye d'expliquer ça à un utilisateur.
Et autant on pouvait comprendre il y a 10-20 ans que c'était à l'utilisateur de s'adapter à l'ordinateur, maintenant, c'est l'inverse.

Un indice chez vous :
Sur Google, Facebook, Wikipedia, Amazon, eBay (et plein d'autres sites), les recherches sont insensibles à la casse et aux accents.

Les utilisateurs attendent donc maintenant que quand ils font une recherche, le résultat doit correspondre à ce qu'ils attendent, c-à-d sans se soucier des accents et majuscules.
Il y aura bien sûr toujours des cas où l'on voudra que la recherche soit exacte. Mais qu'au mois, les langages de programmations donnent facilement la possibilité de choisir.

[Invité]

Tous les site que tu nomme on fait appel à des développeurs qui se sont pris la tête pour rendre ça possible. Un développeur est un utilisateur lambda? C'est un autre débat!

Moi je n'aime pas laisser un logiciel décider à ma place! Le minitel était redoutable, il comprenait même mon orthographe libertaire!

[nouanda]

jjcasalo, comme tu l'as dit, le resultat depend de l'ordre dans lequel les lettres sont trouvees dans l'alphabet.
Pour ignorer les accents, il faut utiliser une autre surcharge de string.Compare:String.Compare(String,String,CultureInfo,CompareOptions)
La clef est le paramètre CompareOptions, que tu peux passer a CompareOptions.IgnoreNonSpace. La documentation nous dit:

Indicates that the string comparison must ignore nonspacing combining characters, such as diacritics.

Et bam! plus de problemes d'accents!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Console.WriteLine(String.Compare("Jean", "Jeàn", New CultureInfo("fr-FR"), CompareOptions.IgnoreNonSpace))

Et pour ignorer la casse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Console.WriteLine(String.Compare("JeAn", "jEàN",  New CultureInfo("fr-FR"), CompareOptions.IgnoreNonSpace Or CompareOptions.IgnoreCase)))

[clementmarcotte]

Bonjour,

Tu mets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare text

Dans l'entête de ton module. Ou bien tu le fais par défaut dans ton MyProject.

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Binary

Les caractères accentués sont triés/comparés séparément de leur caractère non accentué

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare text

Les caractères accentués sont triés/comparés comme étant la même chose que leur caractère nom accentué. L'ordre exact dépend donc du premier caractère différent dans les deux mots comparés.

[Invité]

Bonjour,
Merci nouanda et Clément, je savais pas!

[jjcasalo]

Merci beaucoup pour votre aide

[clementmarcotte]

Bonjour

Bonjour,
Merci nouanda et Clément, je savais pas!

En fait, même moi je n'avais jamais porté attention aux constantes de comparaison de CultureInfo de String. C'est très intéressant de le savoir.

Et, à bien y penser, si tout le monde savait tout, il n'y aurait pas besoin d'un paquet de forums