手机
当前位置:查字典教程网 >编程开发 >asp.net教程 >asp.net 操作XML 按指定格式写入XML数据 WriteXml
asp.net 操作XML 按指定格式写入XML数据 WriteXml
摘要:复制代码代码如下:PrivateSubWriteXml()TryCreate(strFName,"NewDataSet")SaveXMLFi...

复制代码 代码如下:

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】相关文章:

asp.net如何在图片上加水印文字具体实现

asp.net在后端动态添加样式表调用的方法

asp.net Ajax 安装与卸载方法

asp.net自定义控件代码学习笔记

asp.net简化接收参数值的函数

asp.net实现md5加密

Asp.net配合easyui实现返回json数据实例

asp.net Repeater绑定时使用函数

asp.net 操作excel的实现代码

asp.net ListView 数据绑定

精品推荐
分类导航