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