Discussion :

[gaby44]

Bonjour,

Je cherche à supprimer certains elements d'un fichier xml.

Voici le début du fichier en question:

Code :

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

1
2
3
4
5
<?xml version="1.0" encoding="utf-16"?>
<ArrayOfWF_Produit xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <WF_Produit>
    <CategorieCommercialeAchat xmlns="http://www.sage.com/fr/line1000/webservicesfacturation">APRIN</CategorieCommercialeAchat>
    <CategorieCommercialeVente xmlns="http://www.sage.com/fr/line1000/webservicesfacturation">VPRIN</CategorieCommercialeVente>

Et je souhaite supprimer les "xmlns="http://www.sage.com/fr/line1000/webservicesfacturation""

Ce qui donnerait:

Code :

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

1
2
3
4
5
<?xml version="1.0" encoding="utf-16"?>
<ArrayOfWF_Produit xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <WF_Produit>
	  <CategorieCommercialeAchat >APRIN</CategorieCommercialeAchat>
    <CategorieCommercialeVente>VPRIN</CategorieCommercialeVente>

Bien sur je voudrait que ça se fasse automatiquement, via un script peut-être?

Je débute juste en VS donc soyez indulgent svp

Merci

[elsuket]

Bonjour,

e débute juste en VS donc soyez indulgent svp

Vous voulez le faire dans une classe ou bien dans la base de données ?

@++

[gaby44]

Je souhaite le faire dans une classe, en gros qu'on remplace "xmlns="http://www.sage.com/fr/line1000/webservicesfacturation" par un simple espace par exemple.

Une idée?

Merci =)

[zinzineti]

Fonction REPLACE

[gaby44]

ouaip c'est ce que j'ai fais mais ça ne fonctionne pas.
Il faut peut-être faire un write après pour ré-écrire dans le fichier nn?

Voici le code que j'ai écrit:

Code :

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

1
2
3
4
5
6
7
        If InStr(1, sLine, "xmlns=""http://www.sage.com/fr/line1000/webservicesfacturation""", vbTextCompare) <> 0 Then
            bValueExists = True
            sLine = Replace(sLine, "xmlns=""http://www.sage.com/fr/line1000/webservicesfacturation""", "")
            MsgBox(sLine.IndexOf("xmlns=""http://www.sage.com/fr/line1000/webservicesfacturation"""))
        Else
            bValueExists = False
        End If

C'est pas très propre certes mais c'est pour le principe ^^

EDIT: Le soucis c'est que je traite les lignes 1 par 1, du coup est-ce que je peux réinjecter la ligne en cours de traitement dans le fichier et A LA BONNE PLACE?
Je peux pas traiter le fichier tout entier car il fait plus de 5000 lignes et j'ai pas l'impression qu'il n'arrive pas à traiter les long fichiers...

[SQLpro]

Un doc XML se manipule avec des méthodes XML, c'est pas du caractères.

Vous avez la méthode modify pour cela.

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DECLARE @XML XML
SET @XML = '<?xml version="1.0"?>
<ArrayOfWF_Produit xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <WF_Produit>
    <CategorieCommercialeAchat xmlns="http://www.sage.com/fr/line1000/webservicesfacturation">APRIN</CategorieCommercialeAchat>
    <CategorieCommercialeVente xmlns="http://www.sage.com/fr/line1000/webservicesfacturation">VPRIN</CategorieCommercialeVente>
  </WF_Produit>
</ArrayOfWF_Produit>'
 
SET @XML = @XML.modify('
delete /ArrayOfWF_Produit/WF_Produit/CategorieCommercialeAchat/@xmlns
')
 
SELECT @XML

A +