VB / XML - modifier balises

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VB / XML - modifier balises

minimoack

Bonjour,

J'ai regardé les différents topics à ce sujet que j'ai pu trouvé, mais je n'ai pas réussi à l'adapter au code sur lequel je travaille.
En gros, j'ai des fichiers xml que je parcours, et je voudrais modifier toutes les lignes "commentaires".
Actuellement il y a ceci :

Code :

Do While Not EOF(InputFileNumber) ' Loop until end of file.
Line Input #InputFileNumber, TextLine
'Une fois la ligne commentaires trouvée on donne une valeur vide à value
If InStr(1, TextLine, "<Prop InternalName=""COMMENTAIRES"" " ) Then
Print #OutputFileNumber, "<Prop InternalName=""COMMENTAIRES"" Value="""" Label=""Commentaire"" />"
Else
Print #OutputFileNumber, TextLine
End If
Loop

Sauf que je voudrais si possible dire que à partir de <Prop InternalName="COMMENTAIRES" jusqu'à la fermeture de la balise />, il remplace tout par "<Prop InternalName=""COMMENTAIRES"" Value="""" Label=""Commentaire"" />".

Mon problème étant que ces lignes que je veux modifier peuvent se présenter de différentes manière :
sur plusieurs lignes :

Code :

<Prop InternalName="COMMENTAIRES"
Value="xxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Label="Commentaire" />

ou sur une seule :

Code :

<Prop InternalName="COMMENTAIRES" Value="xxx" Label="Commentaire" />

D'où la nécessité d'aller chercher la fermeture de balise...

Une idée ? J'ai vu qu'on pouvait modifier la valeur à l'intérieur d'une balise, avec les node, mais ce code parcourt un fichier je crois, et il ne spécifie pas xmlDocument. Y-a-t-il un moyen avec l'exemple que j'ai mis précédemment ou je dois modifier tout le code pour intégrer les xmlDocument?

:??:

Publicité

minimoack

On ne peut pas regarder la ligne précédente et la ligne suivante ?
J'ai essayé ça puis j'ai vu que TextLine renvoyait la valeur de la ligne... y'a pas un moyen de regarder la ligne + 1 et - 1 ?

Code :

'La ligne qu'on veut modifier peut se trouver sur plusieurs ou une seule lignes.
'On fait plusieurs tests pour le déterminer
'Une fois la ligne commentaires trouvée on donne une valeur vide à value
If InStr(1, TextLine, "<Prop InternalName=""COMMENTAIRES"" Value=" ) Then
'Si la prochaine ligne est Label, on ne ferme pas la balise
If InStr(1, TextLine + 1, "Label" ) Then
Print #OutputFileNumber, "<Prop InternalName=""COMMENTAIRES"" Value="""""; ""
Else 'Et si ce n'est pas le cas, il faut la fermer
Print #OutputFileNumber, "<Prop InternalName=""COMMENTAIRES"" Value="""" Label=""Commentaires"" />"
End If
Else
Print #OutputFileNumber, TextLine
End If

Message édité par minimoack le 14-04-2015 à 08:23:22

minimoack

Désolée j'ai oublié de mettre un exemple de mes balises.

Dans mes recherches pour modifier un fichier XMl, j'ai trouvé comment modifier la valeur d'une balise comme ça :
<CD> Valeur </CD>

Mais je voudrais modifier une balise qui ressemble à ça
<CD=disk Value="128Mb" Label="plop">

En gros pour mettre Value="" pour chaque <CD=disk

:??: :??: :??:

Marc L

Bonjour.

Là les fichiers sont traités comme de simples fichiers texte … Mais pourquoi ne pas utiliser Excel pour lire les fichiers XML ?

FAQ Excel - Manipuler les fichiers XML …

minimoack

Oui effectivement, mais vu que je "découvre" tout juste le code qu'on m'a donné, je voulais savoir s'il y a une solution sans tout le modifier en fait. Mais je vais surement me pencher sur cette solution au final, car je ne trouve pas beaucoup d'info ^^

Marc L

A noter aussi depuis la version 2007 la méthode Workbooks.OpenXML …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VB / XML - modifier balises

Sujets relatifs
Modifier son de A à Z uniquement avec le Dashboard de Wordpress?	VBA EXCEL impossible de modifier le contenu d'une cellule
Lecture Flux XML, Doublon et ressources SQL	suppression fichier avec macro VB
GoPro Hero - modifier la fréquence du time-lapse	Programme en VB Multicam
modifier archive tar en une seule ligne de code	[RESOLU] [POWERSHELL] Modifier des lignes précises sur un fichier
[AJAX] Load d'un fichier XML en ajax	Remplacer contenu texte entre 2 balises en batch
Plus de sujets relatifs à : VB / XML - modifier balises

Page générée en 0.077 secondes