Après windows pour les nuls, voici PB pour les bons (ou presque).

Le forum (ô combien francophone) des utilisateurs de Powerbuilder.

Recherche rapide

Annonce

Certaines rubriques, dont des cours, sont uniquement visibles par les membres du forum ^^.
Dans la rubrique Liens & Références, vous avez accès à un sommaire de téléchargement, profitez-en !
Il existe maintenant un nouveau TOPIC "Votre CV en Ligne" accessible uniquement par demande.

#1 21-02-2011 08:19:57

serval  
Nouveau membre
Date d'inscription: 11-10-2006
Messages: 1
Pépites: 10
Banque: 0

Export DW en XML sour PB8

Bonjour,

Je suis sous PB8 (et oui ça existe encore) et j'ai besoin d'exporter une datawindow vers un fichier XML (virement SEPA). Le SaveRowAs de cette version ne le permet pas. Quelqu'un l'a-t-il déjà fait avec une version < à la 9 ?

Merci de votre aide.

Hors ligne

 

#2 21-02-2011 08:23:14

erasorz  
Admin
Lieu: Babylone
Date d'inscription: 23-11-2006
Messages: 5121
Pépites: 97,197
Banque: 2,147,483,647

Re: Export DW en XML sour PB8

Bonjour, effectivement avant la version 9, il faut le faire "manuellement".
Un peu d'aide ici : http://www.sybase.com/detail?id=1013844


N'envoyez jamais un humain faire le travail d'un programme.

Hors ligne

 

#3 13-04-2011 07:40:13

Sebou  
Membre Power Geek
Lieu: Villeneuve-sur-Lot
Date d'inscription: 21-12-2007
Messages: 189
Pépites: 1,787
Banque: 13,693,461,510

Re: Export DW en XML sour PB8

Ahhh serval, je vois qu'on a les memes modifs à faire...Le fameux fichier SEPA !!

Heureusement pour moi, je ne l'ai pas encore attaqué...et comme on va passer sous PB12, j'espère que ca ira beaucoup mieux à faire

Bon courage en tout cas

Hors ligne

 

#4 13-04-2011 10:16:52

nico  
Modérateur
Award: bf
Lieu: Plélan le grand
Date d'inscription: 08-02-2007
Messages: 273
Pépites: 13
Banque: 9,223,372,036,854,776,000

Re: Export DW en XML sour PB8

Bonjour,

Peut-être que ça va t'aider un peu.
Je faisais de cette façon. D'autres solutions sont sans doute meilleur mais celle-ci fonctionne.

Code: pb

oleobject iole_document_xml, iole_prologue, iole_dataxml, iole_coord 

iole_document_xml = CREATE oleobject 
iole_prologue  = CREATE oleobject 
iole_dataxml = CREATE oleobject 
iole_coord = CREATE oleobject 

iole_document_xml.ConnectToNewObject( "MSXML2.DOMDocument.3.0" )

// Création du prologue
iole_prologue = iole_document_xml.CreateProcessingInstruction( "xml", "version='1.0' encoding='ISO-8859-1'" )
// Insertion du prologue
iole_document_xml.InsertBefore( iole_prologue, iole_document_xml.ChildNodes.Item(0) )

// Création du noeud racine
iole_dataxml = iole_document_xml.CreateElement( "DATAXML" )
// Ajout du noeud racine
iole_document_xml.DocumentElement = iole_dataxml

//Création d'un noeud "COORDONNEES" 
iole_coord= iole_document_xml.CreateElement( "COORD" )

// Création de l'attribut "Nom"
iole_coord.SetAttribute( "Nom", ls_nom )
// Création de l'attribut "Adresse"
iole_coord.SetAttribute( "Adresse", ls_adresse)
// Création de l'attribut "Codepostal"
iole_coord.SetAttribute( "Codepostal", ls_codepostal)

// Ajout du noeud "COORDONNEES"
iole_dataxml.AppendChild( iole_coord )


//***** SAUVEGARDE DU FICHIER XML  ******
oleobject rdr,  wrt, oStream

rdr = CREATE oleobject 
oStream = CREATE oleobject 
wrt = CREATE oleobject 

// Utilisation du parseur MSXML 3
rdr.ConnectToNewObject( "MSXML2.SAXXMLReader" )
wrt.ConnectToNewObject( "MSXML2.MXXMLWriter" )
oStream.ConnectToNewObject( "ADODB.STREAM" )

oStream.Open;
oStream.Charset = "WINDOWS-1252";
wrt.indent = True;
wrt.Encoding = "WINDOWS-1252";
wrt.standalone = True;
wrt.Version = "1.0";
wrt.output = oStream;
rdr.contentHandler = wrt;
rdr.errorHandler = wrt;
rdr.Parse(iole_document_xml)  ;

wrt.Flush ;

ls_path = "C:\temp\toto.XML"
// Sauvegarde du fichier XML
oStream.SaveToFile( ls_path) ;

Hors ligne

 

Pied de page des forums

Propulsé par FluxBB 1.2.22