This is the mail archive of the xsl-list@mulberrytech.com mailing list .


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Remove node in xml file from Visual Basic?


I have a question about how to remove a node in a xml tree from VB6.

xml code is like this:

<a>
  <aa>
     <gen_date>13.4.2000</gen_date>
     <name>blablabla</name>
  </aa>
  <aa>
     <gen_date>12.4.2000</gen_date>
     <name>lablablab</name>
  </aa>
</a>

So what i do is getting the gen_date (12.4.2000) and i've solved how to 
delete only that but what i want to do is to delete it's parent to that 
particular date, which is <aa>

Result should then be

<a>
  <aa>
     <gen_date>13.4.2000</gen_date>
     <name>blablabla</name>
  </aa>
</a>

Here is the Visual Basic Code:

Dim xmldoc
Dim Check, Tmp_Date, Del_Date As String
Dim Ant, x As Integer
Del_Date = "12.4.2000"
Set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.async = False
xmldoc.Load ("f:\Data.Xml")
Set SlettNode = xmldoc.getElementsByTagName("gen_date")
Ant = SlettNode.length
For x = 0 To Antall - 1
    Tmp_Date = SlettNode.Item(x).nodetypedvalue
    Tmp_Date = RTrim(Left(Tmp_Dato, 10))
    If Mid(Tmp_Date, 2, 1) = "." And Mid(Tmp_Date, 4, 1) = "." Then
        Tmp_Date = RTrim(Left(Tmp_Date, 9))
    End If
    If Tmp_Date = Del_Dato Then
        Set OldChild = SlettNode.Item(x).firstchild
        SlettNode.Item(x).RemoveChild OldChild
    End If
Next x
xmldoc.save ("f:\Data.Xml")

Thanks

Paal Steven
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com


 XSL-List info and archive:  http://www.mulberrytech.com/xsl/xsl-list

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]