배열내 갯수 출력

배열내의 텍스트를 종류별로 정리해서 수치를 출력..

Module Module1     Sub Main()         Dim str As String() = {"aaa", "bbb", "bbb", "돌쇠", "ccc", "ddddddd", "aaa", "aaa", "돌쇠"}         Dim dic As New Dictionary(Of String, Integer)         For i = 0 To str.Length - 1             If dic.ContainsKey(str(i)) = False Then                 dic.Add(str(i), 0)             End If             dic(str(i)) += 1         Next         Dim pair As KeyValuePair(Of String, Integer)         For Each pair In dic             Console.WriteLine("{0}, {1}", pair.Key, pair.Value)         Next     End Sub End Module

결과

aaa, 3

bbb, 2

돌쇠, 2

ccc, 1

ddddddd, 1