Compement de module

Le
David
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ze Titi
Le #6229891
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

David
Le #6229651
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






Publicité
Poster une réponse
Anonyme