claudianus

Module Module1

    Sub Main()
        Const source = "테스트1,테스트1,테스트2,테스트1,테스트3,테스트2,테스트3,테스트1,테스트2,테스트3,테스트4"

        '단어 파싱
        dim arr = Split(source, ",")

        '갯수 저장용 딕셔너리
        Dim dic as new Dictionary(Of String, Integer)