Ne pas prendre en compte les accents et majuscules
Daydayer
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005
-
20 mai 2005 à 12:53
gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 - 20 mai 2005 à 13:26
gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 - 20 mai 2005 à 13:26
2 réponses
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
20 mai 2005 à 13:08
20 mai 2005 à 13:08
Il faut uniformiser la chaine a tester en remplacement tout les caracteres incorect et par exemple mettre tout en majuscule (Replace$() et UCase$())
apres tu peux faire un If A = B then
@+
E.B.
apres tu peux faire un If A = B then
@+
E.B.
gallyhc
Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
19 février 2018
2
20 mai 2005 à 13:26
20 mai 2005 à 13:26
Re,
Private Sub Form_Load()
'
MsgBox (SetTranslate("C'est UN teSt complé"))
End Sub
Private Function SetTranslate(ByVal strTemps As String) As String
' Déclaration des variables.
Dim lngI As Long
Dim lngJ As Long
Dim strCharts As String
Dim strResult As String
' Modification des caractères ANSI.
lngJ = Len(strTemps)
strTemps = LCase(strTemps)
If lngJ >= 1 Then
For lngI = 1 To lngJ
strCharts = Mid$(strTemps, lngI, 1)
Select Case strCharts
Case "'": strCharts = " "
Case "é": strCharts = "e"
Case "è": strCharts = "e"
Case "ê": strCharts = "e"
Case "ë": strCharts = "e"
Case "à": strCharts = "a"
Case "ä": strCharts = "a"
Case "ô": strCharts = "o"
Case "ö": strCharts = "o"
End Select
SetTranslate = SetTranslate & strCharts
Next lngI
End If
End Function
A toi de voir tout les case "?": strCharts = "??"
@++
[Gally Home Corp]
Private Sub Form_Load()
'
MsgBox (SetTranslate("C'est UN teSt complé"))
End Sub
Private Function SetTranslate(ByVal strTemps As String) As String
' Déclaration des variables.
Dim lngI As Long
Dim lngJ As Long
Dim strCharts As String
Dim strResult As String
' Modification des caractères ANSI.
lngJ = Len(strTemps)
strTemps = LCase(strTemps)
If lngJ >= 1 Then
For lngI = 1 To lngJ
strCharts = Mid$(strTemps, lngI, 1)
Select Case strCharts
Case "'": strCharts = " "
Case "é": strCharts = "e"
Case "è": strCharts = "e"
Case "ê": strCharts = "e"
Case "ë": strCharts = "e"
Case "à": strCharts = "a"
Case "ä": strCharts = "a"
Case "ô": strCharts = "o"
Case "ö": strCharts = "o"
End Select
SetTranslate = SetTranslate & strCharts
Next lngI
End If
End Function
A toi de voir tout les case "?": strCharts = "??"
@++
[Gally Home Corp]