Completer un module pour remplacer des caracteres accentues

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 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
pgz
Le #6230291
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


Publicité
Poster une réponse
Anonyme