VB操作xml的简单例子

李国帅2006-3-23 13:16

有些东西用起来也不是很复杂，就好像xml的操作。

操作

Private Sub aa()
        ' 建立XML文件
        Dim xml_document As New Xml.XmlDocument
        '加入xml的声明段落
        Dim NodeDeclare As Xml.XmlDeclaration
        NodeDeclare = xml_document.CreateXmlDeclaration("1.0", "", "yes")
        xml_document.AppendChild(NodeDeclare)

        Dim NodeElement As Xml.XmlElement
        NodeElement = xml_document.CreateElement("", "ProfileDataset", _
            "http://tempuri.org/ProfileDataset.xsd")
        xml_document.AppendChild(NodeElement)

        Dim ElementProfile As Xml.XmlElement
        ElementProfile = xml_document.CreateElement("SIPProfile")
        NodeElement.AppendChild(ElementProfile)

        Dim ElementTemp As Xml.XmlElement
        Dim NodeText As Xml.XmlText

        ElementTemp = xml_document.CreateElement("ProfileID")
        ElementProfile.AppendChild(ElementTemp)
        NodeText = xml_document.CreateTextNode("b906f603-1dcd-410c-a9bd-513891d80c14")
        ElementTemp.AppendChild(NodeText)

        ''追加属性
        'Dim attr As XmlAttribute = xml_document.CreateAttribute("t", "attrName", "http://tempuri.org/")
        'attr.Value = "attrValue"
        'ElementTemp.Attributes.Append(attr)

        '保存XML文件()
        xml_document.Save("D:\\Personal.xml")

    End Sub

创建

Private Sub bb()
        ' 建立XML文件
        Dim doc As New Xml.XmlDocument
        doc.LoadXml( _
            "<?xml version=""1.0"" standalone=""yes""?>   " & _
            "<ProfileDataset xmlns=""http://tempuri.org/ProfileDataset.xsd"">   " & _
            "  <SIPProfile >   " & _
            "    <ProfileID>b906f603-1dcd-410c-a9bd-513891d80c14</ProfileID>   " & _
            "    <ProfileName>ondosip</ProfileName>   " & _
            "    <DisplayName>peter</DisplayName>   " & _
            "    <Username>192125</Username>   " & _
            "    <AuthUsername />   " & _
            "    <DomainRealm>203.161.232.111:80</DomainRealm>   " & _
            "    <ProxyServer>203.161.232.111:80</ProxyServer>   " & _
            "    <Registrar>203.161.232.111:80</Registrar>   " & _
            "  </SIPProfile>   " & _
            "</ProfileDataset>  ")
        doc.Save("D:\\profiles.dat")
    End Sub