xml的问题（各位大虾帮忙了）

Question

小虾我遇到xml数据是多维的，想取出所有数据导成excel~~~望大家多给些意见！
    xml（例子）如下：
<?xml version="1.0" encoding="UTF-8"?>
<Products>
<Product>
<ProductId> P1000 </ProductId>
<ProductNames> 
<ProductName  Pname="Baby Food" amt="A10"/>
<ProductName Pname="Baby drinks" amt="B20"/>
</ProductNames>
<UnitPrice> 2.5 </UnitPrice>
<QtyAvailable> 1200 </QtyAvailable>
</Product>
<Product>
<ProductId> P002 </ProductId>
<ProductNames> 
 <ProductName  Pname="Chocolate" amt="C10"/>
<ProductName Pname="IceCream" amt="D20"/>
 </ProductNames>
<UnitPrice> 1.5 </UnitPrice>
<QtyAvailable> 1500 </QtyAvailable>
</Product>
</Products>
小虾我用的是vb！用dataset 取不到<ProductNames> 结点里的值，是否有其他好的方法，先谢过大家啦~~~

Answer 1

回复zhouzh197895(努力做个坏男人)：
      代码如下
      Dim ProdFile As New FileStream(Server.MapPath("products1.xml"), FileMode.Open, FileAccess.Read)
      Dim dsProductsdata As New DataSet
      dsProductsdata.ReadXml(ProdFile)
      If dsProductsdata.Tables(0).Rows.Count > 0 Then
      ..........
      End if

Answer 2

1. XML 文档操作 
  1.1 加载一个XML文档 
  Dim objDoc As New XmlDocument() 
  '-- Load xml document Sample.xml 
  objDoc.Load("Sample.xml") 
   
  1.2 加载一个XML数据 
   Dim objDoc As New XmlDocument() 
   Dim strXML As String 
   strXML = "<Employees><Employee id=”12345”><Employee_ID>12345</Employee_ID><Name>Zhang Bin</Name></Employee></Employees>" 
   
   '-- Load xml data 
   objDoc.Load(strXML) 
   
  1.3 保存文档 
  '—Save xml document 
  objDoc.Save("Sample.xml") 
   
  2 XML 数据的查询 
  最常见的XML数据类型有：Element, Attribute，Comment, Text. 
  Element, 指形如<Name>Tom<Name>的节点。它可以包括：Element, Text, Comment, ProcessingInstruction, CDATA, and EntityReference. 
  Attribute, 指在<Employee id=”12345”>中的粗体部分。 
  Comment，指形如：<!-- my comment --> 的节点。 
  Text，指在<Name>Tom<Name>的粗体部分。 
  在XML中，可以用XmlNode对象来参照各种XML数据类型。 
  2.1 查询已知绝对路径的节点（集） 
  objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee”) 
  或者 
  objNodeList = objNode.SelectNodes(“/Company/Department/Employees/Employee”) 
  以上两种方法可返回一个NodeList对象，如果要返回单个节点可使用SelectSingleNode方法，该方法如果查询到一个或多个节点，返回第一个节点；如果没有查询的任何节点返回 Nothing。例如： 
  objNode = objNode.SelectSingleNode(“/Company/Department/Employees/Employee”) 
  If Not (objNode is Nothing) then 
   ‘- Do process 
  End If 
  2.2 查询已知相对路径的节点（集） 
  可使用类似于文件路径的相对路径的方式来查询XML的数据 
  objNode = objDoc.SelectSingleNode(“Company/Department”) 
  objNodeList = objNode.SelectNodes(“../Department) 
  objNode = objNode.SelectNode(“Employees/Employee”) 
  2.3 查询已知元素名的节点（集） 
  在使用不规则的层次文档时，由于不知道中间层次的元素名，可使用//符号来越过中间的节点，查询其子，孙或多层次下的其他所有元素。例如： 
  objNodeList = objDoc.SelectNodes(“Company//Employee”) 
  2.4 查询属性（attribute）节点 
  以上的各种方法都返回元素（element)节点（集），返回属性（attribute），只需要采用相应的方法，在属性名前加一个@符号即可，例如： 
  objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee/@id”) 
  objNodeList = objDoc.SelectNodes(“Company//@id”) 
  2.5 查询Text节点 
  使用text()来获取Text节点。 
  objNode = objDoc.SelectSingleNode(“Company/Department/Deparmt_Name/text()”) 
  2.6 查询特定条件的节点 
  使用[]符号来查询特定条件的节点。例如： 
  a. 返回id号为 10102的Employee节点 
   objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee[@id=’10102’]”) 
  b. 返回Name为Zhang Qi的Name 节点 
   objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee/Name[text()=’Zhang Qi’]”) 
  c. 返回部门含有职员22345的部门名称节点 
  objNode = objDoc.SelectSingleNode("Company/Department[Employees/Employee/@id='22345']/Department_Name") 
  2.7 查询多重模式的节点 
  使用 | 符号可以获得多重模式的节点。例如： 
  objNodeList = objDoc.SelectNodes(“Company/Department/Department_Name | Company/Department/Manager”) 
  2.8 查询任意子节点 
  使用*符号可以返回当前节点的所有子节点。 
  objNodeList = objDoc.SelectNodes(“Company/*/Manager) 
  或者 
  objNodeList = objNode.ChildNodes 
   
  3 XML数据的编辑 
  3.1 增加一个元素的属性（attribute）节点 
  Dim objNodeAttr As XmlNode 
   objNodeAttr = objDoc.CreateAttribute("id", Nothing) 
   objNodeAttr.InnerXml = "101" 
  objNode.Attributes.Append(objNodeAttr) 
  3.2 删除一个元素的属性 
  objNode.Attributes.Remove(objNodeAttr) 
  3.3 增加一个子元素（Element） 
  Dim objNodeChild As XmlNode 
  objNodeChild = objDoc.CreateElement(Nothing, "ID", Nothing) 
  objNodeChild.InnerXml = "101" 
  objNode.AppendChild(objNodeChild) 
  3.4 删除一个子元素 
  objNode.RemoveChild(objNodeChild) 
  3.5 替换一个子元素 
  objNOde.ReplaceChild(newChild,oldChild)

Answer 3

Thank you goody9807()：  
         你又让我学到不少知识！结贴时一定给分！只是我还是菜鸟~这种判的方法好像有些复杂，有没有其他更好的方法呢~~！继续等待！~~~~~

Answer 4

你大概是不知怎么读取ProductName里的pname,atm值吧。如下
XmlDocument xmlDoc = new XmlDocument() ;
xmlDoc.Load( Server.MapPath( "filexml.xml") ) ;

XmlElement root = xmlDoc.DocumentElement ;        
XmlNodeList nodeList = root.GetElementsByTagName( "ProductNames" ) ;
foreach ( XmlElement  xmlElem in nodeList )
{
XmlNodeList nodeListCh = xmlElem.ChildNodes ;
foreach ( XmlNode node in nodeListCh )
{
Response.Write( "Pname=" + node.Attributes["Pname"].Value.ToString() + "&nbsp;amt=" +  node.Attributes["amt"].Value.ToString()) ;
Response.Write( "<br>" ) ;
}
}
读取productID等的值方法类似。
至于怎么写入Excel，那就好说了。

Answer 5

zhangqy(zhangqy) ~~~~呵呵~~~有vb版吗？！！c#用法有点生勒~~~不好意思哈~~！！十分感谢你给的提示~~    等待ing