xml的问题（当场给100分，在线等待）

Question

Imports System
Imports System.IO
Imports System.Xml
的声明有吗？？我看你的代码大小写都没有区分啊！代码是对的！

Answer 1

附上例子：
Imports System
Imports System.IO
Imports System.XmlPublic Class Sample
    
    Public Shared Sub Main()
        
        Dim doc As New XmlDocument()
        doc.LoadXml(("<book genre='novel' ISBN='1-861001-57-5'>" & _
                    "<title>Pride And Prejudice</title>" & _
                    "</book>"))
        
        Dim root As XmlNode = doc.DocumentElement
        
        'Create a new node.
        Dim elem As XmlElement = doc.CreateElement("price")
        elem.InnerText = "19.95"
        
        'Add the node to the document.
        root.AppendChild(elem)
        
        Console.WriteLine("Display the modified XML...")
        doc.Save(Console.Out)
    End Sub 'Main 
End Class 'Sample

Answer 2

你检查一下，xml大小写敏感，我就不明白，你写了命名，系统应该自动区分啊？？？？
茫然。

Answer 3

objrootlist=objxml.documentelement.selectsinglenode("Advertisement")  检查你的xml文档，看看Advertisement对吗？

Answer 4

我把xml文档改过后，出现了下的错误：
"未设置对象变量或 With 块变量"是什么意思呀？还是objrootlist.appendchild(elem)  '将ad节点追加到 这一行，谢了，兄弟!

Answer 5

xmlnode XmlNode 类
表示 XML 文档中的单个节点
XmlNode.AppendChild 方法 是将指定的节点添加到该节点子级列表的末尾按照你的意思：
用XmlNodeList 类  才正确。
dim objrootlist as  XmlNodeList

Answer 6

objrootlist=objxml.documentelement.selectsinglenode("Advertisement")   
  是你只选中了这一个节点，
    用SelectNodes才选中了。
  objrootlist=objxml.DocumentElement.SelectNodes("Advertisement");
 你先试。
   如果再不行
    你把你的banner.xml 贴出。
再帮你

Answer 7

兄弟，还是不行 ，下面是我的banner.xml文件<?xml version="1.0" encoding="utf-8" ?> 
<Advertisement>
<Ad>
<ImageUrl>..\banner\fan8.gif</ImageUrl>
<NavigateUrl>www.sina.com.cn</NavigateUrl>
<AlternateText>欢迎进入新浪网</AlternateText>
<KeWord>sina</KeWord>
<Impressions>10</Impressions>
</Ad>
</Advertisement>

Answer 8

或者不改动你贴出来的程序；
 dim elem as xmlelement=objxml.createelement("Ad")  '创建ad节点  
      objrootlist.appendchild(elem)  '将ad节点追加到advertisement下  
  在 两者之间加上elem.InnerText="test";

Answer 9

兄弟，我试了的，但这会出现的是未将对象引用设置到对象的实例 代码是这一行：objrootlist.appendchild(elem)

Answer 10

dim objrootlist as xmlnode  
      objrootlist=objxml.documentelement.selectsinglenode("Advertisement")  因为Advertisement是根元素，按上面的你objrootlist为空。
  改为一切ok：  objrootlist=objxml.documentelement

Answer 11

你的源代码没有问题，问题可能出现在你的文件路径不正确，请检查！你可以跟踪一下：objxml.load(server.mappath("banner.xml"))  ，看看objxml是否已经正确地装入了你的文件。

Answer 12

Imports System
Imports System.IO
Imports System.XmlPublic Class Module1    Public Shared Sub Main()        Dim objxml As New XmlDocument()
        objxml.LoadXml("<Advertisement><Ad><ImageUrl>banner\gif</ImageUrl><NavigateUrl>wwwcn</NavigateUrl><AlternateText>欢迎进入新浪网</AlternateText><KeWord>sina</KeWord><Impressions>10</Impressions></Ad></Advertisement>")
        Dim objrootlist As XmlNode
        objrootlist = objxml.DocumentElement '.SelectSingleNode("Advertisement")
       
        Dim elem As XmlElement = objxml.CreateElement("Ad") '创建ad节点  
        objrootlist.appendchild(elem)  '将ad节点追加到advertisement下          elem = objxml.CreateElement("ImageUrl") '创建imageurl节点  
        elem.InnerText = "imageurl.text"    '给imageurl节点附值  
        objrootlist.lastchild.appendchild(elem)   '追加节点到ad下          elem = objxml.CreateElement("NavigateUrl") '创建navegateurl节点  
        elem.InnerText = "navigateurl.text"
        objrootlist.lastchild.appendchild(elem)        elem = objxml.CreateElement("AlternateText") '创建alternatetext节点  
        elem.InnerText = "alternatetext.text"
        objrootlist.lastchild.appendchild(elem)        elem = objxml.CreateElement("Keyword") '创建keword节点  
        elem.InnerText = "keyword.text"
        objrootlist.lastchild.appendchild(elem)        elem = objxml.CreateElement("Impressions") '创建impressions节点  
        elem.InnerText = "impressions.text"
        objrootlist.lastchild.appendchild(elem)
        
        objxml.Save(Console.Out)
       
        Console.ReadLine()
    End Sub 'Main
End Class 'Sample

Answer 13

objrootlist = objxml.DocumentElement.SelectSingleNode("//Advertisement") 就可以了。