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

最新推荐文章于 2022-11-06 19:05:08 发布
最新推荐文章于 2022-11-06 19:05:08 发布
阅读量670 收藏
点赞数
分类专栏： .net技术 文章标签： xml .net exception string function integer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jonesvale/article/details/4343271
版权

从SQL下载数据到本地为XML文件

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

JonesVale
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
asp.net 操作XML 按指定格式写入XML数据 WriteXml
10-29
从SQL下载数据到本地为XML文件
net xml 写入 读取
weixin_30707875的博客
04-23 124
http://www.cnblogs.com/weekzero/archive/2005/06/21/178140.html 一、简单介绍using System.Xml;//初始化一个xml实例XmlDocument xml=new XmlDocument();//导入指定xml文件xml.Load(path);xml.Load(HttpContext.Current.Serve...
在.NET中使用XML、读取XML文件，插入数据到XML文档中。
MK的专栏
03-28 3134
本文介绍3个XML的基本应用实例，旨在带领你快速步入XML编程世界。实例包括：在.NET中使用XML、读取XML文件，插入数据到XML文档中。　　在.NET中使用XML　　如果使用过MSXML3，那么在.NET应用程序中使用XML将是一个相当简单的过程。即时没有接触过MSXML3，也不要紧，你会发现使用.NET平台提供的相关类也是很容易的一件事情。　　有两种主要API可用于访问建立在XML文档中的
writexml方法：
weixin_34037515的博客
05-04 3353
writexml(writer, indent, addindent, newl, encoding)参数： 1、writer是文件对象2、indent是每个tag前填充的字符，如：' '，则表示每个tag前有两个空格。根节点是否缩进3、addindent是每个子结点的缩近字符，如下面的例子中单引号中我直接用的tab键。字节点是否缩进4、newl是每个tag后填充的字符，如：'\n'，则表示...
.NET中XML操作（一）
飞鸿的博客
05-18 6921
又到了今日总结学习的时刻了今天上了xml和SSH时间紧迫，快点放毒吧。1.  掌握ASP.NET中使用DOM对XML的基本操作。2.  掌握对XML文件的读取操作3.  掌握对XML文件的添加、修改、删除节点的操作lab1.aspx.cs using System; using System.Collections.Generic; using System.Linq; using Sys...
asp.net 向xml 写入数据的几种方式
weixin_30757793的博客
09-13 111
<?xmlversion="1.0"encoding="utf-8"?><MyCalendar><Event><ShortDesc>生日快乐</ShortDesc><DetailDesc>今天是我的生日今天是我的生日今天是我的生日今天是我的生日今天是我的生日</DetailDesc>...
C#保存与读取DataTable信息到XML格式的方法
01-01
本文实例讲述了C#保存与读取DataTable信息到XML格式的方法。分享给大家供大家参考。具体如下： 这里主要实现： 1.将DataTable中的信息保存到XML中 2.将以上述格式在XML中保存的信息读取到DataTable内 一、将...
python解析xml文件方式(解析、更新、写入)
01-21
这篇博客内容将包括对XML文件的解析、追加新元素后写入到XML，以及更新原XML文件中某结点的值。使用的是python的xml.dom.minidom包，详情可见其官方文档：xml.dom.minidom官方文档。全文都将围绕以下的customer.xml...
asp.net下DataSet.WriteXml(String)与(Stream)的区别
01-21
DataSet.WriteXml(String)生成的Xml文件中包含XML 声明, 而DataSet.WriteXml(Stream)却不会写入Xml声明即<?xml version=”1.0″ standalone=”yes”?> 详细情况： 在写博客园的数据备份程序时,本来想通过...
C#通过DataSet读写xml文件的方法
01-01
本文实例讲述了C#通过DataSet读写xml文件的方法。分享给大家供大家参考。具体实现方法如下： ... 您可能感兴趣的文章:C# 创建，读取，写入XML文件C#操作读取、写入XML文档的实用方法C#实现xml文件的读取与写入简单
yolo格式的txt与labelimg的xml文件互转
taifyang的博客
11-06 722
【代码】yolo格式的txt与labelimg的xml文件互转。
NPM酷库050：xmlbuilder，创建XML文件
weixin_34416754的博客
02-21 428
NPM酷库，每天两分钟，了解一个流行NPM库。· 在前几期NPM酷库中，我们介绍了Node.js操作JSON5、YAML、CSON、CSV等数据格式文件，在外部系统接口中，我们还会经常遇到XML格式的接口协议。从本期开始，我们介绍Node.js快速读写XML格式相关的NPM库。 xmlbuilder 本期，我们先来了解 xmlbuilde...
python写xml
fhl812432059的专栏
06-12 5665
dom写xml
WriteXML(写给自己）
Neo in SAP
06-14 1309
 protected void btnWriteXML_Click(object sender, EventArgs e)    {        //Create document outline        const string strFileName = "D://WriteXMLExample.xml";        XmlTextWriter objXmlTW = new Xml
C#添加XmlNode节点
热门推荐
xcbsdu的专栏
02-23 1万+
public void Load(XmlDocument foc2, int load, string load2, string load3, string load4)             {                                      XmlNode root = foc2.DocumentElement;               //
向xml中写数据
最新发布
05-26
在 XML 中写入数据可以使用以下步骤： 1. 创建一个 DocumentBuilder 对象来创建 DOM 文档树。 2. 创建一个 Document 对象，用于表示整个 XML 文档。 3. 创建根元素节点，并添加到 Document 对象中。 4. 创建子元素节点，并添加到根元素节点中。 5. 创建元素属性，并将其添加到元素节点中。 6. 创建文本节点，并将其添加到元素节点中。 7. 将 Document 对象写入 XML 文件中。 下面是一个 Java 示例代码： ```java import java.io.File; import javax.xml.parsers.DocumentBuilder; import javax.xml.parsers.DocumentBuilderFactory; import org.w3c.dom.Document; import org.w3c.dom.Element; import org.w3c.dom.Text; public class WriteXML { public static void main(String[] args) throws Exception { // 创建 DocumentBuilder 对象 DocumentBuilderFactory factory = DocumentBuilderFactory.newInstance(); DocumentBuilder builder = factory.newDocumentBuilder(); // 创建 Document 对象 Document doc = builder.newDocument(); // 创建根元素节点 Element root = doc.createElement("root"); doc.appendChild(root); // 创建子元素节点 Element child = doc.createElement("child"); root.appendChild(child); // 创建元素属性 child.setAttribute("name", "value"); // 创建文本节点 Text text = doc.createTextNode("Hello, world!"); child.appendChild(text); // 将 Document 对象写入 XML 文件中 File file = new File("output.xml"); javax.xml.transform.TransformerFactory.newInstance() .newTransformer().transform(new javax.xml.transform.dom.DOMSource(doc), new javax.xml.transform.stream.StreamResult(file)); } } ``` 运行该程序后，将在当前目录下生成一个名为 `output.xml` 的 XML 文件，其内容如下： ```xml <?xml version="1.0" encoding="UTF-8" standalone="no"?> <root> <child name="value">Hello, world!</child> </root> ```

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值