PROSAGA码农传奇-openedge-如何使用Progress 4GL解析XML？

<div class =“post-text”itemprop =“text”>
  
    要解析XML in Progress，您有几个选择。在您的示例中都没有使用这些。
  
  
    选项：
  
  
    的
      DATASET和TEMP-TABLES可以读取（格式正确的）XML。
    </强>
  
  
    几乎所有XML都可以由代表XML的DATASET读取。对于简单的XML，这可以很容易。如果该xml与临时表的表示匹配，则临时表可以直接读取xml。除非xml确实是序列化临时表，否则通常不会这样。
  
  
    将xml读入数据集和临时表需要对数据集和临时表有相当的了解，以及如何使用“serialize-name”，“serialize-hidden”等属性对其进行格式化和调整。
  
  
    例子来自
    <a href="https://knowledgebase.progress.com/articles/Article/How-to-read-an-XML-in-a-temp-table-using-READ-XML" rel="nofollow noreferrer">
      https://knowledgebase.progress.com/articles/Article/How-to-read-an-XML-in-a-temp-table-using-READ-XML
    </A>
    ：
  
   <pre>
 <code>
 DEFINE VARIABLE lcc AS LONGCHAR INIT "<A>RedGreen</A>".

DEFINE TEMP-TABLE ttb SERIALIZE-NAME "B" 
    FIELD cc AS CHAR XML-NODE-TYPE "text".

DEFINE DATASET dsa SERIALIZE-NAME "A" FOR ttb.

DATASET dsa:READ-XML( "longchar", lcc, ?, ?, ? ).

FOR EACH ttb: 
    MESSAGE ttb.cc VIEW-AS ALERT-BOX. 
END.

</code>
 </pre>
  
    的
      文档对象模型（X-DOCUMENT）
    </强>
  
  
    使用DOM创建一个X-DOCUMENT对象，它可以读取xml。然后，您将拥有一个包含XML数据的树结构。你必须自己解析，所以准备好走节点树......
  
  
    示例（复制自
    <a href="https://knowledgebase.progress.com/articles/Article/P21055" rel="nofollow noreferrer">
      https://knowledgebase.progress.com/articles/Article/P21055
    </A>
    ）：
  
  <BLOCKQUOTE>
    
      下面的代码读取一个名为personal.xml的文件，处理其所有子节点，并在节点名称为“person”时显示信息：
    
  </BLOCKQUOTE>
   <pre>
 <code>
 /* e-attnam.p */
DEFINE VARIABLE hDoc AS HANDLE NO-UNDO.
DEFINE VARIABLE hRoot AS HANDLE NO-UNDO.
DEFINE VARIABLE good AS LOGICAL NO-UNDO.

CREATE X-DOCUMENT hDoc.
CREATE X-NODEREF hRoot.

hDoc:LOAD("file","personal.xml",TRUE).

hDoc:GET-DOCUMENT-ELEMENT(hRoot).

RUN GetChildren(hRoot, 1).

DELETE OBJECT hDoc.
DELETE OBJECT hRoot.

PROCEDURE GetChildren:
DEFINE INPUT PARAMETER hParent AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER level AS INTEGER NO-UNDO.

DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE hNoderef AS HANDLE NO-UNDO.

CREATE X-NODEREF hNoderef.

REPEAT i = 1 TO hParent:NUM-CHILDREN:
 good = hParent:GET-CHILD(hNoderef,i).
 IF NOT good THEN
LEAVE.
 IF hNoderef:SUBTYPE <> "element" THEN
NEXT.
 IF hNoderef:NAME = "person" THEN
 MESSAGE "getattr id gives" hNoderef:GET-ATTRIBUTE("id") hNoderef:ATTRIBUTE-NAMES.
 RUN GetChildren(hNoderef, (level + 1)).
END.

DELETE OBJECT hNoderef.
END PROCEDURE.

</code>
 </pre>
  
    的
      简单的XML API（SAX）
    </强>
  
  
    这可能是一种更轻量级的XML方法。您将不得不编写“反应”XML中某些节点存在的代码。
  
  
    示例可以在
    <a href="https://knowledgebase.progress.com/articles/Article/000035469" rel="nofollow noreferrer">
      https://knowledgebase.progress.com/articles/Article/000035469
    </A>
  
  
    对于所有XML和进展：
    <a href="https://documentation.progress.com/output/ua/OpenEdge_latest/index.html#page/dvxml%2Fpreface.html%23" rel="nofollow noreferrer">
      https://documentation.progress.com/output/ua/OpenEdge_latest/index.html#page/dvxml%2Fpreface.html%23
    </A>
  
</DIV>