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

VBA Word Discussion :

[VBA-W] Arranger un code HTML


Sujet :

VBA Word

  1. #1
    Membre averti
    Inscrit en
    Octobre 2003
    Messages
    25
    Détails du profil
    Informations forums :
    Inscription : Octobre 2003
    Messages : 25
    Par défaut [VBA-W] Arranger un code HTML
    Bonjour à tous !

    Je ne sais pas si je suis au bon endroit pour poser ma question. Cependant, je ne vois pas d'autre endroit où je pourrais la poser...

    Voilà, je dois réaliser une macro sous Visual Basic Application pour Word qui a pour but de me permettre de réaliser le parsage d'un fichier HTML en un fichier XML à l'aide d'un fichier XSL.

    Actuellement, j'ai un tableau dans un fichier "*.doc". A l'aide d'OpenOffice.org, j'arrive à convertir ce tableau en HTML et le résultat est bien plus propre et mieux construit que le code récupéré à l'aide de Microsoft Word... Cependant, il reste des attributs dont la valeur n'est pas entre guillement. Or ceci rend impossible d'utiliser un processeur XSL pour réaliser le parsage dont j'ai besoin.

    Pour illustrer mon propos :
    J'ai
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    <BALISE1 attr1="a" attr2=xyz attr3=plop>
       ...
    </BALISE1>
     
    <BALISE2 attr4=ijk attr5="123"/>
    Et je voudrais avoir :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    <BALISE1>
       ...
    </BALISE1>
     
    <BALISE2/>
    Ou :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    <BALISE1 attr1="a" attr2="xyz" attr3="plop">
       ...
    </BALISE1>
     
    <BALISE2 attr4="ijk" attr5="123"/>
    Il existerait donc deux solutions :
    1. supprimer tous les attributs (seul le nom des balises m'intéressent)
    2. rajouter les guillemets nécessaires

    Je ne connais pas trop le VBA pour Word et j'ai donc de nombreux soucis...

    L'algorithme que j'avais envisagé pour la 1. est :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    - Effacer tous les guillemets déjà installés 
    - TANT QUE nous n'arrivons pas à la fin du texte
       - SI je trouve "<" ALORS
           - SI je trouve ">" ALORS
                 * (entre les deux éléments trouvés)
                 - SI je trouve "=" ALORS remplacer par " =" "
                 - SI je trouve " " ALORS 
                       - SI je trouve "/>" ALORS remplacer par ""/>"
                       - SI je trouve ">" ALORS remplacer par "">"
                 - FIN SI
           - FIN SI
       - FIN SI
    - FIN TANT QUE
    L'algorithme pour la 2. est :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    - TANT QUE nous n'arrivons pas à la fin du texte
       - SI je trouve "<" ALORS
           - SI je trouve ">" ALORS
               - SI je trouve " " ALORS supprimer jusqu'à "/" OU jusqu'à ">"
           - FIN SI
       - FIN SI
    - FIN TANT QUE
    Est-ce que vous pourriez me donner des conseils ? Quelle méthode vous parait la plus propre ? La plus simple à mettre en oeuvre ? Ou bien... si vous avez une autre suggestion...

    J'espère que vous avez compris mon problème et que vous pourrez m'aider !


    P.S. : La question est posée de la même manière pour effectuer le même traitement sous OpenOffice.org...

  2. #2
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    Bonjour,

    - La fonction InStr(Chaine, sous-cchaine) renvoie la position d'une sous-chaine dans une chaine
    - La fonction Left(n) renvoie les n caractères de gauche d'une chaine
    - La fonction Right(n) renvoie les n caractères de Droite d'une chaine
    - La fonction Mid(Chaine, n1, n2) renvoie les caractères se situant à partir de n1 sur une longueur de n2 caractères

    Avec ça tu devrais t'en sortir.

Discussions similaires

  1. [XL-2003] Insertion de code HTML en VBA -> Est-ce possible ?
    Par souffle56 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 26/08/2009, 20h07
  2. [VBA] recuperer code html
    Par ricoree78 dans le forum Général VBA
    Réponses: 2
    Dernier message: 21/03/2007, 09h07
  3. [VBA Excel] Récuperer le code source d'une page html dans un string
    Par viniboy dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 26/07/2006, 19h11
  4. Générer du code HTML
    Par patpst dans le forum C++Builder
    Réponses: 4
    Dernier message: 27/11/2002, 10h27
  5. composant builder4 pour afficher du code html
    Par BranRuz dans le forum C++Builder
    Réponses: 2
    Dernier message: 04/09/2002, 11h35

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