compare values of one list against all the values of another list vb.net

Question

0.00/5 (No votes)

See more:

Hi
If you have two lists(array lists for example),How can I compare the values of the one list against all the values of another list.
example :

VB

dim activeList as new ArrayList

dim list1 as new ArrayList

list1.add("this")
list1.add("That")
list1.add("Another")
list1.add("Value")

dim list2 as new ArrayList

list2.add("Anotgher")
list2.add("ok")
list2.add("this")
list2.add("Hi")

so what need to happen is.
Every value in list one has to be checked if it is in any index of list2.
and the added to activeList.

I just need that loop or comparison script.

Posted 24-Sep-12 21:58pm

Member 9374423

Add a Solution

2 solutions

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)

**JF2015** · Accepted Answer · 2012-09-24T22:26:00

Solution 1

Hi,

try this code - I modified it to ignore spaces inside the strings:

Dim list1 As New ArrayList()
Dim list2 As New ArrayList()
Dim activeList As New ArrayList()

list1.Add("this")
list1.Add("That")
list1.Add("Another")
list1.Add("Value")
list1.Add("10070L0022 ")
list1.Add("10070L0023")

list2.Add("Another")
list2.Add("ok")
list2.Add("this")
list2.Add("Hi")
list2.Add("10070L0022")
list2.Add("10070L0023 ")
For Each o As Object In list1
	For Each o2 As Object In list2
		If DirectCast(o, String).Replace(" ", "") = DirectCast(o2, String).Replace(" ", "") Then
			activeList.Add(o)
		End If
	Next
Next

Posted 24-Sep-12 22:26pm

JF2015

Updated 25-Sep-12 22:58pm

v2

Comments

Member 9374423 25-Sep-12 5:24am

doesn't work

JF2015 25-Sep-12 5:25am

If the answer helped you, please upvote and accept it. Thanks!

Member 9374423 25-Sep-12 6:01am

Hi,It dint work

JF2015 25-Sep-12 6:14am

The above code works very well. What doesn't work for you?

Member 9374423 25-Sep-12 7:18am

I does not loop properly,for some reason.
It loop until if,then skips a line doesn't add

JF2015 25-Sep-12 7:54am

Did you copy the above code into your application and test it without modifications?

Member 9374423 26-Sep-12 4:39am

yes,then it works,but when I loop through my list it doesn't.

JF2015 26-Sep-12 4:41am

So, please share your exact code with us.

Member 9374423 26-Sep-12 4:47am

Its exactly like that,only the list is way longer and might contain whitespace characters.

JF2015 26-Sep-12 4:48am

Please post the items that don't work - I can't help you otherwise. Thanks!

Member 9374423 26-Sep-12 4:50am

"10070L0022 "
"10070L0022"

when comparing these two,they should be active,but it doesn't add it to the list

JF2015 26-Sep-12 4:59am

I modified the answer so that it now should ignore spaces inside the string and tested it with your values - it works now. Please try it out.

Member 9374423 26-Sep-12 5:05am

Perfect Thank you

JF2015 26-Sep-12 5:06am

I'm glad we finally got it to work!!

CPallini · Accepted Answer · 2012-09-24T22:31:00

Solution 2

Did you really mean this

VB

For Each s1 As String In list1
  For Each s2 As String In list2
    If s1 = s2 Then
      activeList.Add(s1)
    End If
  Next
Next

?

Posted 24-Sep-12 22:31pm

CPallini

Comments

Member 9374423 25-Sep-12 5:24am

does not work,It loops forever