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

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【asp.net 操作XML 按指定格式写入XML数据 WriteXml】，下面是详细的讲解！

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的用户互动如下：

　　相关问题：asp.net把sql中的数据如何生成指定格式的xml

　　答：不能被函数调用是什么意思?你的函数呢?函数不写出来怎么帮你看? 我这个是假设你的到了XmlFiles/StuElements.xml,你不是已经通过File.CreateText(stuFileName)创建了该文件了吗? 我建议你直接DataSet1.WriteXml(filepath);这种方式直接把DataSet... >>详细

　　相关问题：如何通过读取XML配置文件导入Excel文件到数据中

　　答：1.首先，我们正常使用Excel的另存为，看看能否顺利地直接另存为XML文件。 方法： 点击Excel左上角按钮，在弹出的选项中，点击“另存为” 或者直接在Excel中按下快捷键F12 2.选择最后一项：其他格式。 3.接下来，重命名一下文件名，并选择文件类型... >>详细

　　相关问题：asp.net怎样把多个表中的数据写入到xml文件中

　　答：先读到DataSet中，再WriteXml到文件，Response.Write文件名 另外,虚机团上产品团购,超级便宜 >>详细