vb读取xml

Question

现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
  <LastAuthor>Great Way man</LastAuthor>
  <Created>2010-02-23T08:47:00Z</Created>
  <LastSaved>2010-02-23T08:46:49Z</LastSaved>
  <Version>11.5606</Version>
 </DocumentProperties>
 <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
  <Colors>
   <Color>
    <Index>36</Index>
    <RGB>#FFFFFF</RGB>
   </Color>
   <Color>
    <Index>38</Index>
    <RGB>#A7A6AA</RGB>
   </Color>
   <Color>
    <Index>39</Index>
    <RGB>#FF0000</RGB>
   </Color>
   <Color>
这样的，现在想要找到第三个节点（也就是找到<Workbook..>节点）下面的<DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
  <LastAuthor>Great Way man</LastAuthor>
  <Created>2010-02-23T08:47:00Z</Created>
  <LastSaved>2010-02-23T08:46:49Z</LastSaved>
  <Version>11.5606</Version>
 </DocumentProperties>
 <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
  <Colors>
   <Color>
    <Index>36</Index>
    <RGB>#FFFFFF</RGB>
   </Color>
   <Color>
    <Index>38</Index>
    <RGB>#A7A6AA</RGB>
   </Color>
   <Color>
    <Index>39</Index>
    <RGB>#FF0000</RGB>
   </Color>
   <Color>
这个写内容怎么做，谢谢大家了，很急的

Answer 1

我用VFP设计了一个计算全组合的程序发给大家看看。帮忙改进一下。应为算了一下运行时间，全组合需要12个小时才能算出45选6的全部组合。有没有办法改进一下运行时间呢。程序代码如下：注意是VFP的，我只会这个编程。 
CREAT TABLE  ddd(x1 n,X2 N,x3 n,x4 n,x5 n,x6 n) 
use ddd x=45 
dimension abs1(x) 
for aa=1 to x 
  abs1(aa)=aa 
endfor dimension abs2(6) for a=1 to x 
for b=1 to x 
if abs1(a)=abs1(b) 
loop 
endif 
for c=1 to x 
if abs1(a)=abs1(c) or abs1(b)=abs1(c) 
loop 
endif 
for d=1 to x 
if abs1(a)=abs1(d) or abs1(b)=abs1(d) or abs1(c)=abs1(d) 
loop 
endif 
for e=1 to x 
if abs1(a)=abs1(e) or abs1(b)=abs1(e) or abs1(c)=abs1(e) or abs1(d)=abs1(e) 
loop 
endif 
for f=1 to x 
if abs1(a)=abs1(f) or abs1(b)=abs1(f) or abs1(c)=abs1(f) or abs1(d)=abs1(f) or abs1(e)=abs1(f) 
loop 
endif append blank 
    replace x1 with caa(1), x2 with caa(2), x3 with caa(3),x4 with caa(4),x5 with caa(5),x6 with caa(6)    
  
endfor 
endfor 
endfor 
endfor 
endfor 
endfor 

Answer 2

用DOMDocument 对象比较方便处理