青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品

S.l.e!ep.¢%

像打了激速一樣,以四倍的速度運(yùn)轉(zhuǎn),開(kāi)心的工作
簡(jiǎn)單、開(kāi)放、平等的公司文化;尊重個(gè)性、自由與個(gè)人價(jià)值;
posts - 1098, comments - 335, trackbacks - 0, articles - 1
  C++博客 :: 首頁(yè) :: 新隨筆 :: 聯(lián)系 :: 聚合  :: 管理
網(wǎng)上找了個(gè)VBS操作XML的類(lèi),代碼如下:
Class clsXML
'strFile must be full path to document, ie C:XMLXMLFile.XML
'objDoc is the XML Object
Private strFile, objDoc

'*********************************************************************
' Initialization/Termination
'*********************************************************************

'Initialize Class Members
Private Sub Class_Initialize()
strFile = ""
End Sub

'Terminate and unload all created objects
Private Sub Class_Terminate()
Set objDoc = Nothing
End Sub

'*********************************************************************
' Properties
'*********************************************************************

'Set XML File and objDoc
Public Property Let File(str)
Set objDoc = CreateObject("Microsoft.XMLDOM")
objDoc.async = False
strFile = str
objDoc.Load strFile
End Property

'Get XML File
Public Property Get File()
File = strFile
End Property

'*********************************************************************
' Functions
'*********************************************************************

'Create Blank XML File, set current obj File to newly created file
Public Function createFile(strPath, strRoot)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(strPath, True)
objTextFile.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
objTextFile.WriteLine("<" & strRoot & "/>")
objTextFile.Close
Me.File = strPath
Set objTextFile = Nothing
Set objFSO = Nothing
End Function

'Get XML Field(s) based on XPath input from root node
Public Function getField(strXPath)
Dim objNodeList, arrResponse(), i
Set objNodeList = objDoc.documentElement.selectNodes(strXPath)
ReDim arrResponse(objNodeList.length)
For i = 0 To objNodeList.length - 1
arrResponse(i) = objNodeList.Dir(i).Text
Next
getField = arrResponse
End Function

'Update existing node(s) based on XPath specs
Public Function updateField(strXPath, strData)
Dim objField
For Each objField In objDoc.documentElement.selectNodes(strXPath)
objField.DirName= strData
Next
objDoc.Save strFile
Set objField = Nothing
updateField = True
End Function

'Create node directly under root
Public Function createRootChild(strNode)
Dim objChild
Set objChild = objDoc.createNode(1, strNode, "")
objDoc.documentElement.appendChild(objChild)
objDoc.Save strFile
Set objChild = Nothing
End Function

'Create a child node under root node with attributes
Public Function createRootNodeWAttr(strNode, attr, val)
Dim objChild, objAttr
Set objChild = objDoc.createNode(1, strNode, "")
If IsArray(attr) And IsArray(val) Then
If UBound(attr)-LBound(attr) <> UBound(val)-LBound(val) Then
Exit Function
Else
Dim i
For i = LBound(attr) To UBound(attr)
Set objAttr = objDoc.createAttribute(attr(i))
objChild.setAttribute attr(i), val(i)
Next
End If
Else
Set objAttr = objDoc.createAttribute(attr)
objChild.setAttribute attr, val
End If
objDoc.documentElement.appendChild(objChild)
objDoc.Save strFile
Set objChild = Nothing
End Function

'Create a child node under the specified XPath Node
Public Function createChildNode(strXPath, strNode)
Dim objParent, objChild
For Each objParent In objDoc.documentElement.selectNodes(strXPath)
Set objChild = objDoc.createNode(1, strNode, "")
objParent.appendChild(objChild)
Next
objDoc.Save strFile
Set objParent = Nothing
Set objChild = Nothing
End Function

'Create a child node(s) under the specified XPath Node with attributes
Public Function createChildNodeWAttr(strXPath, strNode, attr, val)
Dim objParent, objChild, objAttr
For Each objParent In objDoc.documentElement.selectNodes(strXPath)
Set objChild = objDoc.createNode(1, strNode, "")
If IsArray(attr) And IsArray(val) Then
If UBound(attr)-LBound(attr) <> UBound(val)-LBound(val) Then
Exit Function
Else
Dim i
For i = LBound(attr) To UBound(attr)
Set objAttr = objDoc.createAttribute(attr(i))
objChild.SetAttribute attr(i), val(i)
Next
End If
Else
Set objAttr = objDoc.createAttribute(attr)
objChild.setAttribute attr, val
End If
objParent.appendChild(objChild)
Next
objDoc.Save strFile
Set objParent = Nothing
Set objChild = Nothing
End Function

'Delete the node specified by the XPath
Public Function deleteNode(strXPath)
Dim objOld
For Each objOld In objDoc.documentElement.selectNodes(strXPath)
objDoc.documentElement.removeChild objOld
Next
objDoc.Save strFile
Set objOld = Nothing
End Function
End Class


然后,我參照上面的類(lèi)寫(xiě)了個(gè)目錄島,代碼如下:

Dim objXML, strPath, str

Set objXML = New clsXML

strPath = "c:Dir.xml"

objXML.createFile strPath, "Dir_Island"
'<!-- 創(chuàng)建3個(gè)根節(jié)點(diǎn) -->
objXML.createRootNodeWAttr "Dir", Array("DirID","DirName", "DirOwner", "DirDescption","CreateTime"), _
Array(1,"Dir1", "Lili", "a",now)
objXML.createRootNodeWAttr "Dir", Array("DirID","DirName", "DirOwner", "DirDescption","CreateTime"), _
Array(2,"Dir2", "Jony", "b",now)
objXML.createRootNodeWAttr "Dir", Array("DirID","DirName", "DirOwner", "DirDescption","CreateTime"), _
Array(3,"Dir3", "Self", "c",now)
'<!-- 在第一個(gè)根節(jié)點(diǎn)中創(chuàng)建1個(gè)子節(jié)點(diǎn)可以成功 -->
objXML.createChildNodeWAttr "Dir[@DirName='Dir1']", "Dir", _
Array("DirID","DirName", "DirOwner", "DirDescption","CreateTime"), _
Array(4,"Sub_Dir1", "Jony1", "bb",now)
'<!-- 在剛才創(chuàng)建的子節(jié)點(diǎn)中再創(chuàng)建1個(gè)子節(jié)點(diǎn)怎么就不行? -->
objXML.createChildNodeWAttr "Dir[@DirName='Sub_Dir1']", "Dir", _
Array("DirID","DirName", "DirOwner", "DirDescption","CreateTime"), _
Array(5,"Sub_Sub_Dir1", "Jony2", "bbb",now)

Set objXML = Nothing

'程序運(yùn)行完后生成的XML文件如下:
' <?xml version="1.0" encoding="gb2312" ?>
'- <Dir_Island>
' - <Dir DirID="1" DirName="Dir1" DirOwner="Lili" DirDescption="a" CreateTime="3/30/2004 9:03:11 AM">
' <Dir DirID="4" DirName="Sub_Dir1" DirOwner="Jony1" DirDescption="bb" CreateTime="3/30/2004 9:03:11 AM" />
' </Dir>
' <Dir DirID="2" DirName="Dir2" DirOwner="Jony" DirDescption="b" CreateTime="3/30/2004 9:03:11 AM" />
' <Dir DirID="3" DirName="Dir3" DirOwner="Self" DirDescption="c" CreateTime="3/30/2004 9:03:11 AM" />
' </Dir_Island>

'為什么不是這樣的呢?

' <?xml version="1.0" encoding="gb2312" ?>
'- <Dir_Island>
' - <Dir DirID="1" DirName="Dir1" DirOwner="Lili" DirDescption="a" CreateTime="3/30/2004 9:03:11 AM">
' <Dir DirID="4" DirName="Sub_Dir1" DirOwner="Jony1" DirDescption="bb" CreateTime="3/30/2004 9:03:11 AM">
' <Dir DirID="5" DirName="Sub_Sub_Dir1" DirOwner="Jony2" DirDescption="bbb" CreateTime="3/30/2004 9:03:11 AM" />
' </Dir>
' </Dir>
' <Dir DirID="2" DirName="Dir2" DirOwner="Jony" DirDescption="b" CreateTime="3/30/2004 9:03:11 AM" />
' <Dir DirID="3" DirName="Dir3" DirOwner="Self" DirDescption="c" CreateTime="3/30/2004 9:03:11 AM" />
' </Dir_Island>

以上代碼需要測(cè)試的話請(qǐng)各位連同類(lèi)和代碼COPY到本地新建一個(gè)VBS文檔運(yùn)行,運(yùn)行結(jié)果在你本機(jī)C:Dir.xml中顯示。
請(qǐng)教各位XML高手啊。
青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品
  • <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            一区二区三区 在线观看视| 欧美在线观看你懂的| 欧美一区二区三区在线观看| 久久噜噜亚洲综合| 欧美视频在线观看免费| 国精品一区二区| 一区二区三区|亚洲午夜| 久久精品国产久精国产爱| 91久久线看在观草草青青| 亚洲专区在线视频| 欧美成人一区在线| 国产亚洲毛片| 一区二区欧美国产| 女仆av观看一区| 亚洲欧美国产另类| 欧美精选在线| 影院欧美亚洲| 小嫩嫩精品导航| 亚洲精品久久久久中文字幕欢迎你| 欧美一级视频精品观看| 欧美日韩日日骚| 亚洲国产精品久久久久| 久久国产精品99国产| 99视频+国产日韩欧美| 麻豆精品视频| 国产自产高清不卡| 亚洲欧美电影在线观看| 亚洲经典自拍| 久久手机免费观看| 国产一区二区高清| 亚洲欧美在线高清| 亚洲欧洲在线播放| 免费视频一区| 影院欧美亚洲| 老司机凹凸av亚洲导航| 亚洲欧美日韩综合aⅴ视频| 欧美日韩综合| 一区二区高清在线观看| 亚洲国产高清在线| 噜噜噜91成人网| 精品99一区二区三区| 久久精品官网| 午夜天堂精品久久久久| 国产精品扒开腿爽爽爽视频| 99热这里只有精品8| 亚洲第一页自拍| 麻豆成人av| 亚洲二区三区四区| 女人香蕉久久**毛片精品| 久久www成人_看片免费不卡| 国产日本欧洲亚洲| 久久九九精品| 性色av一区二区三区红粉影视| 国产精品久久久久久久久久久久久| 夜夜嗨av一区二区三区免费区| 欧美成人综合一区| 欧美不卡福利| 亚洲精品乱码久久久久久按摩观| 欧美va天堂在线| 久久中文久久字幕| 亚洲激情在线激情| 亚洲狠狠丁香婷婷综合久久久| 免费国产一区二区| 亚洲精品欧美日韩专区| 亚洲激情成人在线| 欧美日本精品在线| 一区二区三区高清不卡| 一区二区三区蜜桃网| 国产精品久久久久久av福利软件 | 亚洲国产一区二区三区在线播| 蜜臀av性久久久久蜜臀aⅴ四虎 | 在线视频日韩| 一区二区三区欧美激情| 国产精品毛片| 欧美一区三区二区在线观看| 欧美一二三区精品| 激情视频一区二区| 欧美国产视频日韩| 欧美精品一区在线播放| 亚洲视频在线视频| 性欧美大战久久久久久久免费观看 | 亚洲国产免费| 欧美日韩专区| 久久se精品一区二区| 久久久久9999亚洲精品| 亚洲精品国产精品乱码不99按摩| 亚洲精品一区二区三区福利| 国产精品激情av在线播放| 久久aⅴ国产紧身牛仔裤| 久久精品综合| 夜久久久久久| 午夜激情一区| 亚洲人成7777| 亚洲视频一区在线观看| 韩日精品中文字幕| 亚洲人成网站精品片在线观看| 欧美日韩在线精品一区二区三区| 老色批av在线精品| 一区二区三区四区五区精品| 亚洲综合日韩| 亚洲国产精品毛片| 一个色综合av| 狠狠色狠色综合曰曰| 亚洲精品视频免费观看| 国产色视频一区| 亚洲国产精彩中文乱码av在线播放| 欧美日韩ab片| 久久久夜夜夜| 欧美伦理视频网站| 久久久久久亚洲精品杨幂换脸 | 欧美日韩午夜在线视频| 欧美中文字幕视频| 欧美激情偷拍| 久久午夜电影网| 欧美日韩精品福利| 老司机午夜精品| 欧美日一区二区三区在线观看国产免| 久久精品成人一区二区三区蜜臀| 欧美成人日韩| 久久成人18免费观看| 欧美理论电影在线观看| 久久久久www| 欧美色欧美亚洲另类七区| 免费的成人av| 国产精品视频免费一区| 亚洲激情欧美激情| 国内精品福利| 正在播放亚洲| 亚洲人成啪啪网站| 久久精品五月| 性欧美办公室18xxxxhd| 欧美精品v国产精品v日韩精品| 久久久久久久久岛国免费| 欧美视频一区二区| 亚洲国产精品久久人人爱蜜臀 | 91久久极品少妇xxxxⅹ软件| 午夜欧美理论片| 亚洲视频中文字幕| 暖暖成人免费视频| 鲁鲁狠狠狠7777一区二区| 国产精品乱码一区二三区小蝌蚪 | 亚洲欧美一区二区激情| 欧美精品激情blacked18| 老巨人导航500精品| 国产美女扒开尿口久久久| 日韩亚洲一区二区| 亚洲区免费影片| 久久一区国产| 毛片基地黄久久久久久天堂| 国产日韩在线看片| 亚洲宅男天堂在线观看无病毒| 在线视频精品一区| 欧美黄色小视频| 欧美高清视频免费观看| 狠狠入ady亚洲精品| 香蕉久久夜色| 欧美一区三区三区高中清蜜桃| 国产精品福利在线| 99精品国产高清一区二区| 99re6热在线精品视频播放速度| 裸体一区二区| 欧美激情在线有限公司| 亚洲第一久久影院| 久久久久久国产精品一区| 久久久久天天天天| 国产农村妇女精品| 亚洲欧美日韩国产精品| 欧美诱惑福利视频| 国产欧美日韩精品专区| 亚洲欧美日韩天堂| 久久福利毛片| 国产在线观看91精品一区| 欧美在线不卡| 麻豆成人综合网| 在线免费高清一区二区三区| 久久综合久久美利坚合众国| 欧美国产欧美亚洲国产日韩mv天天看完整 | 国产精品免费一区二区三区观看| 一二三区精品| 性欧美长视频| 国产日韩欧美自拍| 欧美专区在线观看| 老司机免费视频一区二区| 亚洲高清激情| 欧美激情免费在线| 日韩一级黄色av| 亚洲欧美另类久久久精品2019| 国产精品久久国产精麻豆99网站| 亚洲私人影院在线观看| 欧美在线观看视频一区二区三区| 国产欧美日韩不卡免费| 久久国产免费| 欧美激情在线免费观看| 一本色道久久综合亚洲精品不卡| 欧美精品xxxxbbbb| 亚洲香蕉视频| 老鸭窝毛片一区二区三区| 亚洲精品麻豆| 国产精品看片你懂得| 欧美在线视频观看免费网站|