Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Completer un module pour remplacer des caracteres accentues

Completer un module pour remplacer des caracteres accentues

1 réponse
Avatar
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 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
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
pgz
Bonjour,

SI j'ai bien compris le pb, il suffit probablement de consulter une table
des caractères ASCII, comme ici :
http://fr.wikipedia.org/wiki/ASCII

Bon courage,
--
pgz
_____________________________




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 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