vb 如何读取xml用vb6.0如何读取XML文件里的数据，并将它以树状显示出来？
<Item DeptID="1" PDeptID="0" DeptName="开发部门" SortID="1" Version="1" />
<Item DeptID="2" PDeptID="1" DeptName="基础开发部" SortID="1" Version="2" />
<Item DeptID="3" PDeptID="2" DeptName="产品组" SortID="1" Version="4" />
<Item DeptID="4" PDeptID="1" DeptName="高级开发部" SortID="2" Version="5" />
<Item DeptID="5" PDeptID="4" DeptName="科研组" SortID="1" Version="7" />
<Item DeptID="6" PDeptID="1" DeptName="无线开发部" SortID="3" Version="8" />
<Item DeptID="7" PDeptID="6" DeptName="server组" SortID="1" Version="10" />
<Item DeptID="8" PDeptID="0" DeptName="市场部门" SortID="2" Version="11" />
<Item DeptID="9" PDeptID="8" DeptName="市场拓展部" SortID="1" Version="13" />
<Item DeptID="10" PDeptID="0" DeptName="XXX" SortID="3" Version="16" />
</RTX_Dept>
，我想用vb6.0把它呈树状显示出来，按
开发部门
基础开发部
产品组
高级开发部
……这样的格式显示出来。有哪位高手看到了，千万指点，最好能就能上XML文件内容给出vb示例代码，小生感激不尽尽啊！！
最新回答
陌上初安
2024-10-31 05:45:15
Private Function GetValue(ByVal MKey As String, ByVal iStr As String) As String
On Error GoTo er
ar = Split(iStr, MKey)
iStr = ar(1) '右侧字串
ar = Split(iStr, Chr(34))
GetValue = ar(1)
er:
End Function
'处理示例
Private Sub Command1_Click()
'示例
XMLFile = "D:\Test.xml" '测试文件名
Open XMLFile For Input As 1
Do Until EOF(1)
Line Input #1, tmp
DeptName = GetValue("DeptName", tmp) '部门名
PDeptID = GetValue("PDeptID", tmp) '父层次ID
SortID = GetValue("SortID", tmp) 'ID
If DeptName <> "" Then
'列表处理，请自己添加代码
'可以用Treeview控制根据上面得到的层次处理
'如果不知道处理Treeview请直接发百度消息或QQ58507961
End If
Loop
Close 1
End Sub
热门标签
