dictionary  사전의 활용 - 사전 수록 단어의 갯수 조사

dictionary  사전의 활용 - 사전 단어의 갯수 조사

 

@ 중복을 제거한 사전 수록 단어의 갯수를 알고 싶을 때

 

Dim city_multi_ok As Boolean

'복수 도시 감지를 위한 초기화
city_multi_ok = False

Dim city_num As String
city_num = "서울, 서울,부산, 부산,대구,대구,울산"
Dim city_arr As Variant
Dim i_dict As Object
Dim i_item As Variant

If Len(Trim(city_num)) > 0 Then
    city_arr = Split(city_num, ",")
    
    ' 유니크 집계를 위한 딕셔너리
    Set i_dict = CreateObject("Scripting.Dictionary")

''단어의 뜻에 1을 넣어서 중복을 제거한다.
    For Each i_item In city_arr
        i_item = Trim(CStr(i_item))
        If i_item <> "" Then
            If Not i_dict.Exists(i_item) Then i_dict.Add i_item, 1
        End If
    Next i_item

 

    ' 서로 다른 도시가 2개 이상이면 True
    Debug.Print i_dict.Count
    If i_dict.Count >= 2 Then
        city_multi_ok = True
    End If
End If