Analisando arquivo XML grande com PL / SQL
Eu estou tentando analisar um arquivo XML muito grande. O arquivo é grande o suficiente para tornar impossível o uso do VARCHAR2, então eu decidi usar o CLOB. O código parece bem, mas ainda recebo um erro.
Aqui está uma amostra do arquivo xml que estou analisando:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<SeznamOvmIndex>
<Subjekt>
<Zkratka>CUZK</Zkratka>
<ICO>00025712</ICO>
<Nazev>Český úřad zeměměřický a katastrální</Nazev>
<AdresaUradu>
<AdresniBod>25133616</AdresniBod>
<UliceNazev>Pod sídlištěm</UliceNazev>
<CisloDomovni>1800</CisloDomovni>
<CisloOrientacni>9</CisloOrientacni>
<ObecNazev>Praha</ObecNazev>
<ObecKod>554782</ObecKod>
<PSC>18200</PSC>
<KrajNazev>Hlavní město Praha</KrajNazev>
</AdresaUradu>
<Email>
<Polozka>
<Typ text="podatelna">2</Typ>
<Email>[email protected]</Email>
<Poznamka>Elektronická podatelna ČÚZK</Poznamka>
</Polozka>
</Email>
<TypSubjektu id="11">Orgán státní správy</TypSubjektu>
<PravniForma type="325">Organizační složka státu</PravniForma>
<PrimarniOvm>Ano</PrimarniOvm>
<IdDS>uuaaatg</IdDS>
<TypDS>OVM</TypDS>
<StavDS>1</StavDS>
<StavSubjektu>1</StavSubjektu>
<DetailSubjektu>http://seznam.gov.cz/ovm/datafile.do?format=xml&service=seznamovm&id=CUZK</DetailSubjektu>
</Subjekt>
</SeznamOvmIndex>
E isso é código:
SET SERVEROUTPUT ON
DECLARE
xmlClob CLOB;
xmlFile UTL_FILE.FILE_TYPE;
x XMLType;
BEGIN
xmlFile := UTL_FILE.FOPEN('XMLPARSERADRESYCUZK', 'pokus.xml','R');
LOOP
BEGIN
UTL_FILE.GET_LINE(xmlFile,xmlClob,NULL);
EXCEPTION WHEN No_Data_Found THEN EXIT; END;
END LOOP;
UTL_FILE.FCLOSE(xmlFIle);
x := XMLType.createXML(xmlClob);
FOR r IN (
SELECT ExtractValue(Value(p),'/Subjekt/Zkratka/text()') as kod
,ExtractValue(Value(p),'/Subjekt/AdresaUradu/UliceNazev/text()') as ulice
,ExtractValue(Value(p),'/Subjekt/AdresaUradu/CisloDomovni/text()') as cislo_domovni
,ExtractValue(Value(p),'/Subjekt/AdresaUradu/CisloOrientacni/text()') as cislo_orientacni
FROM TABLE(XMLSequence(Extract(x,'/SeznamOvmIndex/Subjekt'))) p
WHERE ExtractValue(Value(p),'/Subjekt/Zkratka/text()') = 'CUZK'
) LOOP
dbms_output.put_line(r.kod||' '||r.ulice||' '||r.cislo_domovni||'/'||r.cislo_orientacni);
END LOOP;
END;
Eu acho que deve funcionar bem, mas quando eu tenho o SQL Developer eu tenho:
Erro na linha 1 ORA-06512: na "SYS.XMLTYPE", linha 5 ORA-06512: na linha 13 31011. 00000 - "Análise XML falhou" * Causa: O analisador XML retornou um erro ao tentar analisar o documento. * Ação: Verifique se o documento a ser analisado é válido.