how to avoid duplicate values in collection from vb6

Question

1.00/5 (1 vote)

See more:

hi I have following values I want to add these in collection if the values already in collection message show this is already added in your collection..

`Dim OrdLines As New Collection`

`OrdLines.Add (111,this is first item)`

`OrdLines.Add (222,this is second item)`

`OrdLines.Add (333,this is third item)`

`OrdLines.Add (444,this is fourth item)`

please guide me how to avoid duplicate values in collection
thanks in advance

Posted 13-Sep-13 21:55pm

Member 10258508

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)

abbaspirmoradi · Answer 1 · 2013-09-13T22:48:00

Solution 1

Create a loop and add data to your collection in the loop.
Then check if collection contains value show error,
Else add data to your collection..

VB

For Each input As var In inputList
    If OrdLines.Any(() => {  }, str.Item1.Contains(firstinputvalue)) Then
        ' show error
    Else
        OrdLines.Add(input)
    End If
Next

Posted 13-Sep-13 22:48pm

abbaspirmoradi

Updated 13-Sep-13 23:13pm

v4

Comments

Member 10258508 14-Sep-13 4:57am

please give me example

Tom Wauters · Answer 2 · 2013-09-15T08:27:00

You could check if the ordlines contains the values you want to add

VB

If OrdLines.Contains(555) Or OrdLines.Contains("This is the fifth item") Then
           MessageBox.Show("One of these items allready excists")
       Else
           OrdLines.Add(555, "This is the fifth item")
       End If

But when the value you want to add is 5555 then you would have a messagebox
showing that the value already excists.

To avoid that you could use an equals and check every value in your list

VB

For Each item In OrdLines
          If item.Equals(555) Then
              MessageBox.Show("555")
          ElseIf Not item.Equals(555) Then
              OrdLines.Add(555, "This is the fifth item")
          End If
      Next