Lecture d'un fichier XML par PL/SQL sous oracle10g

[nejib salem]

Bonjour,

Je viens de créer trois procédures pour la lecture d'un fichier XML par PL/SQL
sous oracle 10g.
======== la procedure N° 1 ==================

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CREATE OR REPLACE procedure afficherElement(doc xmlDom.DOMDocument) IS
lesNoeuds xmlDom.DOMNodeList;
longueur number;
noeud xmlDom.DOMNode;
begin
---- obtenir tous les elements du document
lesNoeuds := xmlDom.getElementsByTagName(doc,'*');
longueur := xmlDom.getLength(lesNoeuds);
 
---- parcourir tous les elements à l'aide d'une boucle
FOR i IN 0 .. longueur - 1
loop
noeud := xmlDom.item(lesNoeuds,i);
dbms_output.put(xmlDom.getNodeName(noeud) ||' ');
end loop;
---- passer à la ligne suivante
dbms_output.put_line (' ');
end;

=============== la procedure N° 2 ================

Code :

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
31
32
33
34
35
36
37
CREATE OR REPLACE procedure afficherAttributs(doc xmlDom.DOMDocument) IS
lesNoeuds Xmldom.DOMNodeList;
lg1 number;
lg2 number;
noeud xmlDom.DOMNode;
element Xmldom.DOMElement;
lesAttributs xmldom.DOMNamedNodeMap;
nomAttr varchar2(100);
valeurAttr varchar2(100);
begin
--- obtenir tous les elements
lesNoeuds := xmlDom.getElementsByTagName(doc,'*');
lg1 := xmlDom.getLength(lesNoeuds);
--- parcourir tous les elements
FOR i IN 0 .. lg1 - 1 
loop
noeud := xmldom.item(lesNoeuds , i);
element := xmldom.makeElement(noeud);
--- nom de la balise
dbms_output.put_line(xmldom.getTagName(element) || ':');
--- obtenir tous les attributs de cet element
lesAttributs := xmldom.getAttributes(noeud);
IF (xmldom.isNull(lesAttributs)= FALSE)
then
lg2 := xmldom.getLength(lesAttributs);
--- parcourir tous les attributs
FOR j IN 0 .. lg2 - 1 
loop
noeud := xmldom.item(lesAttributs , j);
nomAttr := xmldom.getNodeName(noeud);
valeurAttr := xmldom.getNodeValue(noeud);
dbms_output.put(' '|| nomAttr || '='||valeurAttr);
end loop;
dbms_output.put_line (' ');
end IF;
end loop;
end;

=============== la procedure N° 3 ==============

Code :

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
31
CREATE OR REPLACE procedure lirexml(
repertoire IN varchar2,
fichier IN varchar2,
fichier_erreur IN varchar2 )
IS
p xmlparser.Parser;
doc xmldom.DOMDocument;
begin
-- nouveau parser
p := xmlparser.newParser;
--- fixer quelques caracteristiques du parser
XMLDOM.SetVersion(doc,'1.0');
XMLDOM.SetCharSet(doc,'UTF-8');
xmlparser.setValidationMode(p,FALSE);
xmlparser.setErrorLog(p,repertoire||'\'||fichier_erreur);
xmlparser.setBaseDir(p,repertoire);
--- analyser le fichier XML
xmlparser.parse(p,repertoire||'\'||fichier);
--- obtenir le document
doc := xmlparser.getDocument(p);
--- afficher les differents elements
dbms_output.put_line('les elements du documents sont : ');
afficherelement(doc);
--- afficher les attributs de chaque element
dbms_output.put_line('les attributs des elements sont : ');
afficherattributs(doc);
--- liberer le document
xmldom.freeDocument(doc);
--- liberer le parser
xmlparser.freeParser(p);
end;

========= pour la complitation pas des problemes =====
au moment de l’exécution :

Code :

execute lireXml('C:\mecasoft\oracle_xml','equipe.xml','erreur.txt');

Le message suivant s'affiche :

ERROR at line 1:
ORA-31020: The operation is not allowed, Reason: Not supported
ORA-06512: at "XDB.DBMS_XMLPARSER", line 395
ORA-06512: at "SALEM.LIREXML", line 15
ORA-06512: at line 1

============= mon fichier equipe.xml ======

<?xml version="1.0" standalone="no" encoding="UTF-8"?>
<!DOCTYPE equipe SYSTEM "equipe.dtd">
<equipe nom="US POSTAL" pays ="USA">
    <coureur numero="001"> SALEM </coureur>
    <coureur numero="002"> NEJIB </coureur>
    <coureur numero="003"> HAMZA </coureur>
    <coureur numero="004"> KHALED </coureur>
    <coureur numero="005"> BECHIR </coureur>
    <coureur numero="006"> ALI </coureur>
   <coureur numero="007"> MOHAMED </coureur>
   <coureur numero="008"> FAOUZI </coureur>
</equiipe>

[xdescamp]

Bonjour,

Il y a une erreur dans le flux XML : la balise fermant de "equipe" contient une faute de frappe (il y a 2 "i"). Je ne suis pas certain que ça soit l'origine du message d'erreur, mais ça ne peut pas fonctionner.

Une autre cause possible de l'erreur peut être l'encoding du flux.

[xdescamp]

Envoyé par nejib salem

je viens de corriger mon fichier xml mais le probleme persiste
merci de ta collaboration

Est-ce qu'il y a bien un DIRECTORY de créé pointant sur le répertoire 'C:\mecasoft' ?
Est-ce que la base de données a bien les droits de l'ecture / écriture sur ce répertoire ?
Est-ce que le fichier d'erreur est généré, et si oui que contient-il ?