|
’----------------------------------------
’目的： 删除所有已经注册，或者没注册的节点
’参数： blnStart: 0=未注册的,1=已经注册的
’返回： 执行了删除操作就返回TRUE，否则返回FALSE
’----------------------------------------
以下是引用片段：
public function ReAllNode(byVal blnStart)
dim objNode
dim blnIsChange
blnStart = CStr(blnStart)
for each objNode in s_objNodeRoot.childNodes
if objNode.Attributes.getNamedItem(s_strAttributeName).nodeValue = blnStart then
call s_objNodeRoot.removeChild(objNode)
blnIsChange = true
end if
next
if blnIsChange then
ReAllNode = true
call s_objXml.save(s_strXmlPath)
else
ReAllNode = false
end if
end function |
’-----------------------------------------
’目的： 删除某一个节点
’参数： 节点内容
’返回： 找不到节点就返回TRUE
’-----------------------------------------
以下是引用片段：
public function ReNode(strPath)
dim objNode
set objNode = SelectNode(strPath)
if objNode is nothing then
ReNode = true
else
call s_objNodeRoot.removeChild(objNode)
call s_objXml.save(s_strXmlPath)
end if
end function |
’-----------------------------------------
’目的： 寻找某个节点
’参数： strPath: 节点内容
’返回： 找到就返回该节点，找不到就返回nothing
’-----------------------------------------
以下是引用片段：
private function SelectNode(ByVal strPath)
dim objNode
strPath = UCase(strPath)
for each objNode in s_objNodeRoot.childNodes
if UCase(objNode.childNodes.item(0).nodeValue) = strPath then
Set SelectNode = objNode
exit function
end if
next
set SelectNode = nothing
end function |
’--------------------------------------------
’目的： 查看DLL文件列表里某个文件注册状态
’参数： 该文件路径
’返回： 1=已经注册
’ 0=未注册
’ -1=找不到该文件
’--------------------------------------------
上一页 [1] [2] [3] [4] 下一页 |
