程序代码:
CLEAR
oxml=Createobject("Microsoft.XMLDOM")
oxml.Load("公共档案类.xml")
TRY
FOR ii=0 TO oxml.documentElement.childNodes.length-1
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(0).nodename
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(0).text
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(1).nodename
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(1).text
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(2).nodename
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(2).text
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(3).nodename
?oxml.documentElement.childNodes.Item(ii).childNodes.Item(3).text
ENDFOR
CATCH
?"出错了...此处采集结束 "
ENDTRY
RELEASE oxml