IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Conversion encodage VBScript


Sujet :

VBScript

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Février 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 3
    Points : 2
    Points
    2
    Par défaut Conversion encodage VBScript
    Bonjour à tous/toutes,

    Débutant dans le VBScript, je rencontre un problème au niveau de l'encodage de caractère.

    J'ai réalisé un script qui permet de récupérer des informations de mon Active Directory et de les envoyer dans un fichier html à l'endroit voulu qui fonctionne.

    Ma page HTML est en UTF8 et je ne peux pas modifier le code de cette page.
    Lorsque je récupère des informations de mon AD avec des accents je me retrouve avec des caractères bizarre (é = xE9). Ce qui est dut à l'encodage qui est différent entre les informations de l'AD et ma page HTML

    J'aimerai savoir si certains d'entre vous on déjà rencontré le problème et quelles solutions avez-vous trouvé pour pallier à ce problème svp?
    Ou du moins des infos afin de m'aiguiller.

    Je vous remercie d'avance d'avoir prit connaissance de ce post et des réponses futures.
    Bon week-end à tous/toutes.

    PS: Ci-joint la partie de mon script permettant de recuperer une informations et de l'envoyer à l'endroit voulu.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    Set objFSO = CreateObject("Scripting.FileSystemObject" ) 
    Set objFile = objFSO.OpenTextFile("index-TEST.html", ForReading) 
     
    strDescription = objFile.ReadAll 
    objFile.Close 
     
     
    strNewDescription = Replace(strDescription, "$Titre", objUser.description)
     
     
    Set objFile = objFSO.OpenTextFile("index-TEST.html", ForWriting) 
    objFile.WriteLine strNewDescription
     
    'objFile.Close

  2. #2
    Membre émérite Avatar de tsuji
    Inscrit en
    Octobre 2011
    Messages
    1 558
    Détails du profil
    Informations forums :
    Inscription : Octobre 2011
    Messages : 1 558
    Points : 2 736
    Points
    2 736
    Par défaut
    Vous pouvez essayer de faire une conversion en profitant l'interface d'automation IOleCvt, comme ça.
    Code vbscript : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    set olecvt=createobject("oleprn.olecvt")
    'strNewDescription = Replace(strDescription, "$Titre", objUser.description)
    strNewDescription = Replace(strDescription, "$Titre", olecvt.toutf8(objUser.description))
    En fait, il y a plein d'incertitude sur légitimité de charger, via fso, la page html encodée en utf-8; mais ce n'est pas forcément que ça pose de problème en pratique quoique, en principe, le problème d'encodage déjà se pose à ce niveau-là.

Discussions similaires

  1. Conversion code VBA en VBScript
    Par suckthewindow dans le forum VBScript
    Réponses: 1
    Dernier message: 04/02/2008, 17h16
  2. Conversion d'un string en Datetime sous VBScript
    Par ninsekh dans le forum Général Dotnet
    Réponses: 1
    Dernier message: 26/09/2007, 20h42
  3. Encodage : Conversion UTF-8 vers ISO-8859-?
    Par polo54 dans le forum Général Java
    Réponses: 6
    Dernier message: 26/06/2007, 19h10
  4. Conversion vers CDate() de VBscript
    Par lib.jar dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 05/03/2007, 16h56
  5. [Encodage utf-8]conversion d'un String en utf-8
    Par noOneIsInnocent dans le forum Langage
    Réponses: 4
    Dernier message: 11/01/2007, 15h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo