Discussion :

[Coco47]

Bonjour à tous,

Dans le cadre d'un projet je dois manipuler un fichier XML avec VBA.
Jusqu'à mainteant j'arrive à l'ouvrir, le parcourir et même le mofier. Mais une fois que je veux le sauvegarder j'ai une erreur qui apparait :

le code que j'utilise est assez simple :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub StartEditingXMLFile()
 
    Dim stFichier As String
    Dim xmlDoc As DOMDocument, rootXML As IXMLDOMElement
 
    stFichier = Application.GetOpenFilename
 
    If stFichier = faux Then Exit Sub
 
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.Load stFichier
    Set rootXML = xmlDoc.DocumentElement
 
 
    If Not rootXML Is Nothing Then
        Set wksEd = ThisWorkbook.Worksheets("Editing")
 
        'On va parcourir la feuille complête pour traiter toutes les dépendances
        For Each rngDep In wksEd.Range("A2:A" & wksEd.Range("A65536").End(xlUp).Row)
            'On commence par aller remplacer la valeur de la dépendance
            EditDependency rootXML, rngDep.value, rngDep.Offset(0, 3).value
 
            'DEBUG : stop la boucle for pour tester direct la sauvegarde
            Exit For
        Next rngDep
 
        xmlDoc.Save (Split(stFichier, ".")(0) & "_edited." & Split(stFichier, ".")(1))
    End If
End Sub

Une fois cliqué sur OK sur le message d'erreur je peux voir le fivhier créé, il existe bien mais n'est pas complet. Il se termine brusquement au millieu d'une ligne :

Code :

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

1
2
3
4
5
6
7
		<Material Name="N91128101" BaseUnitOfMeasure="EA" Configurable="true" MaterialGroup="MC" IncludedByReference="true">
			<Properties>
			<ConfigurationProfiles>
			<ClassReferences>
			<LongTexts>
			<Translations>
				<Translation LanguageISO="ZH" Text="

Dans le fichier origninal j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
		<Material Name="N91128101" BaseUnitOfMeasure="EA" Configurable="true" MaterialGroup="MC" IncludedByReference="true">
			<Properties>
			<ConfigurationProfiles>
			<ClassReferences>
			<LongTexts>
			<Translations>
				<Translation LanguageISO="ZH" Text="红外手操器"/>
				<Translation LanguageISO="DE" Text="ZUBEHÖR FOR NP1213@"/>
				<Translation LanguageISO="EN" Text="ACCESSORIES FOR NP1213@"/>
			</Translations>
			<BOMs>
			<CharacteristicDomains>
        </Material>

J'ai essayer de supprimer ce "Material" et le code a poursuivi pour fianlement planter plus loin à un matérial qui possède le même type de valeur pour son attributs Text à savoir :

Code :

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

"红外手操器"

J'ai l'impression que le problème viens du format de la donnée. Vous auriez une idée ?

Merci d'avance.

[mjpmjp]

bonjour,
a tu essayé avec Chr() pour les codes "spéciaux" (&#@"...) ?
@+JP

[mjpmjp]

bonjour,

code ASCII de 0 à 127

&=38
#=35
@=64
"=34
pour :

Code :

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

1
2
 
Text="红外手操器"/>

Text= Chr(38) & Chr(35) & "32418;" & Chr(38) & Chr(35) & "22806;" & Chr(38) & Chr(35) & "25163;" & Chr(38) & Chr(35) & "25805;" & Chr(38) & Chr(35) & "22120;"/>

à voir la function Replace(dansLigneTexte,ARemplacer,par)

@+JP

[Coco47]

Bonjour Merci pour votre réponse.

En continuant à chercher de mon coté je crois que j'ai trouvé d'où vient le problème. A priori ça serait à cause du format d'encodage des données du .xml.

Mon fichier d'entrée est US-ASCII et j'ai l'impression que ce format n'est pas géré par vba. En fait en regardant de plus pres je m'apperçoit que les données ne peuvent pas ^^etre écrites parce qu'à la base elle ne sont pas lues. Dans VBA j'ai "????" au lieu des codes.

Ces codes & #32418 sont en fait des codes de caractères chinois.

Maintenant je ne sais pas comment faire pour ouvrir mon fichier xml avec VBA et que celui-ci accepte le format US-ACSII et donc les codes qui posent problème .

[mjpmjp]

bonjour,

Ces codes & #32418 sont en fait des codes de caractères chinois.

je confirme :
Text="红外手操器"/>

@+JP

[Coco47]

Je ne veux pas traduire les caractères chinois, je voudrais qu'il soit interprétés correctement par mon VBA pour ensuite les retrouver lors de la sauvegarde...

[mjpmjp]

bonjour,

je voudrais qu'il soit interprétés correctement par mon VBA pour ensuite les retrouver lors de la sauvegarde...

interprétés correctement par mon VBA : dans ce sens là ?

Code :

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

1
2
 
Text= Chr(38) & Chr(35) & "32418;" & Chr(38) & Chr(35) & "22806;" & Chr(38) & Chr(35) & "25163;" & Chr(38) & Chr(35) & "25805;" & Chr(38) & Chr(35) & "22120;"/>

@+JP

[Coco47]

En fait quand j'ouvre mon xml via la fonction : xmlDoc.Load je n'ai pas vraiment de maitrise ça ce fait tout seul.

Et une fois le fichier ouvert quand quand j'explore l'objet xmlDoc j'ai ça :


Donc je peux même pas le convertir comme tu dis. A ce que j'ai compris ça doit être un truc avec le format d'encodage entre celui du fichier et celui avec lequel la fonction .Load l'ouvre.

[mjpmjp]

bonjour,
comment tu as fait pour avoir ces lignes ?

Code :

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

1
2
3
4
5
6
 
                         <Translations>
				<Translation LanguageISO="ZH" Text="红外手操器"/>
				<Translation LanguageISO="DE" Text="ZUBEHÖR FOR NP1213@"/>
				<Translation LanguageISO="EN" Text="ACCESSORIES FOR NP1213@"/>
			</Translations>

@+JP

[Coco47]

J'ouvre le fichier .xml avec notepad++

[mjpmjp]

bonjour,
tu as donc accès au problème :

Code :

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

1
2
 
Text="红外手操器"/>

et tu as la solution :

Code :

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

1
2
 
Text= Chr(38) & Chr(35) & "32418;" & Chr(38) & Chr(35) & "22806;" & Chr(38) & Chr(35) & "25163;" & Chr(38) & Chr(35) & "25805;" & Chr(38) & Chr(35) & "22120;"/>

est il possible ?:
de "traduire" le "xml" avant de le manipuler --> parcourir le fichier "txt" , traduire avec "Chr()" , sauvegarder et manipuler normalement le fichier "xml"

@+JP

[Coco47]

Re-bonjour JP,

Je ne suis pas sur de suivre ce que tu propose.
Tu me conseil d'ouvrir le fichier avec NotePad ou NotePad++ et de modifier les lignes avec les caratcères chinois par des lignes avec des Chr() ?
Ca va marcher ça ? Vba va l'interpréter correctement ?

Autre point je ne peux faire cette opération à la main, mon fichier contient 1118 lignes avec ce problème. Peut être pourrais utliser vba pour ouvrir le .xml en tant que fichier texte, le manipuler de la sorte et ensuite le rouvir en xml...

[mjpmjp]

bonjour,

Peut être pourrais utliser vba pour ouvrir le .xml en tant que fichier texte, le manipuler de la sorte et ensuite le rouvir en xml...

oui, , c'est exactement çà..

une précision IMPORTANTE ce n'est pas les caractères "Chinois" que tu traduit mais les caractères "Spéciaux" ( voir code ASCII de 0 à 127)

@+JP

[Coco47]

Merci.

Je viens de faire l'essai à la main sur une ligne et le résultat c'est que vba n'arrive plus a ouvrir le .xml une fois la modif faites.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        <Material Name="N91128101" BaseUnitOfMeasure="EA" Configurable="true" MaterialGroup="MC" IncludedByReference="true">
            <Properties>
            <ConfigurationProfiles>
            <ClassReferences>
            <LongTexts>
            <Translations>
                <Translation LanguageISO="ZH" Text= Chr(38) & Chr(35) & "32418;" & Chr(38) & Chr(35) & "22806;" & Chr(38) & Chr(35) & "25163;" & Chr(38) & Chr(35) & "25805;" & Chr(38) & Chr(35) & "22120;"/>
                <Translation LanguageISO="DE" Text="ZUBEHÖR FOR NP1213@"/>
                <Translation LanguageISO="EN" Text="ACCESSORIES FOR NP1213@"/>
            </Translations>
            <BOMs>
            <CharacteristicDomains>
        </Material>

[mjpmjp]

bonjour,
la difficulté est dans l'utilisation de "&" pour lier les Chr()

pour remplacer un caractère , tu peu utiliser
DansLaLigne = Replace(DansLaLigne , CeCaractere , "Chr()")

dans ce cas :Text=" & # 32418 ;
DansLaLigne = Replace(DansLaLigne , Chr(34) & Chr(38) & Chr(35) , "Chr(38) & Chr(35) & " & Chr(34))

ce qui ce traduit par : Text=Chr(38) & Chr(35) & "32418;

@+JP

[mjpmjp]

bonjour,

Je viens de faire l'essai à la main sur une ligne et le résultat c'est que vba n'arrive plus a ouvrir le .xml une fois la modif faites.

tu veux dire avec NotePad ?

si tu ouvre ton xlm avec NotePad et que tu sauve sans faire de modif , as tu le même problème ?

@+JP

[Coco47]

Non dans notepad ça marche toujours.

Là je fais des modifs à la main pour voir ce que ça donne. J'ai essayé tout ça :

<Translation LanguageISO="ZH" Text=Chr(38) & Chr(35) & "32418;" & Chr(38) & Chr(35) & "22806;" & Chr(38) & Chr(35) & "25163;" & Chr(38) & Chr(35) & "25805;" & Chr(38) & Chr(35) & "22120;"/>
<Translation LanguageISO="ZH" Text="& #32418;& #22806;& #25163;& #25805;& #22120;"/>
<Translation LanguageISO="ZH" Text="&# 32418;&# 22806;&# 25163;&# 25805;&# 22120;"/>
<Translation LanguageISO="ZH" Text="& # 32418;& # 22806;& # 25163;& # 25805;& # 22120;"/>
<Translation LanguageISO="ZH" Text=" & # 32418; & # 22806; & # 25163; & # 25805; & # 22120;"/>

Quelque soit la modif que je fasse cela provoque le même résultat, lorsque j'utilise la fonction xmlDoc.Load de vba pour ouvrir le fichier xml celle-ci me retourne "nothing" comme résultat.

[mjpmjp]

bonjour,
ce que je veut dire c'est :
une fois passé par NotePad et sans modif est ce que çà fonctionne ?
@+JP

[mjpmjp]

bonjour,
j'ai remarqué que ces 3 lignes étaient des traductions...
la ligne "DE" et "EN" traduisent "ZH"
a tu besoin de cette ligne?
si tu garde cette ligne avec Text="" ou si tu supprime cette ligne ?

@+JP

[Coco47]

oui, oui sans problème.

Après avoir fait toutes ces modifs sije reviens au code standard et que je sauvegarde avec notepad++ pas de soucis pour ouvrir le fichier avec vba...