指定屬性名稱並添加子文件

Question

試圖找出如何添加屬性名稱和更多節點。到目前爲止的代碼：

'Create the xmlDoc with Views root 
Dim doc As New XmlDocument 
doc.LoadXml("<Views></Views>") 

'Add a View element 
Dim vElem As XmlElement = doc.CreateElement("View") 
vElem.InnerXml = "Name" 
vElem.InnerText = "vACCESS" 
doc.DocumentElement.AppendChild(vElem) 

'Set writer settings 
Dim sett As New XmlWriterSettings 
sett.Indent = True 

'Save file and indent 
Dim sw As XmlWriter = XmlWriter.Create("d:\input\data.xml", sett) 
doc.Save(sw) 

我得到這個：

<?xml version="1.0" encoding="utf-8"?> 
<Views> 
    <View>vACCESS</View> 
</Views> 

但我想是這樣的：

<?xml version="1.0" encoding="utf-8"?> 
<Views Code="Sample1"> 
    <View Name="vACCESS"> 
     <Criteria>ACCESS</CRITERIA> 
    </View> 
</Views> 

Answer 1

到<Views>元素添加屬性，您需要作爲一個元素來處理它。一旦你有一個元素，你只需使用​​。

'Create the xmlDoc with Views root 
Dim doc As New XmlDocument 
doc.LoadXml("<Views></Views>") 

'Enumerate the root element and add the attribute 
Dim rElem As XmlElement = doc.FirstChild 
rElem.SetAttribute("Code", "Sample1") 

'Add a View element and attribute 
Dim vElem As XmlElement = doc.CreateElement("View") 
vElem.SetAttribute("Name", "vACCESS") 

Dim cElem As XmlElement = doc.CreateElement("Criteria") 
cElem.InnerText = "ACCESS" 

vElem.AppendChild(cElem) 

doc.DocumentElement.AppendChild(vElem) 

'Set writer settings 
Dim sett As New XmlWriterSettings 
sett.Indent = True 

'Save file And indent 
Dim sw As XmlWriter = XmlWriter.Create("c:\temp\data.xml", sett) 
doc.Save(sw)