Vermeiden Sie doppelte Werte in der Sammlung

Habe ich folgende Werte, und ich möchte hinzufügen, diese zu einer Sammlung. Wenn die Werte bereits in der Sammlung, sollte eine Meldung zeigen "dies ist bereits Hinzugefügt, in Ihrer Sammlung".

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)

Wie vermeide ich doppelte Werte in einer Sammlung?

InformationsquelleAutor user2758292 | 2013-09-14

vb6 vba

12

Um Duplikate zu vermeiden without any prompts diese Methode verwenden.

Code
```
Sub Sample()
    Dim col As New Collection
    Dim itm

    On Error Resume Next
    col.Add 111, Cstr(111)
    col.Add 222, Cstr(222)
    col.Add 111, Cstr(111)
    col.Add 111, Cstr(111)
    col.Add 333, Cstr(333)
    col.Add 111, Cstr(111)
    col.Add 444, Cstr(444)
    col.Add 555, Cstr(555)
    On Error GoTo 0

    For Each itm In col
        Debug.Print itm
    Next
End Sub
```
ScreenShot

Erklärung

Einer Sammlung ist eine geordnete Menge von Elementen, können Sie sich beziehen, als eine Einheit. Die syntax ist
```
col.Add item, key, before, after
```
Einer Sammlung können nicht den gleichen key zweimal, so daß das, was wir tun, ist die Schaffung eine Taste mit der Sache, die wir hinzufügen. Dadurch wird sichergestellt, dass wir nicht dupliziert. Die On Error Resume Next ist nur zu sagen der code um den Fehler zu ignorieren, wenn wir versuchen, fügen Sie einen duplizieren und bewegen Sie einfach auf das nächste Element hinzufügen. Die CHR(34) ist nichts, aber " so dass die obige Erklärung kann auch so geschrieben werden, als
```
col.Add 111, """" & 111 & """"
```
Vorgeschlagen Lesen

Das Visual Basic-Collection-Objekt

HTH
- hi siddharth rout danken u sehr viel, problem gelöst
- Was ist der Punkt, der mit Chr(34) oder """" überhaupt? Warum nicht einfach wickeln Sie es um mit CStr()?
- Yup, Sie haben einen Punkt komplett übersprungen meine Meinung 🙂
- Wie kann das in einer Schleife?
InformationsquelleAutor Siddharth Rout

Dies ist eine jener Situationen, in denen ein Wörterbuch bietet einige Vorteile.

Option Explicit

'Requires a reference to Microsoft Scripting Runtime.

Private Sub Main()
    Dim Dict As Scripting.Dictionary 'As New XXX adds overhead.
    Dim Item As Variant

    Set Dict = New Scripting.Dictionary
    With Dict
        .Item(111) = 111
        .Item(222) = 222
        .Item(111) = 111
        .Item(111) = 111
        .Item(333) = 333
        .Item(111) = 111
        .Item(222) = 222
        .Item(333) = 333

        For Each Item In .Items
            Debug.Print Item
        Next
    End With
End Sub

+1 für die Annahme, Wörterbücher. Ich denke, dass viele Leute einfach nicht bewusst sind bzw. wie Sie zu benutzen sind. Dieses ist eine große Weise, Sie zu verwenden, obwohl, wie der erste Aufruf erzeugt das Element, falls es nicht existiert und der nachfolgende Aufrufe an die gleiche Sache, nur überschreiben. Sie nicht sogar brauchen, um verwenden Sie die .add Methode. Schöne Arbeit!

InformationsquelleAutor Bob77

-1

Es ist ein Baujahr-Methode, mit der Sie für Duplikate überprüfen, vorausgesetzt, Sie sind immer die Zuweisung einer Key Wert. Diese ist vorzugsweise als On Error Resume Next.
```
If Not OrdLines.Contains(key_value) Then
    OrdLines.Add(item_value, key_value, before, after)
End If
```
HINWEIS Das ist VB.NET nicht VBA/VB6. In VBA/VB6 könnten Sie schreiben eine benutzerdefinierte Funktion ähnlich der Ansatz gegeben, hier.
- Das ist für VB.NET und nicht für VB6/VBA.
- die syntax ist dieselbe. Ich benutze diese Methode in VBA die ganze Zeit. Es ist eine perfekt gültige Antwort.
- Aber jetzt habe ich gegangen, und veränderte mein link (denken Sie, wenn Sie sollte wurden ein link zu VB.NET) und jetzt verlor ich die alte URL, also ja, nun ist die URL verweist VB.NET aber in jedem Fall die Methode und Ihre syntax sind die gleichen.
- Bekomme ich "Objekt unterstützt diese Eigenschaft oder Methode nicht." - Fehler. Ich wünschte, was Sie sagten, wahr war, denn ich bin mit On Error Resume Next als auch in meinen Projekten :(.
- Ahhh, du hast völlig Recht, ich muss darüber nachgedacht dictionary.Exists Methode... ich schrieb vor kurzem eine UDF zu replizieren diese Methode auf Vektor-arrays, und ich denke, dass ich möglicherweise getan habe, dass auch für Collection Objekte, zu so muß das gewesen, was ich dachte. Vielen Dank für die Einstellung mich gerade 🙂
- Ich entfernte die -1, aber jemand anderes setzen einen anderen an. Ugh, diese Seite ist ziemlich lahm manchmal.
- keine Sorge!
InformationsquelleAutor David Zemens
-1

Verwenden Sie die Add Methode zusammen mit dem Schlüssel.

Syntax:
```
OrderLines.Add(ObjectToAdd, Key)
```
Erinnern key ist ein string.

Beispiel:
```
OrdLines.Add(222,"222")
OrdLines.Add(222,"333")
OrdLines.Add(222,"444")

OrdLines.Add(222,"222") 'This will give error
```
- bitte erklären Sie mir mehr klar, ich m neu in vb6
InformationsquelleAutor vcs

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.