Transformer les caractères %20 %27 etc en normaux

Marsh Posté le 06-04-2009 à 02:15:15

Bonjour,

J'ai des fichiers qui sont enregistré avec les caractères "internet" c'est à dire avec les %20 pour l'espace, le %27 pour le ', le %C3%A9 qui est en fait "é". Je voudrais savoir s'il y a une astuce ou un logiciel qui converti justement tout ça en caractère normaux

Par exemple
Le%20ciel%20pr%C3%A9f%C3%A8re%20les%20plaisanteries%20aux%20trag%C3%A9dies

en
Le ciel préfère les plaisanteries aux tragédies

Marsh Posté le 06-04-2009 à 02:15:15

Marsh Posté le 06-04-2009 à 11:44:40

Bonjour

Tu peux le faire avec Word, Excel etc.

Cordialement

---------------
Soyez malin, louez entre voisins !

Marsh Posté le 07-04-2009 à 01:52:02

euh... c'est à dire ? Je connais la fonction rechercher/remplacé, mais je ne connais déjà pas tous les caractère mais en plus il faut faire ça 1 par 1. Y a pas de convertisseur ?

Marsh Posté le 07-04-2009 à 09:58:20

Bah tu peux t'amuser a chercher un convertisseur utf8 en effet.

Mais comme tu ne dis pas ou sont stockées ces chaines....
Dans un fichier ? Si oui quel type de fichier ? C'est le nom d'un fichier ? etc.

Apres dans Excel par exemple, tu les mets toutes en colonne A et tu executes cette macro, qui est a etoffer, j'ai pas cherché les correspondances.

Code :

Sub Chevalier2000()
Dim TxtDep As String, NbCaracteres As Integer
'Parcours la colonne A pour transformer les valeurs et les mettre en colonne B
For i = 1 To 1000 'Numéro de ligne max a modifier
TxtDep = Cells(i, 1).Value
'Espaces
TxtDep = Replace(TxtDep, "%20", " " )
'Accent aigu
TxtDep = Replace(TxtDep, "%C3%A9", "é" )
'Accent grave
TxtDep = Replace(TxtDep, "%C3%A8", "è" )
'... a etoffer
'Mets en colonne B la correspondance
Cells(i, 2).Value = TxtDep
Next i
End Sub

Cordialement

---------------
Soyez malin, louez entre voisins !

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *