|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Dim i As Integer Dim objDOMDocument As DOMDocument 'XMLDocument Dim objNodeList As IXMLDOMNodeList 'XMLNodeList 몇개나 있는지 알려고 Dim objNode As IXMLDOMNode 'Set objDOMDocument = Server.CreateObject("microsoft.XMLDOM") 'asp 용 Set objDOMDocument = New DOMDocument '동적메모리 설정 objDOMDocument.async = False objDOMDocument.Load ("test.xml") 'text xml 파일 불러오기 string 은 LoadXml Set objNodeList = objDOMDocument.getElementsByTagName("books/book") '로드 찾기 If objNodeList.length Then For i = 0 To objNodeList.length - 1 '" node 갯수만큼 루프를 돈다. 2개면 2번 If objNodeList.Item(i).selectSingleNode("Name").nodeTypedValue = "DEL" Then Set objNode = objNodeList.Item(i).firstChild.parentNode objNodeList.Item(i).parentNode.removeChild objNode end if Next End If MsgBox objDOMDocument.xml |