VB2005で重複件数を調べたい

VB初心者ですがUNIXコマンドの『uniq -c』のような重複件数を
出力して重複行を１行だけ出力したいのですがどう書けばよいのでしょうか？

【DATA】
3010
3020
3010
3011
3010

【処理結果】
3010,3
3011,1
3020,1

ご教授おねがいします。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/12/12 14:09

Dictionaryオブジェクト使えませんでしたっけ？（未検証）

この回答への補足

この書き方はおかしいですか？
『CodeList.Exists(CodeWK)』が使えません。

Dim CodeList As New Specialized.StringDictionary ' コードテーブル

' Dictionaryオブジェクトに追加
If (CodeList.Exists(CodeWK)) Then ' コードが存在した場合
CodeList.Item(CodeWK) = ++CodeList.Item(CodeWK) ' 件数に1を足す
Else ' コードが存在しない場合
CodeList.Add(CodeWK, 1) ' コードを追加
End If

CodeList(CodeWK) = ++CType(CodeList(CodeWK), Integer)

補足日時：2008/12/12 14:31

この回答へのお礼

Dim CodeList As New Dictionary(Of String, Integer)
で上手くいきました。
ありがとうございました。

お礼日時：2008/12/12 17:03