如何保存XML文件

lxq19851204 2010-07-13 10:37:38

Set oDOM = New MSXML2.DOMDocument

    Set xXMLpi = oDOM.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")



    With oTransMaster

        Session = ""

        Session = Session & "<Transaction>" & Chr(13) & Chr(10)

        Session = Session & Chr(9) & "<Order>" & Chr(13) & Chr(10)

        

        'add TransID or TransNO

        If sPrintReceiptNo = "0" Then

            Session = Session & Chr(9) & Chr(9) & "<TransID> " & Format(Trim$(.TransID), "00000000") & "</TransID>" & Chr(13) & Chr(10)

        ElseIf sPrintReceiptNo = "1" Then

            Session = Session & Chr(9) & Chr(9) & "<TransNO>" & .TransNo & " </TransNO>" & Chr(13) & Chr(10)

        End If

        

        'add TermID

        Session = Session & Chr(9) & Chr(9) & "<TermID>" & .TermID & "</TermID>" & Chr(13) & Chr(10)

        

        'add TransTime

        Session = Session & Chr(9) & Chr(9) & "<TransTime>" & .TransTime & "</TransTime>" & Chr(13) & Chr(10)

        

        'add Table and Cover

        If .ManualKey <> "" Then

            Session = Session & Chr(9) & Chr(9) & "<TableID>" & .ManualKey & "</TableID>" & Chr(13) & Chr(10)

            If .Covers <> "0" Then

                Session = Session & Chr(9) & Chr(9) & "<Cover>" & .Covers & "</Cover>" & Chr(13) & Chr(10)

            End If

        End If

        

        'add Cashier Name

        Session = Session & Chr(9) & Chr(9) & "<CashierName>" & .CashierName & "</CashierName>" & Chr(13) & Chr(10)

        

        'add Total Price

        Session = Session & Chr(9) & Chr(9) & "<Total>" & .Total & "</Total>" & Chr(13) & Chr(10)



        'add item detail

        For iCtr = 1 To .DetailCollection.Count

            Set oTD = .DetailCollection.Item(iCtr, True)

                If oTD.ItemStatus = eItemStatus.ItemReturn Then

                End If

                If oTD.ItemStatus = eItemStatus.ItemVoid Then

                End If

                Session = Session & Chr(9) & Chr(9) & "<Item>" & Chr(13) & Chr(10)

                

                'add ItemID

                Session = Session & Chr(9) & Chr(9) & Chr(9) & "<ItemID>" & oTD.ItemID & "</ItemID>" & Chr(13) & Chr(10)

                

                'add item name or description

                If sReceiptPrintDescription = "0" Then

                    Session = Session & Chr(9) & Chr(9) & Chr(9) & "<Name>" & oTD.name & "</NameID>" & Chr(13) & Chr(10)

                ElseIf sReceiptPrintDescription = "1" Then

                    Session = Session & Chr(9) & Chr(9) & Chr(9) & "<InventoryDesc>" & oTD.InventoryDesc & "</InventoryDesc>" & Chr(13) & Chr(10)

                ElseIf sReceiptPrintDescription = "2" Then

                    Session = Session & Chr(9) & Chr(9) & Chr(9) & "<Name>" & oTD.name & "</NameID>" & Chr(13) & Chr(10)

                    Session = Session & Chr(9) & Chr(9) & Chr(9) & "<InventoryDesc>" & oTD.InventoryDesc & "</InventoryDesc>" & Chr(13) & Chr(10)

                End If

                

                'add item Quantity

                Session = Session & Chr(9) & Chr(9) & Chr(9) & "<Quantity>" & oTD.Qty & "</Quantity>" & Chr(13) & Chr(10)

                

                If oTD.ContinmentCollection.Count > 0 Then

                    For jCtr = 1 To .DetailCollection.Count

                        Set oCD = .DetailCollection.Item(jCtr, True)

                            'add Condiment Name

                            Session = Session & Chr(9) & Chr(9) & Chr(9) & "<Modifier> " & Chr(13) & Chr(10)

                            Session = Session & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<CondimentName> " & oCD.CondimentName & "</CondimentName> " & Chr(13) & Chr(10)

                            Session = Session & Chr(9) & Chr(9) & Chr(9) & "</Modifier> " & Chr(13) & Chr(10)

                    Next jCtr

                End If

                Session = Session & Chr(9) & Chr(9) & "</Item>" & Chr(13) & Chr(10)

        Next iCtr



        Session = Session & Chr(9) & "</Order>" & Chr(13) & Chr(10)

        Session = Session & "</Transaction>" & Chr(13) & Chr(10)

        

        这边应该怎么把session加入XML中

        oDOM.save "C:\PTout\12.xml"

        Set oDOM = Nothing

    End With

...全文

246 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxq19851204 2010-07-14

打赏
举报

好了，老鸟。错误了一行。谢谢你。

Tiger_Zhao 2010-07-14

打赏
举报

PareError 是个对象，下面的属性有错误的位置和描述！

lxq19851204 2010-07-14

打赏
举报

ParseError是-1072896659

session有值。

12.XML是0KB的。

Tiger_Zhao 2010-07-14

打赏
举报

LoadXML 之后查看一下 ParseError　属性，看看是什么错误？
估计 createProcessingInstruction 应该在 LoadXML 之后使用。

lxq19851204 2010-07-14

打赏
举报

晕早上才有空来看这个帖子。保存12.XML文件，什么都没有.

Tiger_Zhao 2010-07-13

打赏
举报

oDOM.LoadXML Session '<--

oDOM.save "C:\PTout\12.xml"

lxq19851204 2010-07-13

打赏
举报

格式是这样的：
- <Order>
<TransID>10001</TransID>
.
.
-<Item>
<ItemID>1001</ItemID>
.
.
-<condiment>
.

孤独剑_LPZ 2010-07-13

打赏
举报

问题解决了吗

生命密码 2010-07-13

打赏
举报

在你的程序末尾加上
oDOM.Save “您的文件路径”

chinaboyzyq 2010-07-13

打赏
举报

路过，帮顶。

lyserver 2010-07-13

打赏
举报

路过，帮顶。

guyehanxinlei 2010-07-13

打赏
举报

首先要保证XML的结构是正确的.

bcrun 2010-07-13

打赏
举报

使用loadXML 方法吧,参考官方帮助中的这些节选:

loadXML Method
Loads an XML document using the supplied string.

Remarks
Calling load or loadXML on an existing document immediately discards the content of the document. The loadXML() will work only with UTF-16 or UCS-2 encodings.

This member is an extension of the Worldwide Web Consortium (W3C) Document Object Model (DOM).

[Visual Basic]
Visual Basic Syntax
boolValue = oXMLDOMDocument.loadXML(bstrXML)
Parameters
bstrXML
String containing the XML string to load into this XML document object. This string can contain an entire XML document or a well-formed fragment.
Return Value
Boolean. Returns True if the XML load succeeded. Returns False and sets the documentElement property of the DOMDocument to Null if the XML load failed.

Example
The following Microsoft® Visual Basic® example creates a DOMDocument object, and then uses its loadXML method to load the specified XML before displaying it.

Dim xmlDoc As New Msxml2.DOMDocument
xmlDoc.async = False
xmlDoc.loadXML ("<customer><first_name>Joe</first_name><last_name>Smith</last_name></customer>")
MsgBox xmlDoc.xml

king06 2010-07-13

打赏
举报

'        添加一个子节点

        Dim aElement As IXMLDOMElement

        Set aElement = xmlDoc.createElement("xxxxyyyy") '节点名称

        aElement.nodeTypedValue = "ddddddddd" '节点值

        xmlDoc.documentElement.childNodes.Item(0).childNodes(0).childNodes(2).childNodes(0).appendChild aElement

保存用.save 方法

C#保存XML文件

XML是一种常见的数据交换格式，在许多应用中都被广泛使用。通过掌握Python操作XML的基础知识，您将能够轻松地处理XML数据，从而实现数据的提取、修改和存储。这是一个简单的Python操作XML的教程，涵盖了读取、写入、修改和保存XML文档的基本步骤。通过遍历根元素和其子元素，可以访问XML文档中的各个元素和其属性。模块，该模块提供了解析和操作XML文档的功能。方法将修改后的XML文档保存到文件中。函数解析XML文档。对象，表示整个XML文档的树结构。属性修改元素的文本内容，使用。方法修改元素的属性。

一.应用场景在项目开发过程中，我们可能会用到xml文件和txt文档以及其他类型的文件来保存项目中涉及到的角色信息、敌人信息、用户登录信息等等。以下用一个小例子总结一下在Unity中读取xml和txt文件。二.读取和保存xml 1.读取和保存xml,XMLManager类中的两个方法都能用来读取xml文件。 using System.Collections; using System.Collections.Generic; using UnityEngine; using System.Xml; us

Golang语言保存xml文件，控制台输出xml文件内容

废话不多说，直接上主题，先来一个xml字符串保存xml文件的方法。 /** * 字符串转xml文件并保存指定路径 * @param xmlStr xml字符串 * @param fileName 文件名称 * @param type 文件类型(后缀) * @param path (存放路径) * @return */ @SuppressWarnings("d...