Discussion :

[RegiO]

Bonjour tout le monde,

ça faisant longtemps que je vous avais pas embêté.

Alors cette fois mon problème vient des caractéres spéciaux j'ai inséré dans ma db (mysql) les caractéres accentués sous forme d'entité HTML (ex : € -> € grâce à la fonction php htmlentities(STRING, ENT_QUOTES, "UTF-8"))

Maintenant mon problème c'est lorsque j'exporte mes données de ma base vers un fichier excel forcément je récupére les '€' au lieu '€'.

Donc j'aimerai savoir si il existe une fonction vbscript qui permet de convertir les entités HTML en caractéres spéciaux.

Merci d'avance pour votre aide.

[ced600]

Ce que tu as récupéré c'est du VB, je suppose que tu as essayé de le convertir en VBS, peut tu nous montrer ton code ?
Ce serait plus simple pour t'aider.

[RegiO]

Merci cedric pour ta réponse,

alors j'ai essayé plusieurs modifie mais rien n'y fais et puis malheureusement je ne m'y connais pas beaucoup non plus donc c'est encore moins évident.

De plus toutes les déclarations du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim NametoNum As New Hashtable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim myregexp As New Regex("&[a-zA-Z0-9]{2,6}\;", RegexOptions.IgnoreCase)

ne me parlait pas vraiment.

Du coup, je m'en suis sorti en faisant comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
ConvChaine = valeur_de_la_db
ConvChaine = Replace(ConvChaine, "é", "é")
ConvChaine = Replace(ConvChaine, "è", "è")
ConvChaine = Replace(ConvChaine, "ç", "ç")
ConvChaine = Replace(ConvChaine, "à", "à")
ConvChaine = Replace(ConvChaine, "€", "€")
ConvChaine = Replace(ConvChaine, "'", "'")
ConvChaine = Replace(ConvChaine, "ê", "ê")

Mais du coup ma solution ne prend pas en compte tous les caractères spéciaux :s. Je n'ai mis que ceux qui me paraisse les plus utilisés et qui peuvent me poser des problèmes.

Je sais pas si c'est la meilleur solution mais au moins cela marche pour le moment, j'espére que ce n'est pas juste du provisoir qui durera lol comme c'est souvent le cas.

[ced600]

De plus toutes les déclarations du genre :

Code :
Dim NametoNum As New Hashtable

Code :
Dim myregexp As New Regex("&[a-zA-Z0-9]{2,6}\;", RegexOptions.IgnoreCase)


ne me parlait pas vraiment.

En vbs on utilise pas le New dans la déclaration, normalement, une déclaration de variable suivis de la création d'une instance d'un classe (un objet) se fait comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim Variable 'Note que le type de la variable n'a pas besoin d'être définit
             'elle est alors de type variant
Set Variable = New Objet
'ou
Set Variable = Fonction 'Si la fonction renvois un objet.

Quand à Regexp, c'est une fonction qui permet de rechercher une chaines de caractères dans une string à l'aide des Regular expression.
Utilises Replace n'est pas mal.
Regarde ce liens, tu as toutes les entités existantes :
http://www.la-grange.net/w3c/html4.0.../entities.html
J'ai fait une recherche sur le net mais je n'ai pas trouvé de fonction VBS qui fait ça pour toi, je crois que tu es condamné à faire ta propre fonction avec plein de replace !!!

[RegiO]

Merci cedric pour tes précisions sur la déclaration d'une instance..

...mais maintenant que tu me le dis je suis vraiment nul de pas l'avoir vu avant surtout que j'avais deja cherché pour créer une instance d'excel et que le new marchait pas...comme quoi parfois on ferait mieux de ne pas se lever mdrrr

Merci pour le lien que tu m'as fourni il est trés intéréssant

Sinon pour le moment comme je disais dans mon post précédent je vais laisser cela ainsi car je suis un peu short dans mon développement mais je pense que je creuserai cela quand j'aurai un peu plus de temps.
car en fait je me rend compte que mon problème vient du fait que je n'avais pas saisi l'importance de l'encodage (ISO-8859-1, ISO-8859-15, UTF-8...) de mes pages web, de même pour ma base mysql et aussi le manque cruel de connaissance en vbscript du coup je suis obligé de faire le 'jack la bidouille' pour corriger les erreurs alors que tout aurait pu être sans doute plus propre si j'avais vu ce problème avant.

Enfin c'est en faisant des erreurs qu'on apprend hihi mais malheureusement j'ai pas le temps de faire des erreurs en ce moment.

Enfin merci pour les précisions et l'aide...par contre je sais pas si je peux mettre résolu au sujet car je pense pas qu'il soit réellement résolu en entier malgrés que cela marche ?

[ced600]

Bah disons que si tu mets en résolu, les personnes qui ont le même problème iront d'abord voir ton poste avant les non résolus. Mais en même temps, plus personne ne viendra donner de réponse à ce post. Donc cela dépend de ce que tu veux faire, avoir de nouvelles réponses et remarques sur ce post ou non.
Pour un nouveau problème tu peut toujours ouvrir un nouveau post.

[RegiO]

Et bien je vais le mettre en résolu car pour ma part mon problème est résolu pour le moment pas forcément le mieux du monde mais cela fonctionne pas mal pour ce que je fais.