zoukankan      html  css  js  c++  java
  • VBS生成XML文件

    Dim xmlDoc, rootEl, child1, child2, p

    '创建XML文档
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")

    '创建根元素并将之加入文档
    Set rootE1=xmlDoc.createElement("BookStore")
    xmlDoc.appendChild rootE1

    '创建并加入子元素
    Set bookchild1=xmlDoc.createElement("book")
    Set ISDNAttribute=xmlDoc.createAttribute("ISDN")
    ISDNAttribute.text="789456123"
    bookchild1.setAttributeNode ISDNAttribute

    Set bookchild1_title=xmlDoc.createElement("title")
    bookchild1_title.text="C#"
    bookchild1.appendChild bookchild1_title

    Set bookchild1_author=xmlDoc.createElement("author")
    bookchild1_author.text="BXH"
    bookchild1.appendChild bookchild1_author

    Set bookchild1_price=xmlDoc.createElement("Price")
    bookchild1_price.text="29.3"
    bookchild1.appendChild bookchild1_price

    rootE1.appendChild bookchild1

    '创建并加入子元素
    Set bookchild2=xmlDoc.createElement("book")
    Set ISDNAttribute=xmlDoc.createAttribute("ISDN")
    ISDNAttribute.text="789457898"
    bookchild2.setAttributeNode ISDNAttribute

    Set bookchild2_title=xmlDoc.createElement("title")
    bookchild2_title.text="F#"
    bookchild2.appendChild bookchild2_title

    Set bookchild2_author=xmlDoc.createElement("author")
    bookchild2_author.text="mary"
    bookchild2.appendChild bookchild2_author

    Set bookchild2_price=xmlDoc.createElement("Price")
    bookchild2_price.text="78"
    bookchild2.appendChild bookchild2_price

    rootE1.appendChild bookchild2

    '创建 XML processing instruction
    '并把它加到根元素之前
    Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'")
    xmlDoc.insertBefore p,xmlDoc.childNodes(0)

    '把文件保存到c目录
    xmlDoc.Save "d:\test.xml"

  • 相关阅读:
    阿里云通过465端口发送邮件绕过25端口
    阿里云子账号Policy授权规则明细
    蓝鲸cmdb平台架构
    库文件缺失问题修复
    centos7.2中启动polkit服务启动失败
    Linux升级GCC
    Ubuntu18.04服务器使用netplan网络构建桥接kvm虚拟机
    常用服务部署脚本(nodejs,pyenv,go,redis,)
    anaconda安装教程(之前安装过python)
    【PHP】array_unique与array_array_flip
  • 原文地址:https://www.cnblogs.com/zhangfei/p/2407937.html
Copyright © 2011-2022 走看看