XML Reading with XmlDocument

[David Costelloe]

Hi,
I am having trouble with this code can't seem to load these email values any
Ideas?
XML File

<?xml version="1.0" ?>
<Sections>
<FilePath>
<Path>c:\temp\</Path>
</FilePath>

<Comment>Email list for Report</Comment>

<EMails>
<Address1>So*********@email.com</Address1>
<Address2>So**********@email.com</Address2>
<Address3>So**********@email.com</Address3>
</EMails>
</Sections>

VB Code:

Try

Dim m_xmld As XmlDocument

Dim m_nodelist As XmlNodeList

Dim m_node As XmlNode

Dim intCounter As Int32

Dim strEmailText As String

'Create the XML Document

m_xmld = New XmlDocument()

'Load the Xml file

m_xmld.Load(m_strXMLPath)

'Get the list of Email nodes

m_nodelist = m_xmld.SelectNodes("/Sections/EMails")

'Loop through the nodes

For Each m_node In m_nodelist

'* Can't seem to load this as only the first get loaded??

strEmailText = m_node.ChildNodes.Item(intCounter).InnerText()

intCounter += 1

Next

Catch errorVariable As Exception

'Error trapping

End Try

Thanks

[LarryR]

Hi David,

I think the problem has to do with how you are using m_node in your loop.
Try changing your assignment statement to read:

For Each m_node In m_nodelist

'* Can't seem to load this as only the first get loaded??

strEmailText = m_node.ChildNodes.Item(intCounter).InnerText() Try this instead----> strEmailText = m_node.InnerText ' (Your m_node
variable references the current xmlnode in your nodelist

Hope this helps.

LarryR

"David Costelloe" <da************@sympatico.ca> wrote in message
news:ym*****************@news20.bellglobal.com... Hi,
I am having trouble with this code can't seem to load these email values any Ideas?
XML File

<?xml version="1.0" ?>
<Sections>
<FilePath>
<Path>c:\temp\</Path>
</FilePath>

<Comment>Email list for Report</Comment>

<EMails>
<Address1>So*********@email.com</Address1>
<Address2>So**********@email.com</Address2>
<Address3>So**********@email.com</Address3>
</EMails>
</Sections>

VB Code:

Try

Dim m_xmld As XmlDocument

Dim m_nodelist As XmlNodeList

Dim m_node As XmlNode

Dim intCounter As Int32

Dim strEmailText As String

'Create the XML Document

m_xmld = New XmlDocument()

'Load the Xml file

m_xmld.Load(m_strXMLPath)

'Get the list of Email nodes

m_nodelist = m_xmld.SelectNodes("/Sections/EMails")

'Loop through the nodes

For Each m_node In m_nodelist

'* Can't seem to load this as only the first get loaded??

strEmailText = m_node.ChildNodes.Item(intCounter).InnerText()

intCounter += 1

Next

Catch errorVariable As Exception

'Error trapping

End Try

Thanks

[David Costelloe]

Hi Larry,
Thanks for your reply
strEmailText = m_node.InnerText brings back everything (all 3 emails) in
one string with no spaces.
I am hoping to be able to load each email from the for each loop.

Thanks
David.......

"LarryR" <[e-mail]> wrote in message
news:OIHOb.6316$dd6.6239@lakeread02...

Hi David,

I think the problem has to do with how you are using m_node in your loop.
Try changing your assignment statement to read:

For Each m_node In m_nodelist

'* Can't seem to load this as only the first get loaded??

strEmailText = m_node.ChildNodes.Item(intCounter).InnerText() Try this instead----> strEmailText = m_node.InnerText ' (Your

m_node variable references the current xmlnode in your nodelist

Hope this helps.

LarryR

[Oleg Tkachenko]

David Costelloe wrote:

Hi Larry,
Thanks for your reply
strEmailText = m_node.InnerText brings back everything (all 3 emails) in
one string with no spaces.
I am hoping to be able to load each email from the for each loop.

Then iterate over /Sections/EMails/* elements:

m_nodelist = m_xmld.SelectNodes("/Sections/EMails/*")

and get InnerText of each one.
--
Oleg Tkachenko
XmlInsider
http://blog.tkachenko.com

[David Costelloe]

Hi,

I tried this:
Dim strEmailText as string
m_nodelist = m_xmld.SelectNodes("/Sections/EMails/*")

'Loop through the nodes

For Each m_node In m_nodelist

strEmailText = m_node.ChildNodes.Item(intCounter).InnerText()

intCounter += 1

Next

I must be missing something as everything I tried has brought back the 3
emails as one string?

This has got me baffled I even tried this in the loop

strEmailText = m_node.Item("Address" & intCount.ToString).InnerText

And yes it returned all 3 again

Thanks

"Oleg Tkachenko" <oleg@NO!SPAM!PLEASEtkachenko.com> wrote in message
news:un**************@TK2MSFTNGP10.phx.gbl...

Then iterate over /Sections/EMails/* elements:

m_nodelist = m_xmld.SelectNodes("/Sections/EMails/*")

and get InnerText of each one.
--
Oleg Tkachenko
XmlInsider
http://blog.tkachenko.com

[David Costelloe]

Well I gave up trying to load using the For Each method decided to use this
method which now allows me at add as many as I wish :-)

Dim reader As New XmlTextReader(m_strXMLPath)

While reader.Read()

If reader.Name.ToUpper = "ADDRESS" Then

strEmailText = reader.ReadInnerXml.ToString

End If

End While reader.Close()

Works like a charm

Thanks