在R中解析xml文件及其元素

missy morrow 发表于 Dev

明天小姐

我正在尝试解析具有以下结构的XML文件

 <xs:schema attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://12345hc.com/xsd">
            <xs:complexType name="Context">
                <xs:sequence>
                    <xs:element minOccurs="0" name="aNum" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="aId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="bURI" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="facility" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="fSessionId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="ID" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="pwrd" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="profileID" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="sToken" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="sId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="tId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="uNum" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="webURI" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="xZRT" nillable="true" type="xs:string"/>
                </xs:sequence>
            </xs:complexType>
        </xs:schema>

我试图选择具有name="Context"标签的节点，

在此标签中，选择标记为ID的元素，
<xs:element minOccurs="0" name="ID" nillable="true" type="xs:string"/>

并将值“ 111111”添加到此元素ID。

有关完成此操作的任何指示/答案将非常有帮助。提前致谢。

读

你可以做

txt <- '<xs:schema attributeFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" targetNamespace="http://12345hc.com/xsd">
            <xs:complexType name="Context">
                <xs:sequence>
                    <xs:element minOccurs="0" name="aNum" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="aId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="bURI" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="facility" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="fSessionId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="ID" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="pwrd" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="profileID" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="sToken" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="sId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="tId" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="uNum" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="webURI" nillable="true" type="xs:string"/>
                    <xs:element minOccurs="0" name="xZRT" nillable="true" type="xs:string"/>
                </xs:sequence>
            </xs:complexType>
        </xs:schema>'
library(XML)
xml <- xmlParse(txt, asText=TRUE)
ns <- getNodeSet(xml, '//*[@name="Context"]/xs:sequence/xs:element')
id <- which(sapply(ns, xmlGetAttr, "name") == "ID")
xmlValue(ns[[id]]) <- "11111"
xml
# <?xml version="1.0"?>
# <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://12345hc.com/xsd">
#   <xs:complexType name="Context">
#     <xs:sequence>
#       <xs:element minOccurs="0" name="aNum" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="aId" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="bURI" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="facility" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="fSessionId" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="ID" nillable="true" type="xs:string">11111</xs:element>
#       <xs:element minOccurs="0" name="pwrd" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="profileID" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="sToken" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="sId" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="tId" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="uNum" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="webURI" nillable="true" type="xs:string"/>
#       <xs:element minOccurs="0" name="xZRT" nillable="true" type="xs:string"/>
#     </xs:sequence>
#   </xs:complexType>
# </xs:schema>