Bonjour
Voici le module actuel
Public Function RemoveAccents$(str$)
Dim tmp$
Dim i%, X
tmp = Trim(str)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case 170: X = " "
Case 147 To 148: X = " "
Case 176: X = " "
Case 153: X = "o"
Case 131: X = "E"
Case 145: X = "e"
Case 137: X = "a"
Case 156: X = "oe"
Case 150: X = " "
Case 166: X = " "
Case Else: X = Chr(X)
End Select
RemoveAccents = RemoveAccents & X
Il sert a remplacer un certains nombre de caracteres
Je cherche a savoir comment remplacer des caracteres que l'on ne trouve pas
dans la table de caracteres mais dans les fichiers que je recois et des
caracteres comme le ' le " ou le ;
J'attends votre aide merci
--
A+
David
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ze Titi
Hello David !
' : Chr(39) " : Chr(34) ; : Chr(59)
En ce jour mémorable du mercredi 28/03/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour Voici le module actuel Public Function RemoveAccents$(str$) Dim tmp$ Dim i%, X tmp = Trim(str) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case 170: X = " " Case 147 To 148: X = " " Case 176: X = " " Case 153: X = "o" Case 131: X = "E" Case 145: X = "e" Case 137: X = "a" Case 156: X = "oe" Case 150: X = " " Case 166: X = " " Case Else: X = Chr(X) End Select RemoveAccents = RemoveAccents & X Il sert a remplacer un certains nombre de caracteres Je cherche a savoir comment remplacer des caracteres que l'on ne trouve pas dans la table de caracteres mais dans les fichiers que je recois et des caracteres comme le ' le " ou le ; J'attends votre aide merci
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
Hello David !
' : Chr(39)
" : Chr(34)
; : Chr(59)
En ce jour mémorable du mercredi 28/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour
Voici le module actuel
Public Function RemoveAccents$(str$)
Dim tmp$
Dim i%, X
tmp = Trim(str)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case 170: X = " "
Case 147 To 148: X = " "
Case 176: X = " "
Case 153: X = "o"
Case 131: X = "E"
Case 145: X = "e"
Case 137: X = "a"
Case 156: X = "oe"
Case 150: X = " "
Case 166: X = " "
Case Else: X = Chr(X)
End Select
RemoveAccents = RemoveAccents & X
Il sert a remplacer un certains nombre de caracteres
Je cherche a savoir comment remplacer des caracteres que l'on ne trouve pas
dans la table de caracteres mais dans les fichiers que je recois et des
caracteres comme le ' le " ou le ;
J'attends votre aide merci
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
En ce jour mémorable du mercredi 28/03/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour Voici le module actuel Public Function RemoveAccents$(str$) Dim tmp$ Dim i%, X tmp = Trim(str) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case 170: X = " " Case 147 To 148: X = " " Case 176: X = " " Case 153: X = "o" Case 131: X = "E" Case 145: X = "e" Case 137: X = "a" Case 156: X = "oe" Case 150: X = " " Case 166: X = " " Case Else: X = Chr(X) End Select RemoveAccents = RemoveAccents & X Il sert a remplacer un certains nombre de caracteres Je cherche a savoir comment remplacer des caracteres que l'on ne trouve pas dans la table de caracteres mais dans les fichiers que je recois et des caracteres comme le ' le " ou le ; J'attends votre aide merci
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
David
Merci c parfait
-- A+ David
Hello David !
' : Chr(39) " : Chr(34) ; : Chr(59)
En ce jour mémorable du mercredi 28/03/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour Voici le module actuel Public Function RemoveAccents$(str$) Dim tmp$ Dim i%, X tmp = Trim(str) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case 170: X = " " Case 147 To 148: X = " " Case 176: X = " " Case 153: X = "o" Case 131: X = "E" Case 145: X = "e" Case 137: X = "a" Case 156: X = "oe" Case 150: X = " " Case 166: X = " " Case Else: X = Chr(X) End Select RemoveAccents = RemoveAccents & X Il sert a remplacer un certains nombre de caracteres Je cherche a savoir comment remplacer des caracteres que l'on ne trouve pas dans la table de caracteres mais dans les fichiers que je recois et des caracteres comme le ' le " ou le ; J'attends votre aide merci
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
Merci c parfait
--
A+
David
Hello David !
' : Chr(39)
" : Chr(34)
; : Chr(59)
En ce jour mémorable du mercredi 28/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour
Voici le module actuel
Public Function RemoveAccents$(str$)
Dim tmp$
Dim i%, X
tmp = Trim(str)
For i = 1 To Len(tmp)
X = Asc(Mid(tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case 170: X = " "
Case 147 To 148: X = " "
Case 176: X = " "
Case 153: X = "o"
Case 131: X = "E"
Case 145: X = "e"
Case 137: X = "a"
Case 156: X = "oe"
Case 150: X = " "
Case 166: X = " "
Case Else: X = Chr(X)
End Select
RemoveAccents = RemoveAccents & X
Il sert a remplacer un certains nombre de caracteres
Je cherche a savoir comment remplacer des caracteres que l'on ne trouve pas
dans la table de caracteres mais dans les fichiers que je recois et des
caracteres comme le ' le " ou le ;
J'attends votre aide merci
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
En ce jour mémorable du mercredi 28/03/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour Voici le module actuel Public Function RemoveAccents$(str$) Dim tmp$ Dim i%, X tmp = Trim(str) For i = 1 To Len(tmp) X = Asc(Mid(tmp, i, 1)) Select Case X Case 192 To 197: X = "A" Case 200 To 203: X = "E" Case 204 To 207: X = "I" Case 209: X = "N" Case 210 To 214: X = "O" Case 217 To 220: X = "U" Case 221: X = "Y" Case 224 To 229: X = "a" Case 232 To 235: X = "e" Case 236 To 239: X = "i" Case 241: X = "n" Case 240, 242 To 246: X = "o" Case 249 To 252: X = "u" Case 253, 255: X = "y" Case 170: X = " " Case 147 To 148: X = " " Case 176: X = " " Case 153: X = "o" Case 131: X = "E" Case 145: X = "e" Case 137: X = "a" Case 156: X = "oe" Case 150: X = " " Case 166: X = " " Case Else: X = Chr(X) End Select RemoveAccents = RemoveAccents & X Il sert a remplacer un certains nombre de caracteres Je cherche a savoir comment remplacer des caracteres que l'on ne trouve pas dans la table de caracteres mais dans les fichiers que je recois et des caracteres comme le ' le " ou le ; J'attends votre aide merci
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
