asp.net 操作XML 按指定格式写入XML数据 WriteXml

Private Sub WriteXml() 
Try 
Create(strFName, "NewDataSet") 
SaveXMLFile("gg", "NewDataSet", True) 
Catch ex As Exception 
MsgBox(ex.Message) 
End Try 
End Sub 
Private Function Create(ByVal FileName As String, ByVal Root As String) As Boolean 
Dim NewXML As XmlTextWriter = Nothing 
Irowcount = objDataSet.Tables("DataAnalyseVIEW").Rows.Count 
Icolcount = objDataSet.Tables("DataAnalyseVIEW").Columns.Count 
Try 
NewXML = New XmlTextWriter(FileName, Nothing) 
NewXML.Formatting = Formatting.Indented 
NewXML.WriteStartDocument() 
NewXML.WriteComment(My.Application.Info.AssemblyName & " Settings ") '项目名称 
NewXML.WriteStartElement(Root) 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").TableName.ToString()) 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(2).ColumnName().ToString()) 
NewXML.WriteString(objDataSet.Tables("SerialNumberTable").Rows(txtN)("SerialNumber").ToString()) 
NewXML.WriteEndElement() 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(3).ColumnName().ToString()) 
NewXML.WriteString(objDataSet.Tables("DataAnalyseVIEW").Rows(0)("Client").ToString()) 
NewXML.WriteEndElement() 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(5).ColumnName().ToString()) 
NewXML.WriteString(objDataSet.Tables("DataAnalyseVIEW").Rows(0)("Productor").ToString()) 
NewXML.WriteEndElement() 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(6).ColumnName().ToString()) 
NewXML.WriteString(objDataSet.Tables("DataAnalyseVIEW").Rows(0)("Model").ToString()) 
NewXML.WriteEndElement() 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(4).ColumnName().ToString()) 
NewXML.WriteString(objDataSet.Tables("DataAnalyseVIEW").Rows(0)("StationName").ToString()) 
NewXML.WriteEndElement() 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(7).ColumnName().ToString()) 
NewXML.WriteString(objDataSet.Tables("DataAnalyseVIEW").Rows(0)("DataTime").ToString()) 
NewXML.WriteEndElement() 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(8).ColumnName().ToString()) 
NewXML.WriteString(objDataSet.Tables("DataAnalyseVIEW").Rows(0)("status").ToString()) 
NewXML.WriteEndElement() 
NewXML.WriteEndElement() 
Progressbar1.Step = 1 
Progressbar1.Value = 1 
Progressbar1.Visible = True 
For Irow = 0 To Irowcount - 1 
Progress(Irowcount - 1) 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").TableName.ToString()) 
For Icol = 0 To Icolcount - 1 
If Icol < 2 Or Icol > 7 Then 
NewXML.WriteStartElement(objDataSet.Tables("DataAnalyseVIEW").Columns(Icol).ColumnName().ToString) 
NewXML.WriteString(objDataSet.Tables("DataAnalyseVIEW").Rows(Irow)(Icol).ToString()) 
NewXML.WriteEndElement() 
End If 
Next 
NewXML.WriteEndElement() 
Next 
NewXML.WriteEndElement() 
NewXML.WriteEndElement() 
NewXML.Flush() 
NewXML.Close() 
Catch ex As Exception 
Debug.Print("Create - " & ex.Message) 
Return False 
Finally 
If NewXML IsNot Nothing Then 
NewXML.Close() 
NewXML = Nothing 
End If 
End Try 
Return True 
End Function 
Private Function SaveXMLFile(ByVal aSection As String, ByVal aKey As String, ByVal aValue As String) As Boolean 
Dim Paths() As String 
Dim n As Integer 
Dim Node, Node2 As XmlNode 
Dim Ele As XmlElement 
While Strings.Left(aSection, 1) = "/ " 
aSection = Strings.Mid(aSection, 2) 
End While 
If aSection = " " Then 
xmlDoc.DocumentElement.RemoveAll() 
Else 
Paths = Strings.Split(aSection, "/ ") 
Try 
Node = xmlDoc.DocumentElement.SelectSingleNode(Paths(n)) 
If Node Is Nothing Then 
Ele = xmlDoc.CreateElement(Paths(n)) 
Node = xmlDoc.DocumentElement.AppendChild(Ele) 
End If 
For n = 1 To Paths.Length - 1 
If Paths(n) = " " Then Continue For 
Node2 = Node.SelectSingleNode(Paths(n)) 
If Node2 Is Nothing Then 
Ele = xmlDoc.CreateElement(Paths(n)) 
Node2 = Node.AppendChild(Ele) 
End If 
Node = Node2 
Next 
If aKey = " " Then 
Node.RemoveAll() 
Else 
Ele = Node.Item(aKey) 
If Ele Is Nothing Then 
Ele = xmlDoc.CreateElement(aKey) 
Node.AppendChild(Ele) 
End If 
If aValue = " " Then 
Node.RemoveChild(Ele) 
Else 
Ele.InnerText = aValue 
End If 
End If 
Catch ex As Exception 
Debug.Print(ex.Message) 
Return False 
End Try 
End If 
xmlDoc.Save(strFileName) 
End Function 

本文asp.net 操作XML 按指定格式写入XML数据 WriteXml到此结束。不管你的梦想是什么，只有带着淡然的态度，做好当前的事情，才能如愿以偿。只有到了未来，才知道今天做的事情有什么意义。无论你选择做什么，那都是你理想的未来。能抓住机遇的人，大都是不假思索就作出选择的人。不能实现梦想的人，都是想要一样东西，却不愿意为之付出足够的努力。小编再次感谢大家对我们的支持！