excel - VBA - Loop specific childnodes from XML code -


i'm trying scrape following xml excel sheet. however, want loop through specific childnodes show name, priceeffectivestart, priceeffectiveend, price, , currency each index summary.

xml code

<indexprices>      <indexpricesummary>          <id>1</id>          <uri>www.example.com</uri>       <index>         <id>3</id>         <name>same day index</name>         <uri>www.example.com.xml</uri>       </index>       <priceeffectivestart>2015-06-26</priceeffectivestart>       <priceeffectiveend>2015-06-26</priceeffectiveend>       <price>          <amount>2.4806</amount>          <currency>cad</currency>       </price>       <duration>1</duration>       <quantitytraded>         <amount>474</amount>         <unit>gj</unit>         <contractunit>day</contractunit>       </quantitytraded>       <numberoftrades>7</numberoftrades>       <settlementstate>settled</settlementstate>       <lastupdatedate>2015-06-27t02:15:01-06:00</lastupdatedate>     </indexpricesummary>     <indexpricesummary>         <id>1</id>         <uri>www.example.com.xml</uri>      <index>       <id>1</id>       <name>same day index </name>       <uri>www.example.com.xml</uri>      </index>      <priceeffectivestart>2015-06-27</priceeffectivestart>      <priceeffectiveend>2015-06-27</priceeffectiveend>      <price>          <amount>2.516</amount>          <currency>cad</currency>      </price>      <duration>1</duration>      <quantitytraded>         <amount>251</amount>         <unit>gj</unit>         <contractunit>day</contractunit>      </quantitytraded>      <numberoftrades>50</numberoftrades>      <settlementstate>settled</settlementstate>      <lastupdatedate>2015-06-28t02:15:00-06:00</lastupdatedate>    </indexpricesummary> </indexprices>

vba code

dim xdoc domdocument set xdoc = new domdocument  xdoc.loadxml objhttp.responsetext  dim integer dim list ixmldomnodelist set list = xdoc.selectnodes("//indexprices/indexpricesummary")  dim node ixmldomnode dim childnode ixmldomnode dim price ixmldomnode  each node in list     = + 1      if (node.haschildnodes)         each childnode in node.childnodes              = + 1             debug.print childnode.basename & " " & childnode.text              worksheets("sheet1").cells(i, 1) = childnode.basename              worksheets("sheet1").cells(i, 2) = childnode.text         next childnode     end if     next node

the current vba shows nodes in output. show name, priceeffectivestart, priceeffectiveend, price, , currency each index summary.

thanks help!

you can use xpath on each indexpricesummary node @ child elements directly:

sub tester()     dim xdoc domdocument     set xdoc = new domdocument      ''more code here       xdoc.loadxml objhttp.responsetext      dim integer     dim list ixmldomnodelist     set list = xdoc.selectnodes("//indexprices/indexpricesummary")      dim node ixmldomnode, nd ixmldomnode     dim childnode ixmldomnode     dim price ixmldomnode      = 4     each node in list         = + 1          sheet1.rows(i)             .cells(1).value = getnodevalue(node, "index/name")             .cells(2).value = getnodevalue(node, "priceeffectivestart")             .cells(3).value = getnodevalue(node, "priceeffectiveend")             .cells(4).value = getnodevalue(node, "price/amount")             .cells(5).value = getnodevalue(node, "price/currency")         end      next node  end sub  function getnodevalue(node ixmldomnode, xp string)     dim n ixmldomnode, nv     set n = node.selectsinglenode(xp)     if not n nothing nv = n.nodetypedvalue     getnodevalue = nv end function

Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more