Zählen von eindeutigen Werten in einer VBA-Sammlung

Question

Ich habe eine VBA-Sammlung, die mehrere Dateielemente enthält (Ich habe ein Klassenmodul namens Datei mit mehreren Eigenschaften erstellt). Ich war neugierig, ob es einen Weg gibt, eine For Schleife zu verwenden, um alle Elemente in der Sammlung iterieren und zwei Dinge tun:

1. eine Liste aller Unikaten Holen Sie sich auf einer Datei-Eigenschaft basiert, die ich
angeben
2. Zählen Sie die Anzahl der Elemente, die jeden eindeutigen Wert aus der obigen Liste

Zum Beispiel passen, lassen Sie uns sagen, dass ich in meiner Sammlung 4 Datei Hand haben:

• File1 (File1.Pattern = "Test * .xlsx")
• File2 (File2.Pattern = "Test * .xlsx")
• File3 (File3.Pattern = "Test * .txt")
• Datei4 (File4.Pattern = „Test * .csv ")

Der Ausgang (idealerweise ein Array oder getrennte Sammlung) wäre ich möchte:

• Test * .xlsx (2)
• Test * .txt (1)
• Test * .csv (1)

Irgendwelche Gedanken darüber, wie ich so etwas implementieren könnte?

Answer 1

Solange Sie dies nicht auf einem Mac tun müssen:

Dim d, f, k 
Set d = CreateObject("scripting.dictionary") 

For Each f in myFiles 
    d(f.Pattern) = d(f.Pattern)+1 
Next f 

For Each k in d 
    Debug.Print k, d(k) 
Next k