VB操作xml的简单例子

来源：互联网发布：linux使用gdb 编辑：程序博客网时间：2024/05/28 03:01

李国帅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

阅读全文

0 0