[VB6] Remplacer l'ensemble des contenus des nodes par des CDATA

Remplacer l'ensemble des contenus des nodes par des CDATA [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 29-10-2015 à 17:37:32    

Bonjour,

 

Je manipule un fichier XML par les méthodes DOM sous VB6, mais j'aimerai remplacer le texte de chaque node par un CDATA contenant ce texte.
Mon XML est une arborescence classique.
Y a t'il un moyen simple de faire cela ? Est ce qu'une simple commande xsl serait plus puissante ?

 

C'est vraiment pénible d'avoir les node.Text en read only pour ce genre de cas :/

 

Merci d'avance.


Message édité par Topher85 le 29-10-2015 à 17:56:58

---------------
Pseudo LoL : TheLittleTopher.
Reply

Marsh Posté le 29-10-2015 à 17:37:32   

Reply

Marsh Posté le 30-10-2015 à 16:53:17    

Bon, j'ai pu avancer, j'arrive bien à remplacer chaque contenu de balise par son contenu dans un CDATA.
En revanche, il me reste un bug que je n'arrive pas à corriger, juste après le dernier childnode, j'ai la concatenation des contenus de chaque childnode.

 

Une partie du XML en sortie  :

Code :
  1. <plate>
  2.   <tb_name><![CDATA[{0010A20F-0000-0000-EE01-4D7C9D551E04}-PLATE]]></tb_name>
  3.   <geometry>
  4.      <project><![CDATA[DCM]]></project>
  5.      <name><![CDATA[name]]></name>
  6.      <date><![CDATA[DOCUMENT_VERSION]]></date>
  7.      <view><![CDATA[?VIEW?]]></view>
  8.      <file><![CDATA[?FILE?]]></file>
  9. <![CDATA[nameDOCUMENT_VERSION?VIEW??FILE?]]>   </geometry>
  10.     <feasibility><![CDATA[]]></feasibility>
  11. </plate>
 


Le XML que je voudrais  :

Code :
  1. <plate>
  2.   <tb_name><![CDATA[{0010A20F-0000-0000-EE01-4D7C9D551E04}-PLATE]]></tb_name>
  3.   <geometry>
  4.      <project><![CDATA[DCM]]></project>
  5.      <name><![CDATA[name]]></name>
  6.      <date><![CDATA[DOCUMENT_VERSION]]></date>
  7.      <view><![CDATA[?VIEW?]]></view>
  8.      <file><![CDATA[?FILE?]]></file>
  9.   </geometry>
  10.     <feasibility><![CDATA[]]></feasibility>
  11. </plate>
 

La fonction récursive de traitement à laquelle je passe le XMLDOMElement <plate> :

 
Code :
  1. Private Sub ConvertIntoCDATA(ByVal oDoc As IXMLDOMDocument, ByVal oNode As IXMLDOMNode)
  3.     Dim oNodeParent             As IXMLDOMElement
  4.     Dim oNodeCreated            As IXMLDOMElement
  5.    
  6.     Dim oNodeCreatedCDATA       As IXMLDOMCDATASection
  7.    
  8.     Dim oChild                  As IXMLDOMNode
  9.     Dim sChild                  As IXMLDOMNode
  10.     Dim child                   As IXMLDOMNode
  12.     Dim text_only               As Boolean
  14.     ' Do nothing if this is a text node.
  15.     If TypeOf oNode Is IXMLDOMText Then Exit Sub
  16.    
  17.     ' See if this node contains only text.
  18.     text_only = True
  19.     If oNode.hasChildNodes Then
  20.         For Each child In oNode.childNodes
  21.             If Not (TypeOf child Is IXMLDOMText) Then
  22.                 text_only = False
  23.                 Exit For
  24.             End If
  25.         Next child
  26.     End If
  28.     ' Process child nodes.
  29.     If oNode.hasChildNodes Then
  30.         Set oNodeParent = oNode.parentNode
  31.         Set oNodeCreated = oDoc.createElement(oNode.baseName)
  33.         Set oNodeCreatedCDATA = oDoc.createCDATASection(oNode.Text)
  35.         For Each oChild In oNode.childNodes
  36.             If text_only = True Then
  37.                 If oNode.lastChild.baseName = oChild.baseName Then
  38.                    Call oNode.removeChild(oChild)
  39.                 End If
  40.             End If
  41.             ConvertIntoCDATA oDoc, oChild
  42.         Next
  43.        
  44.         Call oNode.appendChild(oNodeCreatedCDATA)
  45.     End If
  47. End Sub
 

Je n'arrive pas à faire disparaître cette concatenation :(


Message édité par Topher85 le 30-10-2015 à 17:03:54

---------------
Pseudo LoL : TheLittleTopher.
Reply

Sujets relatifs:

Leave a Replay

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