xml解析问题,请指点下
vb吧
全部回复
仅看楼主
level 1
Travis_888 楼主
我想解析如下xml,想输出每一组Object下的rmUID的value字段,但循环只能输出第一组的value:4101NSWXQRRU2986D9,请教下如何修改可以实现,谢谢
2021年01月04日 01点01分 1
level 11
没有这么复杂吧?
用一个循环,当文本里面找不到关键字了就结束。
do……loop until n=0
在循环内,先找<object>的位置n,再找</object>的位置m,从n开始找rmUID=“位置k,如果k>m就放弃,否则截取k+8到”的部分记录并输出。
n=instr(m,s,"<object>")
m=instr(m,s,"</object>")
k=instr(m,s,"rmUID=")
if k<>0 and k>m then
k1=instr(k,s,""")
? mid(s,k+8,k1-k-8)
endif
2021年01月04日 02点01分 2
level 11
2021年01月04日 06点01分 3
1