请教两个小问题

wisdomsoft 2010-01-20 02:12:33

1。<?xml version="1.0" encoding="gb2312"?><XNHData><head><sendTime>2010-01-19 11:26:10</sendTime></head><businessData><data type="person"><01>01001000101 </01><02>韩 </t02><03>1</03><04>32<04></data><data type="person"><01>01001000102 </01><02>杨 </t02><03>2</03><04>33<04></data><data type="person"><01>01001000103 </01><02>莹 </t02><03>2</03><04>34<04></data><data type="person"><01>01001000104 </01><02>兰 </t02><03>2</03><04>35<04></data></dataSet></businessData></XNHData>
这个数据已被我读到text1.text,如何取任意节点的数据！
2。一个xml文件中，有好多相同的节点，如何遍历所有的数据加载到combo1中
效果像这样：
combo1.additem"01001000101-韩-1-32"
combo1.additem"01001000102-杨-2-33"
combo1.additem"01001000103-莹-2-34"
combo1.additem"01001000104-兰-2-35"
谢谢！

...全文

80 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

chinaboyzyq 2010-01-20

打赏
举报

按你1提供的数据，程序如下：



Private Sub Form_Load()

   Text1.Text = "1。 <?xml version=""1.0"" encoding=""gb2312""?> <XNHData> <head> <sendTime>2010-01-19 11:26:10 </sendTime>" & _

                "</head> <businessData> <data type=""person""> <01>01001000101        </01> <02>韩    </t02> <03>1 </03> " & _

                "<04>32 <04> </data> <data type=""person""> <01>01001000102        </01> <02>杨    </t02> <03>2 </03>" & _

                "<04>33 <04> </data> <data type=""person""> <01>01001000103        </01> <02>莹      </t02> <03>2 </03>" & _

                "<04>34 <04> </data> <data type=""person""> <01>01001000104        </01> <02>兰    </t02> <03>2 </03>" & _

                "<04>35 <04> </data> </dataSet> </businessData> </XNHData>"

   Dim a As String, i1 As Long, i2 As Long, i3 As Long, istr(3) As String

   a = Text1.Text

   While a <> ""

      For i1 = 1 To 4

          Select Case i1

              Case 1, 3

                  i2 = InStr(a, "<0" & i1 & ">")

                  i3 = InStr(a, "</0" & i1 & ">")

                  istr(i1 - 1) = Trim(Mid(a, i2 + 4, i3 - i2 - 4))

             Case 2

                  i2 = InStr(a, "<0" & i1 & ">")

                  i3 = InStr(a, "</t0" & i1 & ">")

                  istr(i1 - 1) = Trim(Mid(a, i2 + 4, i3 - i2 - 4))

            Case 4

                  i2 = InStr(a, "<0" & i1 & ">")

                  i3 = InStr(i2 + 4, a, "<0" & i1 & ">")

                  istr(i1 - 1) = Trim(Mid(a, i2 + 4, i3 - i2 - 4))

        End Select

        

        a = Mid(a, i3)

      Next

      Combo1.AddItem Join(istr, "-")

      If InStr(a, "<01>") = 0 Then a = ""

  Wend

  

End Sub

Tiger_Zhao 2010-01-20

打赏
举报

01 是纯数字，不能作为节点名称，不符合 xml 命名规则。
所以无法用 XMLDOM 进行解析。

king06 2010-01-20

打赏
举报

[Quote=引用楼主 wisdomsoft 的回复:]
这个数据已被我读到text1.text,如何取任意节点的数据！
[/Quote]
取出来了就只是个字符串了,用正则.
或者用instr(),mid()这些函数来分析,定义两个临时变量记录位置作循环.
加载到combo1比较简单,循环的时候将分析得到的值一个个放进去.