एक विशिष्ट XML नोड कैसे खोजें और इसके मूल नोड को कैसे हटाएं? - xml, vb6, xml-parsing

मेरे पास एक XML फ़ाइल है जो इस तरह से पढ़ती है

<abc>
<ab>value</ab>
<aa>time</aa>
<ac>money</ac>
</abc>
<abc>
<ab>right</ab>
<aa>left</aa>
<ac>straight</ac>
</abc>

मैं जो चाहता हूं वह यह है कि मैं उस नोड को ढूंढने में सक्षम हूं, जिसका मूल्य "बाएं" है और फिर उसके मूल नोड को हटा दें ताकि मैं उस पर क्या करूं

<abc>
<ab>value</ab>
<aa>time</aa>
<ac>money</ac>
</abc>

अग्रिम में धन्यवाद

उत्तर:

यदि यह दस्तावेज़ तत्व जोड़कर XML को मान्य करने के लिए सही किया गया था:

<doc>
<abc>
<ab>value</ab>
<aa>time</aa>
<ac>money</ac>
</abc>
<abc>
<ab>right</ab>
<aa>left</aa>
<ac>straight</ac>
</abc>
</doc>

आप कुछ ऐसा कर सकते हैं:

Dim DOM As MSXML2.DOMDocument
Dim Node As MSXML2.IXMLDOMNode

Set DOM = New MSXML2.DOMDocument
With DOM
.async = False
.preserveWhiteSpace = True
If .Load("sample.xml") Then
.setProperty "SelectionLanguage", "XPath"
Set Node = .selectSingleNode("//*[.="left"]")
If Not Node Is Nothing Then
.documentElement.removeChild Node.parentNode
On Error Resume Next
Kill "sample.xml"
On Error GoTo 0
.save "sample.xml"
MsgBox "Done, saved as sample.xml"
Else
MsgBox "No ""left"" found"
End If
Else
MsgBox "Load failed!" & vbNewLine & vbNewLine _
& CStr(.parseError.errorCode) & " " _
& .parseError.reason
End If
End With