How do I fix my if statement to check 3 elements?

Question

0.00/5 (No votes)

See more:

I have the if statement below that is not working as I expect it to work. The xml document in objXMLInputDoc has 3 optional elements, AddPersonContactInformation, PersonTelephoneNumber and PersonEmailAddress
What I am trying to do is to check if any of the 3 elements exist and continue. If all are not present, the if statement will exit with an error.
It is working when all elements are not present. However when one element is present, the if statement still exists like. How do I fix the if statement so that, when there is one element present, it does not exit with an error?

This sample xml document is assigned to objXMLInputDoc. This is how if statement is accessing it and its elements.
Sample xml document

XML

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope>
	<soap:Body>
		<AddPersonContactInformation>
			<PersonAddress>
				<AddressUSStandard>
					<AddressAttention>Mr Smith</AddressAttention>
				</AddressUSStandard>
			</PersonAddress>
			<!--<PersonTelephoneNumber telephoneNumberUsageText="Home">
				<Telephone>698-478-4612</Telephone>
			</PersonTelephoneNumber>-->
			<!--<PersonEmailAddress>Testing@gmail.com</PersonEmailAddress>-->
		</AddPersonContactInformation>
	</soap:Body>
</soap:Envelope>

If statement not working

VB

If ((objXMLInputDoc.DocumentElement.SelectSingleNode("AddPersonContactInformation/PersonAddress") Is Nothing) And (objXMLInputDoc.DocumentElement.SelectSingleNode("AddPersonContactInformation/PersonTelephoneNumber") Is Nothing) And (objXMLInputDoc.DocumentElement.SelectSingleNode("AddPersonContactInformation/PersonEmailAddress") Is Nothing)) Then
'exit 
 Exit Sub
End If

What I have tried:

VB

If ((objXMLInputDoc.DocumentElement.SelectSingleNode("AddPersonContactInformation/PersonAddress") Is Nothing) And (objXMLInputDoc.DocumentElement.SelectSingleNode("AddPersonContactInformation/PersonTelephoneNumber") Is Nothing) And (objXMLInputDoc.DocumentElement.SelectSingleNode("AddPersonContactInformation/PersonEmailAddress") Is Nothing)) Then
'exit 
 Exit Sub
End If

Posted 25-Apr-18 4:15am

Member 11403304

Updated 25-Apr-18 5:44am

Add a Solution

Comments

Maciej Los 25-Apr-18 11:25am

Are you sure? Seems that PersonAddress exists. So, it can't be null (nothing)!

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard Deeming · Accepted Answer · 2018-04-25T05:45:00

SelectSingleNode expects an XPath expression which starts at the current node.

Since AddPersonContactInformation is not a direct child of the root element, your XPath expression won't match anything.

Change your expressions to start with "//" to match the element anywhere in the document:

VB.NET

If ((objXMLInputDoc.DocumentElement.SelectSingleNode("//AddPersonContactInformation/PersonAddress") Is Nothing) AndAlso (objXMLInputDoc.DocumentElement.SelectSingleNode("//AddPersonContactInformation/PersonTelephoneNumber") Is Nothing) AndAlso (objXMLInputDoc.DocumentElement.SelectSingleNode("//AddPersonContactInformation/PersonEmailAddress") Is Nothing)) Then
'exit 
 Exit Sub
End If

XPath Tutorial[^]
XPath Syntax[^]

(NB: Your XML seems to be invalid - you're missing the soap namespace declaration.)