<?xml version="1.0" encoding="GB2312"?>
<dskpmis version="1.0" slversion="1.0" jgbm="265402400000001" jgmc="fxqsadf"><table>
<fptable fptable="T265018">税务机关代开统一发票</fptable></table>
<data>
<fpdata tablename="t265018" fpzlbm="265018" fpdm="265000801801" fphm="00000002" fplx="0" sfzf="0" czr="管理员" czrq="2008-11-25" fkfmc="234234234" sqbhm="234234" skfmc="2342342" skfsbh="234234" hjje="400" se="13.6" wszbh="00000002" kprq="2008-11-25" kpr="管理员" chfphm="0"><item tablename="tmx265018" xmid="1" pm="装卸搬运费" je="400"/>
</fpdata><fpdata tablename="t265018" fpzlbm="265018" fpdm="265000801801" fphm="00000003" fplx="0" sfzf="0" czr="管理员" czrq="2008-11-25" fkfmc="sadfasdfasdf" skfmc="asdfasdf" skfsbh="sdfasdf" hjje="900" se="30.59" wszbh="00000003" kprq="2008-11-25" kpr="管理员" chfphm="0"><item tablename="tmx265018" xmid="1" pm="展览费" je="900"/>
</fpdata>
</data>
</dskpmis>
主要是中间fpdata部分,那是从一个表中取出的数据,=号前面是字段名,后面是数值,我生成的东西老是<fpdata>tablename=...... </fpdata>,与目标不一致,请大侠们相助
我的代码是这样的,还只是个初步的东西
Dim file1 As Scripting.FileSystemObject
Set file1 = New Scripting.FileSystemObject '一个文件对象
Dim Stream As TextStream '一个文本流
Dim xmlDoc As MSXML2.DOMDocument
Dim rs1 As New adodb.Recordset ''用来读取发票子表
Dim StrforWrite As String
Set xmlDoc = New MSXML2.DOMDocument
xmlDoc.validateOnParse = False
xmlDoc.async = False
''开始打开文件
file1.CreateTextFile filename, True
'Set filewsz = Nothing
Set Stream = file1.OpenTextFile(filename, ForWriting)
''写入第一条
''写入xml头
StrforWrite = "<?xml version=""1.0"" encoding=""GB2312""?>"
Stream.WriteLine StrforWrite
''写入根结点信息
StrforWrite = "<dskpmis version=""1.0"" slversion=""1.0"" jgbm=""" + glbswjgbm + "0001" + """ jgmc=""" + glbswjgmc + """><table><fptable fptable=""T265018"">税务机关代开统一发票</fptable></table>"
Stream.WriteLine StrforWrite
''开始写记录了
''要分两步,一步是从一体票_导出为xml文件中取记录,一步是从税务机关_发票代开子表中取记录
Dim Nodename(100) As String
Dim Nodevalue(100) As String
Dim datatext As String
datatext = ""
Dim onode As Object
Set root = xmlDoc.createNode(1, "data", "")
Set temp = xmlDoc.appendChild(root)
Do While Not rs.EOF
'Set root = xmlDoc.createNode(1, "data", "")
'Set temp = xmlDoc.appendChild(root)
Set onode = xmlDoc.createNode("element", "fpdata", "")
datatext = "&It"
For i = 0 To rs.Fields.Count - 1
'Set Child = xmlDoc.createNode("element", rs.Fields(i).name, "")
Nodename(i) = rs.Fields(i).name
If Not IsNull(rs.Fields(i)) Then
Nodevalue(i) = rs.Fields(i)
Else
Nodevalue(i) = ""
End If
datatext = datatext + Nodename(i) + "=" + """" + Nodevalue(i) + """" + " "
Next i
onode.Text = datatext + "" + vbCrLf
Set temp = root.appendChild(onode)
rs.MoveNext
Loop
rstoxml = root.xml
Stream.WriteLine rstoxml
xmlDoc.removeChild (root)
rs.Close
Set rs = Nothing
[此贴子已经被作者于2008-11-26 12:24:02编辑过]
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → 请问这种格式的xml文档用vb 6.0如何实现
(订阅本版)
2008/11/26 10:41:00
新浪微博
请问这种格式的xml文档用vb 6.0如何实现
