vb 如何读取xml用vb6.0如何读取XML文件里的**，并将它以树状显示出来？

时间：2014.07.09 发布人：neverfailing
vb 如何读取xml用vb6.0如何读取XML文件里的**，并将它以树状显示出来？

已解决问题

谷歌neverfailing用户在2014.07.09提交了关于“小米手机vb 如何读取xml用vb6.0如何读取XML文件里的**，并将它以树状显示出来？”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-08-27T04:58:55。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，你无异于雪中送炭,让我感激涕零 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：路人110来自9  

'函数已测问答试OK
PrivateFunctionGetValue(ByValMKeyAsString,ByValiStrAsString)As从必指String
OnError国GoToer
ar=Split(iStr,MKey)
iStr=ar(1)'右侧字串
ar=Split(iStr,Chr(34))
GetValue=ar(1)
er:
EndFunction

'处理示例
PrivateSubCommand1_Click()
'示例
XMLFile="D:\Test.xml"'测试文件名
OpenXMLFileForInputAs1
DoUntilEOF(1)
LineInpu往翻光表火t#1,tmp
DeptName=Get成较好溶若信Value("DeptName",tmp)'部门名
PDeptID=GetValue("PDeptID",tmp)'父层次ID
SortID=GetValue("SortID",tmp)'ID
IfDeptName<>""Then
'列表处理，请自只落宣放良守导离成难己添加代码
'可以用Treeview控制根据上面得到的层次处理
'如果不知道处理Treeview请直接发百度消息或QQ58507961
EndIf
Loop
皮社燃化甚也哪她风Close1
EndSub