像这样的xml文件是否可以实现？？？ 谢谢

[chinaxjfc]

这是别人写的一个结构 用vb能否写出来xml呢 我是初学者 希望多多赐教

<business id="FPMX.DZFP" comment="单张发票信息">
<group>
<data name="wdbh" value="网点编号"/>
<data name="kpf_nsrsbh" value="开票方纳税人识别号"/>
<data name="kpf_mc" value="开票方名称"/>
<data name="skf_nsrsbh" value="收款方纳税人识别号"/>
<group>
<business >

[lyserver]

引用 Microsoft XML。

[lxq19851204]

嫌麻烦的话，直接用字符串连接。

[chinaxjfc]

是这样的 我先做了个代码 大家看看

Private Function CreateDOM() '创建dom
Dim dom
Set dom = New DOMDocument40
dom.async = False
dom.validateOnParse = False
dom.resolveExternals = False
dom.preserveWhiteSpace = True
Set CreateDOM = dom
End Function

Dim dom, node, attr '定义这三个变量就够了，因为xml也就主要用到这三个

On Error GoTo ErrorHandler '出错处理

Set dom = CreateDOM '创建dom

' 创建XML文件的结构和版本说明.
Set node = dom.createProcessingInstruction("xml", "version='1.0' encoding='GBK'")
dom.appendChild node
Set node = Nothing

' 创建XML文件的根结点.
Dim root
Set root = dom.createElement("business")

' 创建一个created属性
' 并且为属性写入值.
Set attr = dom.createAttribute("id")
attr.Value = "using dom"
root.setAttributeNode attr

Set attr = dom.createAttribute("comment")
attr.Value = "外部发票报送"
root.setAttributeNode attr

Set attr = Nothing

' 添加上root的根结点.
dom.appendChild root
' 插入一个新行和一个tab.
root.appendChild dom.createTextNode(vbNewLine + vbTab)

Set node = dom.createElement("node3")
Set frag = dom.createDocumentFragment
'插入一个新行和一个tab.
frag.appendChild dom.createTextNode(vbNewLine + vbTab + vbTab)

' 插入一个新行和一个tab.
frag.appendChild dom.createTextNode(vbNewLine + vbTab + vbTab)
frag.appendChild dom.createElement("subNode1") ‘就在这里他输出的结果是<subNode1/>

我想问一问 怎样把结果<subNode1/> 变成 <data name="name" value="1234"/> 可以把赋值的

[king06]

可以，有点麻烦而已

[king06]

我在这个帖子里面回复的测试不通?
http://topic.csdn.net/u/20101213/13/53afc7ec-6cab-4815-b0ea-e9ddc7e9ccbf.html

[xiongmao0221]

应该可以的，就是麻烦