Adrian C;620012 Wrote:
On 21/01/2010 23:36, Adrian C wrote:
Set oNList = oNode.selectNodes("record/offer/for")

nTot = oNList.length - 1

For nCnt = 0 to nTot

Set oThisNode = oXMLTreeList.nextNode()

' do whatever here for each node

Next


Whoops, bad cut n paste

Set oThisNode = oNList.nextNode()


--
Adrian C

Hi Adrian / Others

Sorry to continue to be thick on this but I now get msg "Object
Required"

Here is my updated code...

Set oNList = oNode.SelectNodes("record/offer/for")

nTot = oNList.Length - 1

For nCnt = 0 To nTot

Set oThisNode = oNList.NextNode()

' do whatever here for each node

mytext =
oDom.DocumentElement.SelectNodes("record/seller/name").Text

If mytext = "Jones" Then
' do stuff
End If
MsgBox (mytext)

Next

Any ideas please?
DEC


--
dec3
------------------------------------------------------------------------
dec3's Profile: 1398
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=172361

Microsoft Office Help