vbs class generates xml file
Please indicate the source when reprinting: vbs class generated xml file
There are two files:
objXML.asp: test file
clsXML.asp: vbs class file
Code:
objXML.asp <%@ Language=VBScript %><% Option Explicit %><!--#INCLUDE FILE='clsXML.asp'--><%Dim objXML, strPath, strSet objXML = New clsXML strPath = Server.MapPath('.') & '\New.xml' objXML.createFile strPath, 'Root''Or If using an existing XML file:'objXML.File = 'C:\File.xml' objXML.createRootChild 'Images' 'Here only one attribute is added to the Images/Image NodeobjXML.createChildNodeWAttr 'Images', 'Image', 'id', '1'objXML.updateField 'Images//Image[@id=1]', 'super.gif'objXML.createRootNodeWAttr 'Jobs', Array('Size', 'Length', 'Width'), _Array(24, 31, 30)objXML.createRootNodeWAttr 'Jobs', Array('Size', 'Length', 'Width'), _Array(24, 30, 29)objXML.createRootNodeWAttr 'Jobs', Array('Size', 'Length', 'Width'), _Array(24, 31, 85) 'Notice that all three job nodes have size 24, all of those 'nodes will be updatedobjXML.updateField 'Jobs[@Size=24]', '24's' 'Notice that only two nodes have the specified XPath, hence 'only two new child nodes will be addedobjXML.createChildNodeWAttr 'Jobs[@Size=24 and @Length=31]', 'Specs', _Array('Wood', 'Metal', 'Color'), _Array('Cedar', 'Aluminum', 'Green') 'It is always important to iterate through all of the nodes'returned by this XPath query.For Each str In objXML.getField('Jobs[@Size=24]')Response. Write(str & '<br>')NextSet objXML = Nothing Response.Redirect 'New.xml'%> clsXML.asp: <%Class clsXML'strFile must be full path to document, ie C:\XML\XMLFile.XML'objDoc is the XML ObjectPrivate strFile, objDoc '*********************************************************************' Initialization/Termination'********************************************************************* 'Initialize Class MembersPrivate Sub Class_Initialize()strFile = ''End Sub 'Terminate and unload all created objectsPrivate Sub Class_Terminate()Set objDoc = NothingEnd Sub '*********************************************************************' Properties'********************************************************************* 'Set XML File and objDocPublic Property Let File(str)Set objDoc = Server.CreateObject('Microsoft.XMLDOM')objDoc.async = FalsestrFile = strobjDoc.Load strFileEnd Property 'Get XML FilePublic Property Get File()File = strFileEnd Property '*********************************************************************' Functions'********************************************************************* 'Create Blank XML File, set current obj File to newly created filePublic Function createFile(strPath, strRoot)Dim objFSO, objTextFileSet objFSO = Server. CreateObject('Scripting.FileSystemObject')Set objTextFile = objFSO.CreateTextFile(strPath, True)objTextFile.WriteLine('<?xml version=''1.0''?>')objTextFile. WriteLine('<' & strRoot & '/>')objTextFile.CloseMe.File = strPathSet objTextFile = NothingSet objFSO = NothingEnd Function 'Get XML Field(s) based on XPath input from root nodePublic Function getField(strXPath)Dim objNodeList, arrResponse(), iSet objNodeList = objDoc.documentElement. selectNodes(strXPath)ReDim arrResponse(objNodeList.length)For i = 0 To objNodeList.length - 1arrResponse(i) = objNodeList.item(i). TextNextgetField = arrResponseEnd Function 'Update existing node(s) based on XPath specsPublic Function updateField(strXPath, strData)Dim objFieldFor Each objField In objDoc.documentElement. selectNodes(strXPath)objField.Text = strDataNextobjDoc.Save strFileSet objField = NothingupdateField = TrueEnd Function 'Create node directly under rootPublic Function createRootChild(strNode)Dim objChildSet objChild = objDoc.createNode(1, strNode, '')objDoc.documentElement. appendChild(objChild)objDoc.Save strFileSet objChild = NothingEnd Function 'Create a child node under root node with attributesPublic Function createRootNodeWAttr(strNode, attr, val)Dim objChild, objAttrSet objChild = objDoc. createNode(1, strNode, '')If IsArray(attr) And IsArray(val) ThenIf UBound(attr)-LBound(attr) <> UBound(val)-LBound(val) ThenExit FunctionElseDim iFor i = LBound(attr) To UBound(attr)Set objAttr = objDoc.createAttribute(attr(i))objChild.setAttribute attr(i), val(i)NextEnd IfElseSet objAttr = objDoc. createAttribute(attr)objChild.setAttribute attr, valEnd IfobjDoc.documentElement.appendChild(objChild)objDoc.Save strFileSet objChild = NothingEnd Function 'Create a child node under the specified XPath NodePublic Function createChildNode(strXPath, strNode)Dim objParent, objChildFor Each objParent In objDoc. documentElement.selectNodes(strXPath)Set objChild = objDoc.createNode(1, strNode, '')objParent.appendChild(objChild)NextobjDoc.Save strFileSet objParent = NothingSet objChild = NothingEnd Function 'Create a child node(s) under the specified XPath Node with attributesPublic Function createChildNodeWAttr(strXPath, strNode, attr, val)Dim objParent, objChild, objAttrFor Each objParent In objDoc.documentElement.selectNodes(strXPath)Set objChild = objDoc.createNode(1, strNode, '')If IsArray(attr) And IsArray(val) ThenIf UBound(attr)-LBound(attr) <> UBound(val)-LBound(val) ThenExit FunctionElseDim iFor i = LBound(attr) To UBound(attr)Set objAttr = objDoc. createAttribute(attr(i))objChild.SetAttribute attr(i), val(i)NextEnd IfElseSet objAttr = objDoc.createAttribute(attr)objChild.setAttribute attr, valEnd IfobjParent.appendChild(objChild)NextobjDoc.Save strFileSet objParent = NothingSet objChild = NothingEnd Function 'Delete the node specified by the XPathPublic Function deleteNode(strXPath)Dim objOldFor Each objOld In objDoc.documentElement.selectNodes(strXPath)objDoc. documentElement.removeChild objOldNextobjDoc.Save strFileSet objOld = NothingEnd FunctionEnd Class%>
The above is the content of the vbs class generated xml file. For more related content, please pay attention to the PHP Chinese website (m.sbmmt.com)!
Hot AI Tools
Undress AI Tool
Undress images for free
AI Clothes Remover
Online AI tool for removing clothes from photos.
Undresser.AI Undress
AI-powered app for creating realistic nude photos
ArtGPT
AI image generator for creative art from text prompts.
Stock Market GPT
AI powered investment research for smarter decisions
Hot Article
Popular tool
Notepad++7.3.1
Easy-to-use and free code editor
SublimeText3 Chinese version
Chinese version, very easy to use
Zend Studio 13.0.1
Powerful PHP integrated development environment
Dreamweaver CS6
Visual web development tools
SublimeText3 Mac version
God-level code editing software (SublimeText3)
Hot Topics
20519
7
13632
4
How to convert XML to YAML for DevOps? (Configuration Management)
Mar 12, 2026 am 12:11 AM
xmltodict PyYAMListhesafestcomboforDevOpsconfigfilesbecauseitpreservescomments,CDATA,namespaces,andattributesaccurately,unlikerawXML-to-YAMLtoolsorCLIutilitieslikeyqandxmllintwhichsilentlydropcriticalmetadata.
How to format and beautify XML code in Notepad ? (Pretty Print)
Mar 07, 2026 am 12:20 AM
Notepad needs to manually install and enable the XMLTools plug-in to format XML; if the tags are messed up or the content is lost after formatting, it means that the XML itself is illegal, and there are problems such as unclosed tags or illegal characters.
How to minify XML files for faster web loading? (Performance Optimization)
Mar 08, 2026 am 12:16 AM
RunningminifyonXMLwithoutunderstandingitsrulesbreaksparsingoralterssemanticsbecausewhitespacecanbemeaningful;safeminificationrequiresdata-orientedXML,controlledgeneration/consumption,andstrictparserawareness.
How to convert an XML file to a Word document? (Reporting)
Mar 09, 2026 am 01:05 AM
python-docx does not support direct reading of XML files. You need to use xml.etree.ElementTree or lxml to parse the XML extraction fields first, and then write them into the Document object segment by segment. Explicit declaration of prefixes is required to process namespaces, and manual manipulation of the underlying XML is required for table merging and styling. Chinese paths should be avoided when saving.
How to parse XML data from a URL API? (Rest Services)
Mar 13, 2026 am 12:06 AM
To parse remote XML API in Python, you need to use requests to get the response and then check the status code and Content-Type. Prioritize using r.text with xml.etree.ElementTree to parse; when encountering a namespace, you need to pass the namespace dictionary; use iterparse to stream large files and clear them manually; front-end JS requires CORS support or proxy.
How to use Attributes vs Elements in XML? (Design Best Practices)
Mar 16, 2026 am 12:26 AM
You should use attributes to store short metadata (such as id, type), and use elements to store scalable content data; because attributes do not support namespaces, duplication, nesting, and internationalization, their parsing is error-prone and maintenance is difficult.
How to open and view XML files in Windows 11? (Beginner Guide)
Mar 12, 2026 am 01:02 AM
The XML file cannot be opened by double-clicking because it is associated with Notepad by default, causing confusion in the display. You should use Notepad, VSCode or Edge instead; Edge can format and report errors, while VSCode requires the installation of extensions such as RedHatXML for normal highlighting, indentation and verification.
How to read XML data in C# using LINQ? (.NET Development)
Mar 15, 2026 am 12:43 AM
XDocument.Load() is the preferred method for reading local XML files and automatically handles encoding, BOM and format exceptions; absolute or correct relative paths are required; namespaces must be explicitly declared and participate in queries; Elements() and Descendants() behave differently and should be selected as needed; string parsing must capture XmlException and verify the source.




