如何检查XML文件中是否存在节点并在Progress4GL中检索值

DEFINE VARIABLE hXml AS HANDLE NO-UNDO.
DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE cNodePath AS CHARACTER NO-UNDO.
DEFINE VARIABLE cNodeValue AS CHARACTER NO-UNDO.

/* 设置XML文件路径 */
ASSIGN cFileName = "path_to_xml_file.xml".
/* 设置要检查的节点路径 */
ASSIGN cNodePath = "/root/node/subnode".

/* 创建XML-READER对象 */
CREATE XML-READER hXml.
/* 打开XML文件 */
hXml:SET-INPUT(cFileName).

/* 检查节点是否存在 */
IF hXml:READ-NEXT-ELEMENT(cNodePath) THEN DO:
    /* 节点存在，检索节点的值 */
    ASSIGN cNodeValue = hXml:GET-STRING-VALUE().
    MESSAGE "节点值为:" cNodeValue VIEW-AS ALERT-BOX.
END.
ELSE DO:
    /* 节点不存在 */
    MESSAGE "节点不存在" VIEW-AS ALERT-BOX.
END.

/* 关闭XML文件 */
hXml:SET-INPUT("").

/* 释放XML-READER对象 */
DELETE OBJECT hXml.