**Giới thiệu thư viện COM Dictionary – DictHelper.dll** (1 người xem)

Sub DemoDictHelper()
 Dim dict As Object
 Set dict = CreateObject("DictHelper.Dictionary")

 dict.Add "Name", "Kieu"
 dict.Add "City", "Lai Thieu"

 If dict.Exists("Name") Then
  MsgBox "Tên: " & dict.GetItem("Name")
 End If

 Debug.Print "Tổng số phần tử: " & dict.Count

 Dim key As Variant
 For Each key In dict
  Debug.Print key & " = " & dict(key)
 Next
End Sub

Set dict = CreateObject("Scripting.Dictionary")
dict.Add "Name", "Kieu"
MsgBox dict("Name")

Set dict = CreateObject("DictHelper.Dictionary")
dict.Add "Name", "Kieu"
MsgBox dict("Name")

Sub Test_DictHelper()
    Dim dict As Object, key
    Set dict = CreateObject("DictHelper.Dictionary")
 
    dict.Add "Name", "Kieu"
    dict.Add "City", "Lai Thieu"
 
    For Each key In dict '' Lôi 458
        Debug.Print key & " = " & dict(key)
    Next
End Sub


Sub TestUniqueFilter()
    Dim dict As Object
    Dim names As Variant
    Dim name As Variant
    Dim key As Variant

    ' Tao doi tuong Dictionary COM
    Set dict = CreateObject("DictHelper.Dictionary")

    ' Mang du lieu co trung lap
    names = Array("Kieu", "Lan", "Hoa", "Kieu", "Minh", "Lan", "Tuan")

    ' Loc duy nhat
    For Each name In names
        If Not dict.Exists(name) Then
            dict.Add name, True
        End If
    Next

    ' In ra danh sach duy nhat
    Debug.Print "Danh sach ten duy nhat:"
    For Each key In dict
        Debug.Print key
    Next
End Sub

Sub TestDuplicateNames()
    Dim dict As Object
    Dim names As Variant
    Dim name As Variant
    Dim key As Variant

    Set dict = CreateObject("DictHelper.Dictionary")

    names = Array("Kieu", "Lan", "Hoa", "Kieu", "Minh", "Lan", "Tuan", "Lan")

    ' Dem so lan xuat hien
    For Each name In names
        If dict.Exists(name) Then
            dict.Add name, dict.GetItem(name) + 1
        Else
            dict.Add name, 1
        End If
    Next

    ' In ra nhung ten xuat hien nhieu hon 1 lan
    Debug.Print "Nhung ten trung lap:"
    For Each key In dict
        If dict.GetItem(key) > 1 Then
            Debug.Print key & " xuat hien " & dict.GetItem(key) & " lan"
        End If
    Next
End Sub

' Tao doi tuong Dictionary COM
Private Function CreateDict() As Object
    Set CreateDict = CreateObject("DictHelper.Dictionary")
End Function

' 1. Duyet bang For Each (co ban)
Public Sub TraverseForEach()
    Dim dict As Object, key As Variant
    Set dict = CreateDict()
    dict.Add "Name", "Kieu"
    dict.Add "City", "Lai Thieu"

    Debug.Print "Duyet bang For Each:"
    For Each key In dict
        Debug.Print key & " = " & dict.GetItem(key)
    Next
End Sub

' 2. Duyet bang mang tam chua key
Public Sub TraverseByArray()
    Dim dict As Object, keys() As Variant, i As Long
    Set dict = CreateDict()
    dict.Add "Name", "Kieu"
    dict.Add "City", "Lai Thieu"
    dict.Add "Country", "Vietnam"

    ReDim keys(dict.Count - 1)
    i = 0
    Dim key As Variant
    For Each key In dict
        keys(i) = key
        i = i + 1
    Next

    Debug.Print "Duyet bang mang tam:"
    For i = LBound(keys) To UBound(keys)
        Debug.Print keys(i) & " = " & dict.GetItem(keys(i))
    Next
End Sub

' 3. Duyet co dieu kien loc
Public Sub TraverseWithFilter()
    Dim dict As Object, key As Variant
    Set dict = CreateDict()
    dict.Add "Kieu", 3
    dict.Add "Lan", 1
    dict.Add "Hoa", 2

    Debug.Print "Chi in ten xuat hien > 1 lan:"
    For Each key In dict
        If dict.GetItem(key) > 1 Then
            Debug.Print key & " = " & dict.GetItem(key)
        End If
    Next
End Sub

' 4. Duyet nguoc (neu co mang key)
Public Sub TraverseReverse()
    Dim dict As Object, keys() As Variant, i As Long
    Set dict = CreateDict()
    dict.Add "A", 1
    dict.Add "B", 2
    dict.Add "C", 3

    ReDim keys(dict.Count - 1)
    i = 0
    Dim key As Variant
    For Each key In dict
        keys(i) = key
        i = i + 1
    Next

    Debug.Print "Duyet nguoc:"
    For i = UBound(keys) To LBound(keys) Step -1
        Debug.Print keys(i) & " = " & dict.GetItem(keys(i))
    Next
End Sub

' 5. Duyet theo nhom (vi du nhom theo chu cai dau)
Public Sub TraverseGrouped()
    Dim dict As Object, groupDict As Object, key As Variant, firstChar As String
    Set dict = CreateDict()
    Set groupDict = CreateDict()

    dict.Add "Kieu", 1
    dict.Add "Lan", 1
    dict.Add "Linh", 1
    dict.Add "Hoa", 1
    dict.Add "Hanh", 1

    For Each key In dict
        firstChar = Left(key, 1)
        If groupDict.Exists(firstChar) Then
            groupDict.Add firstChar, groupDict.GetItem(firstChar) + 1
        Else
            groupDict.Add firstChar, 1
        End If
    Next

    Debug.Print "Nhom theo chu cai dau:"
    For Each key In groupDict
        Debug.Print key & " co " & groupDict.GetItem(key) & " ten"
    Next
End Sub

Property CompareMode As Long
    Member of DictHelper.Dictionary
    Gets or sets the string comparison mode (0 = BinaryCompare, 1 = TextCompare).

Function Keys()
    Member of DictHelper.Dictionary
    Returns an array containing all keys in the dictionary, in insertion order.

Sub RemoveAll()
    Member of DictHelper.Dictionary
    Removes all key-value pairs from the dictionary.

Sub SetItem(Key As String, Value As Long)
    Member of DictHelper.Dictionary
    Sets or updates the value of a specified key using a long integer.

Sub Test_SetItem()
    Dim dict As Object
    Set dict = CreateObject("DictHelper.Dictionary")

    ' Them du lieu ban dau
    dict.Add "Name", "Kieu"
    dict.Add "City", "Lai Thieu"

    ' Gan gia tri moi cho key da ton tai
    dict.SetItem "City", 12345

    ' Gan gia tri cho key chua ton tai
    dict.SetItem "Country", 67890

    ' Kiem tra ket qua
    Debug.Print "City = " & dict.Item("City")
    Debug.Print "Country = " & dict.Item("Country")
    'Ket qua:
    'City = 12345
    'Country = 67890

End Sub

Function FilterByKey(Prefix As String) As Dictionary
    Member of DictHelper.Dictionary
    Returns a new dictionary containing items with keys that start with the given prefix.

Function FilterByValue(Min, Max) As Dictionary
    Member of DictHelper.Dictionary
    Returns a new dictionary containing items with values between Min and Max.

Sub SortByValue([Direction])
    Member of DictHelper.Dictionary
    Sorts dictionary entries by value. Optional Direction: ASC (default) or DESC.

Sub SortByKey([Direction])
    Member of DictHelper.Dictionary
    Sorts dictionary entries by key. Optional Direction: ASC (default) or DESC.

Sub SortCustom([pCustomOrder])
    Member of DictHelper.Dictionary
    Sorts dictionary keys by an optional custom array; if omitted, keeps current order; if empty, resets to default.

Function ToArray()
    Member of DictHelper.Dictionary
    Returns all key/value pairs as a 2D array.

Function KeyAt(Index As Long) As String
    Member of DictHelper.Dictionary
    Returns the key at the specified index.

Function Clone() As Dictionary
    Member of DictHelper.Dictionary
    Returns a deep copy of the current dictionary.

Sub Merge(Other As Dictionary)
    Member of DictHelper.Dictionary
    Merges all key-value pairs from another dictionary into the current one, overwriting duplicates and preserving key order.