当前位置：首页 > 编程日记 > 正文

xml操作类（转载）

编程日记 2024-11-21 20:30:00

作者：未知   请与本人联系
<%
Class XMLDOMDocument
Private fNode,fANode
Private fErrInfo,fFileName,fOpen
Dim XmlDom

'返回节点的缩进字串
Private Property Get TabStr(byVal Node)
    TabStr=""
    If Node Is Nothing Then Exit Property
    If not Node.parentNode Is nothing Then TabStr=" "&TabStr(Node.parentNode)
End Property

'返回一个子节点对象,ElementOBJ为父节点,ChildNodeObj要查找的节点,IsAttributeNode指出是否为属性对象
Public Property Get ChildNode(byVal ElementOBJ,byVal ChildNodeObj,byVal IsAttributeNode)
    Dim Element
    Set ChildNode=Nothing

    If IsNull(ChildNodeObj) Then
      If IsAttributeNode=false Then
        Set ChildNode=fNode
      Else
        Set ChildNode=fANode
      End If
      Exit Property
    ElseIf IsObject(ChildNodeObj) Then
      Set ChildNode=ChildNodeObj
      Exit Property
    End If

    Set Element=Nothing
    If LCase(TypeName(ChildNodeObj))="string" and Trim(ChildNodeObj)<>"" Then
      If IsNull(ElementOBJ) Then
         Set Element=fNode
      ElseIf LCase(TypeName(ElementOBJ))="string" Then
         If Trim(ElementOBJ)<>"" Then
           Set Element=XmlDom.selectSingleNode("//"&Trim(ElementOBJ))
           If Lcase(Element.nodeTypeString)="attribute" Then Set Element=Element.selectSingleNode("..")
         End If
      ElseIf IsObject(ElementOBJ) Then
         Set Element=ElementOBJ
      End If

      If Element Is Nothing Then
        Set ChildNode=XmlDom.selectSingleNode("//"&Trim(ChildNodeObj))
      ElseIf IsAttributeNode=true Then
        Set ChildNode=Element.selectSingleNode("./@"&Trim(ChildNodeObj))
      Else
        Set ChildNode=Element.selectSingleNode("./"&Trim(ChildNodeObj))
      End If
    End If
End Property

'读取最后的错误信息
Public Property Get ErrInfo
    ErrInfo=fErrInfo
End Property

'给xml内容
Public Property Get xmlText(byVal ElementOBJ)
    xmlText=""
    If fopen=false Then Exit Property

    Set ElementOBJ=ChildNode(XmlDom,ElementOBJ,false)
    If ElementOBJ Is Nothing Then Set ElementOBJ=XmlDom

    xmlText=ElementOBJ.xml
End Property

'=================================================================
'类初始化
Private Sub Class_Initialize()
    Set XmlDom=CreateObject("Microsoft.XMLDOM")
    XmlDom.preserveWhiteSpace=true

    Set fNode=Nothing
    Set fANode=Nothing

    fErrInfo=""
    fFileName=""
    fopen=false
End Sub

'类释放
Private Sub Class_Terminate()
    Set fNode=Nothing
    Set fANode=Nothing
    Set XmlDom=nothing
    fopen=false
End Sub

'=====================================================================
'建立一个XML文件，RootElementName：根结点名。XSLURL：使用XSL样式地址
'返回根结点
Function Create(byVal RootElementName,byVal XslUrl)
    Dim PINode,RootElement

    Set Create=Nothing

    If (XmlDom Is Nothing) Or (fopen=true) Then Exit Function

    If Trim(RootElementName)="" Then RootElementName="Root"

    Set PINode=XmlDom.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""GB2312""")
    XmlDom.appendChild PINode

    Set PINode=XMLDOM.CreateProcessingInstruction("xml-stylesheet", "type=""text/xsl"" href="""&XslUrl&"""")
    XmlDom.appendChild PINode

    Set RootElement=XmlDom.createElement(Trim(RootElementName))
    XmlDom.appendChild RootElement

    Set Create=RootElement

    fopen=True
    set fNode=RootElement
End Function

'开打一个已经存在的XML文件,返回打开状态
Function Open(byVal xmlSourceFile)
    Open=false

    xmlSourceFile=Trim(xmlSourceFile)
    If xmlSourceFile="" Then Exit Function

    XmlDom.async = false
    XmlDom.load xmlSourceFile

    fFileName=xmlSourceFile

    If not IsError Then
       Open=true
       fopen=true
    End If
End Function

'关闭
Sub Close()
    Set fNode=Nothing
    Set fANode=Nothing

    fErrInfo=""
    fFileName=""
    fopen=false
End Sub

'读取一个NodeOBJ的节点Text的值
'NodeOBJ可以是节点对象或节点名，为null就取当前默认fNode
Function getNodeText(byVal NodeOBJ)
    getNodeText=""
    If fopen=false Then Exit Function

    Set NodeOBJ=ChildNode(null,NodeOBJ,false)
    If NodeOBJ Is Nothing Then Exit Function

    If Lcase(NodeOBJ.nodeTypeString)="element" Then
      set fNode=NodeOBJ
    Else
      set fANode=NodeOBJ
    End If
    getNodeText=NodeOBJ.text
End function

'插入在BefelementOBJ下面一个名为ElementName，Value为ElementText的子节点。
'IsFirst：是否插在第一个位置；IsCDATA：说明节点的值是否属于CDATA类型
'插入成功就返回新插入这个节点
'BefelementOBJ可以是对象也可以是节点名，为null就取当前默认对象
Function InsertElement(byVal BefelementOBJ,byVal ElementName,byVal ElementText,byVal IsFirst,byVal IsCDATA)
    Dim Element,TextSection,SpaceStr
    Set InsertElement=Nothing

    If not fopen Then Exit Function

    Set BefelementOBJ=ChildNode(XmlDom,BefelementOBJ,false)
    If BefelementOBJ Is Nothing Then Exit Function

    Set Element=XmlDom.CreateElement(Trim(ElementName))

    'SpaceStr=vbCrLf&TabStr(BefelementOBJ)
    'Set STabStr=XmlDom.CreateTextNode(SpaceStr)

    'If Len(SpaceStr)>2 Then SpaceStr=Left(SpaceStr,Len(SpaceStr)-2)
    'Set ETabStr=XmlDom.CreateTextNode(SpaceStr)

    If IsFirst=true Then
      'BefelementOBJ.InsertBefore ETabStr,BefelementOBJ.firstchild
      BefelementOBJ.InsertBefore Element,BefelementOBJ.firstchild
      'BefelementOBJ.InsertBefore STabStr,BefelementOBJ.firstchild
    Else
      'BefelementOBJ.appendChild STabStr
      BefelementOBJ.appendChild Element
      'BefelementOBJ.appendChild ETabStr
    End If

    If IsCDATA=true Then
      set TextSection=XmlDom.createCDATASection(ElementText)
      Element.appendChild TextSection
    ElseIf ElementText<>"" Then
      Element.Text=ElementText
    End If

    Set InsertElement=Element
    Set fNode=Element
End Function

'在ElementOBJ节点上插入或修改名为AttributeName，值为：AttributeText的属性
'如果已经存在名为AttributeName的属性对象，就进行修改。
'返回插入或修改属性的Node
'ElementOBJ可以是Element对象或名，为null就取当前默认对象
Function setAttributeNode(byVal ElementOBJ,byVal AttributeName,byVal AttributeText)
    Dim AttributeNode
    Set setAttributeNode=nothing

    If not fopen Then Exit Function

    Set ElementOBJ=ChildNode(XmlDom,ElementOBJ,false)
    If ElementOBJ Is Nothing Then Exit Function

    Set AttributeNode=ElementOBJ.attributes.getNamedItem(AttributeName)
    If AttributeNode Is nothing Then
       Set AttributeNode=XmlDom.CreateAttribute(AttributeName)
       ElementOBJ.setAttributeNode AttributeNode
    End If
    AttributeNode.text=AttributeText

    set fNode=ElementOBJ
    set fANode=AttributeNode
    Set setAttributeNode=AttributeNode
End Function

'修改ElementOBJ节点的Text值，并返回这个节点
'ElementOBJ可以对象或对象名，为null就取当前默认对象
Function UpdateNodeText(byVal ElementOBJ,byVal NewElementText,byVal IsCDATA)
    Dim TextSection

    set UpdateNodeText=nothing
    If not fopen Then Exit Function

    Set ElementOBJ=ChildNode(XmlDom,ElementOBJ,false)
    If ElementOBJ Is Nothing Then Exit Function

    If IsCDATA=true Then
      set TextSection=XmlDom.createCDATASection(NewElementText)
      If ElementOBJ.firstchild Is Nothing Then
        ElementOBJ.appendChild TextSection
      ElseIf LCase(ElementOBJ.firstchild.nodeTypeString)="cdatasection" Then
        ElementOBJ.replaceChild TextSection,ElementOBJ.firstchild
      End If
    Else
      ElementOBJ.Text=NewElementText
    End If

    set fNode=ElementOBJ
    Set UpdateNodeText=ElementOBJ
End Function

'返回符合testValue条件的第一个ElementNode，为null就取当前默认对象
Function getElementNode(byVal ElementName,byVal testValue)
    Dim Element,regEx,baseName

    Set getElementNode=nothing
    If not fopen Then Exit Function

    testValue=Trim(testValue)
    Set regEx=New RegExp
    regEx.Pattern="^[A-Za-z]+"
    regEx.IgnoreCase=true
    If regEx.Test(testValue) Then testValue="/"&testValue
    Set regEx=nothing

    baseName=LCase(Right(ElementName,Len(ElementName)-InStrRev(ElementName,"/",-1)))

    Set Element=XmlDom.SelectSingleNode("//"&ElementName&testValue)

    If Element Is Nothing Then
      'Response.write ElementName&testValue
      Set getElementNode=nothing
      Exit Function
    End If

    Do While LCase(Element.baseName)<>baseName
      Set Element=Element.selectSingleNode("..")
      If Element Is Nothing Then Exit Do
    Loop

    If LCase(Element.baseName)<>baseName Then
      Set getElementNode=nothing
    Else
      Set getElementNode=Element
      If Lcase(Element.nodeTypeString)="element" Then
        Set fNode=Element
      Else
        Set fANode=Element
      End If
    End If
End Function

'删除一个子节点
Function removeChild(byVal ElementOBJ)
    removeChild=false
    If not fopen Then Exit Function

    Set ElementOBJ=ChildNode(null,ElementOBJ,false)
    If ElementOBJ Is Nothing Then Exit Function

    'response.write ElementOBJ.baseName

    If Lcase(ElementOBJ.nodeTypeString)="element" Then
      If ElementOBJ Is fNode Then set fNode=Nothing
      If ElementOBJ.parentNode Is Nothing Then
        XmlDom.removeChild(ElementOBJ)
      Else
        ElementOBJ.parentNode.removeChild(ElementOBJ)
      End If
      removeChild=True
    End If
End Function

'清空一个节点所有子节点
Function ClearNode(byVal ElementOBJ)
     set ClearNode=Nothing
     If not fopen Then Exit Function

     Set ElementOBJ=ChildNode(null,ElementOBJ,false)
     If ElementOBJ Is Nothing Then Exit Function

     ElementOBJ.text=""
     ElementOBJ.removeChild(ElementOBJ.firstchild)

     Set ClearNode=ElementOBJ
     Set fNode=ElementOBJ
End Function

'删除子节点的一个属性
Function removeAttributeNode(byVal ElementOBJ,byVal AttributeOBJ)
    removeAttributeNode=false
    If not fopen Then Exit Function

    Set ElementOBJ=ChildNode(XmlDom,ElementOBJ,false)
    If ElementOBJ Is Nothing Then Exit Function

    Set AttributeOBJ=ChildNode(ElementOBJ,AttributeOBJ,true)
    If not AttributeOBJ Is nothing Then
      ElementOBJ.removeAttributeNode(AttributeOBJ)
      removeAttributeNode=True
    End If
End Function

'保存打开过的文件，只要保证FileName不为空就可以实现保存
Function Save()
    On Error Resume Next
    Save=false
    If (not fopen) or (fFileName="") Then Exit Function

    XmlDom.Save fFileName
    Save=(not IsError)
    If Err.number<>0 then
      Err.clear
      Save=false
    End If
End Function

'另存为XML文件，只要保证FileName不为空就可以实现保存
Function SaveAs(SaveFileName)
    On Error Resume Next
    SaveAs=false
    If (not fopen) or SaveFileName="" Then Exit Function
    XmlDom.Save SaveFileName
    SaveAs=(not IsError)
    If Err.number<>0 then
      Err.clear
      SaveAs=false
    End If
End Function

'检查并打印错误信息
Private Function IsError()
    If XmlDom.ParseError.errorcode<>0 Then
       fErrInfo="<h1>Error"&XmlDom.ParseError.errorcode&"</h1>"
       fErrInfo=fErrInfo&"<B>Reason :</B>"&XmlDom.ParseError.reason&"<br>"
       fErrInfo=fErrInfo&"<B>URL    :</B>"&XmlDom.ParseError.url&"<br>"
       fErrInfo=fErrInfo&"<B>Line   :</B>"&XmlDom.ParseError.line&"<br>"
       fErrInfo=fErrInfo&"<B>FilePos:</B>"&XmlDom.ParseError.filepos&"<br>"
       fErrInfo=fErrInfo&"<B>srcText:</B>"&XmlDom.ParseError.srcText&"<br>"
       IsError=True
    Else
      IsError=False
    End If
End Function
End Class
%>

https://www.dkcj.cn/info/28525.html

对HDS AMS 2000+巡检案例

1. 使用工具：笔记本，网线一根， 2. 使用软件：vmware虚拟机（安装XP P2系统，最好为P3），HSNM2-1152-W-CLI-P01.exe（AMS 200管理软件），jre…

编程日记2024/11/21 20:20:00

用Python实现坦克大战游戏 | 干货贴

作者 | 李秋键出品 | AI科技大本营（rgznai100）《坦克大战》是1985年日本南梦宫Namco游戏公司在任天堂FC平台上，推出的一款多方位平面射击游戏。游戏以坦克战斗及保卫基地为主题，属于策略型联机类。同时也是FC平台上少有的内建关卡…

编程日记2024/11/21 20:10:00

SPU、SKU、ARPU是什么，我来记录一下我的理解

在电商系统里经常会提到“商品”、“单品”、“SPU”、“SKU”这几个词，那么这几个词到底是什么意思呢？既然不知道是什么，那么我们就查一下：SPU Standard Product Unit （标准化产品单元），SKUst…

编程日记2024/11/21 20:00:00

用C#操纵IIS（代码）

using System;using System.DirectoryServices;using System.Collections;using System.Text.RegularExpressions;using System.Text;/*** author 吴海燕* email wuhy80-usualyahoo.com* 2004-6-25 第一版*/ namespace Wuhy.ToolBox{/// <summary>/// 这个类是静态类。…

编程日记2024/11/21 19:50:00

linux 内核参数调整说明

linux 内核参数调整说明所有的TCP/IP调优参数都位于/proc/sys/net/目录。例如, 下面是最重要的一些调优参数, 后面是它们的含义: 1. /proc/sys/net/core/rmem_max — 最大的TCP数据接收缓冲。2. /proc/sys/net/core/wmem_max — 最大的TCP数据发送缓冲。3. /proc/sys/net/ipv4…

编程日记2024/11/21 19:40:00

Java 最高均薪 19015 元！ 9 月程序员工资出炉，你拖后腿了吗？

在全员争当码农的时代，如果你也想学一门编程语言，那么，我要告诉你，Java 是编程语言中不可撼动的王者。有点难理解？先看个排行榜???? 来自权威开发语言排行榜 TIOBE 的数据（截止到 2020 年 4 月&#x…

编程日记2024/11/21 19:30:00

java 基础知识八正则表达式

正则表达式是一种可以用于模式匹配和替换的规范， 一个正则表达式就是由普通的字符（例如字符a到z）以及特殊字符（元字符）组成的文字模式， 用以描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为…

编程日记2024/11/21 19:20:00

PHP中Session的使用

启用配置//修改php.ini中的session.auto_start 0 为 session.auto_start 1session_start();$_SESSION[username]"HM";

编程日记2024/11/21 19:10:00

《Two Dozen Short Lessons in Haskell》学习（八）- Function Types, Classes, and Polymorphism

编程日记2024/11/21 19:00:00

图神经网络快速爆发，最新进展都在这里了

译者 | 刘畅出品 | AI科技大本营（rgznai100）近年来，图神经网络（GNNs）发展迅速，最近的会议上发表了大量相关的研究论文。本文作者正在整理一个GNN的简短介绍和最新研究报告的摘要。希望这对任何准备进入该领…

编程日记2024/11/21 18:50:00

css去掉a标签点击后的虚线框

outline是css3的一个属性，用的很少。声明，这是个不能兼容的css属性，在ie6、ie7、遨游浏览器都不兼容。 outline控制的到底是什么呢？ 当聚焦a标签的时候，在a标签的区域周围会有一个虚线的框，这个框不同于bo…

编程日记2024/11/21 18:40:00

在SQL Server中保存和输出任意类型的文件

我们可以把任意类型的文件保存到SQL Server中，在进行例子之前，先建立测试用表格，TestFile.sql：if exists (select * from dbo.sysobjects where id object_id(N[dbo].[TestFiles]) and OBJECTPROPERTY(id, NIsUserTable) 1) dro…

编程日记2024/11/21 18:30:00

工作中InnoDB引擎数据库主从复制同步心得

近期将公司的MySQL架构升级了，由原先的一主多从换成了DRBDHeartbeat双主多从，正好手上有一个电子商务网站新项目也要上线了，用的是DRBDHeartbeat双主一从，由于此过程还是有别于以前的MyISAM引擎的，所以这里也将其心得归…

编程日记2024/11/21 18:20:00

面试官：因为这个语言，我淘汰了90%的人！

很多人都有这样的经历：大量重复性工作；日报、周报、各种报，无穷无尽；不计其数的数据提取琐碎繁杂的事务让工作的效率极低。如果可以一键完成就好了。对这些问题来说，最高效的解决途径就是 Python。1991 年，…

编程日记2024/11/21 18:10:00

SQL Server不能启动

SQL Server不能正常启动 I had a similar issue after uninstalling Visual Studio 2010 (which autmatically came with a Visual Studio Express 2013 install). I solved it by going through the follwing steps. Installing Visual Studio 2010 shell from here: https://…

编程日记2024/11/21 18:00:00

ASP.NET 配置节架构

ASP.NET 配置节架构包含控制 ASP.NET Web 应用程序行为的元素。如果为属性指定了默认值，则该默认值是在 Machine.config 文件中设置的，该文件的路径是 systemroot/Microsoft.NET/Framework/versionNumber/CONFIG/Machine.config。 <configuration>…

编程日记2024/11/21 17:50:00

IEEE迎来首位华人主席，马里兰大学终身教授刘国瑞当选

10月12日，IEEE宣布马里兰大学终身教授刘国瑞（K. J. Ray Liu）当选为2021年IEEE主席，他也是首位当选IEEE主席的华人学者，他将在明年1月开始接任现任IEEE主席Susan K. Kathy Land的职务。在此次IEEE候选主席竞选中&#…

编程日记2024/11/21 17:40:00

Visual C++ 2010 简介

VC是用来创建基于 Microsoft Windows 和 Microsoft .NET 的应用程序原文地址：http://msdn.microsoft.com/zh-cn/library/60k1461a%28vvs.100%29.aspx提供了强大而灵活的开发环境，用于创建基于 Microsoft Windows 和 Microsoft .NET 的应用程序。您可以在…

编程日记2024/11/21 17:30:00

Linux网络编程：基于UDP的程序开发回顾篇

基于无连接的UDP程序设计同样，在开发基于UDP的应用程序时，其主要流程如下： 对于面向无连接的UDP应用程序在开发过程中服务端和客户端的操作流程基本差不多。对比面向连接的TCP程序，服务端少了listen和accept函数。前面我们也说过…

编程日记2024/11/21 17:20:00

四款5G版iPhone 12齐发，苹果股价却应声而跌

整理 | 郑丽媛、屠敏题图 | 东方IC来源 | CSDN（CSDNnews）真快，又见面了。北京时间 10 月 14 日凌晨 1 点，Apple 举办的新品发布会如约而至。今年有关 iPhone 新品的到来有些迟，好在「5G just got real」，万…

编程日记2024/11/21 17:10:00

Linux编译器GCC的使用

嵌入式Linux编译器GCC的使用 1、GCC概述作为自由软件的旗舰项目，Richard Stallman在十多年前刚开始写作GCC的时候，还只是仅仅把它当作一个C程序语言的编译器，GCC的意思也只是GNU C Compiler而已。经过了这么多年的发展，GCC已经不…

编程日记2024/11/21 17:00:00

jquery兼容IE和火狐下focus()事件

<input type"text" id"my" name"my" /> <script type"text/javascript">$("#my").focus(); </script> 上面的代码在IE下是没有任何问题的,但是不兼容FF,在FF没有反应解决办法:兼容写法 IE和FF下focus()事…

编程日记2024/11/21 16:50:00

Access-Control-Allow-Origin这个header这个头不能设置通配符域名

这个header属性，要么设置为*，即任何域名来源都行，要么就只能设置为一个或多个，确定的域名，不能使用通配符域名转载于:https://www.cnblogs.com/abcbuzhiming/p/6478910.html

编程日记2024/11/21 16:40:00

MySQL Xtrabackup备份和恢复

简介 Xtrabackup是由percona提供的mysql数据库备份工具，据官方介绍，这也是世界上惟一一款开源的能够对innodb和xtradb数据库进行热备的工具。特点：(1)备份过程快速、可靠；(2)备份过程不会打断正在执行的事务；(3)能够基…

编程日记2024/11/21 16:30:01

吐血整理：手拿几个大厂offer的秘密武器！

怎样才能拿到大厂的offer？没有掌握绝对的技术，那么就要不断的学习。如何拿下阿里等大厂的offer呢，今天分享一个秘密武器，资深架构师整理的Java核心知识点，面试时面试官必问的知识点，篇章包括了很多知识点&a…

编程日记2024/11/21 16:20:00

.NET中获取电脑名，IP地址，当前用户

在.NET中获取一台电脑名，IP地址及当前用户名是非常简单，以下是我常用的几种方法,如果大家还有其它好的方法，可以回复一起整理： 1. 在ASP.NET中专用属性： 获取服务器电脑名: Page.Server.ManchineName 获取用户信息:…

编程日记2024/11/21 16:10:00

SpringMVC注解整理

2019独角兽企业重金招聘Python工程师标准>>> 使用注解之前要开启自动扫描功能其中base-package为需要扫描的包(含子包)。 <context:component-scan base-package"cn.test"/> Configuration把一个类作为一个IoC容器，它的某个方法头上如果…

编程日记2024/11/21 16:00:00

Facebook是如何做搜索的？

作者 | 一块小蛋糕来源 | NewBeeNLP今天要和大家分享的论文是来自Facebook的『Embedding based Retrieval in Facebook Search』。不得不说，F家的文章还是一如既往浓浓的工业风，这篇论文从工程角度讲解了一个召回的全流程，不管是做语义信息检…

编程日记2024/11/21 15:50:00

JavaScript[对象.属性]集锦

作者： 蓝色理想 SCRIPT 标记? 用于包含JavaScript代码.? 属性? LANGUAGE 定义脚本语言? SRC 定义一个URL用以指定以.JS结尾的文件? windows对象? 每个HTML文档的顶层对象.? 属性? frames[] 子桢数组.每个子桢数组按源文档中定义的顺序存放.? feames…

编程日记2024/11/21 15:40:00

c++ hook 钩子的使用介绍

一、基本概念： 钩子(Hook)，是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的。当消息到达后，在目标窗口处理函数之前处理它。钩子机制允许应用程序截…

编程日记2024/11/21 15:30:00

相关文章：