文字列の中をチェックしたいのですが・・・

質問

文字列の入った配列の中をチェックし重複する文字列がある場合
その文字列を消去し文字列に対応した個数をカウントしていくものを
VB6.0で作っているのですがどうしても上手くいきません。

どうか教えてくださいおねがいします。

回答No.1

BLUEPIXY · ベストアンサー

VB6.0でそういう処理を一から作るのもできますが、
そういう用途には、Dictionaryオブジェクトを使うのが楽です。
サンプル
Public Sub sample()
Dim strList, i, x
Dim strArray(10)
strArray(0) = "日本"
strArray(1) = "英国"
strArray(2) = "日本"
strArray(3) = "米国"
strArray(4) = "日本"
strArray(5) = "日本"
strArray(6) = "米国"
strArray(7) = "日本"
strArray(8) = "日本"
strArray(9) = "日本"
strArray(10) = "独逸"

Set strList = CreateObject("Scripting.Dictionary")
For i = LBound(strArray) To UBound(strArray)
If Not strList.Exists(strArray(i)) Then '新しい文字列
strList.Add strArray(i), 1
Else '重複文字列出現時カウント＋１
strList.Item(strArray(i)) = strList.Item(strArray(i)) + 1
End If
Next
'集計結果の表示
For Each x In strList.Keys
MsgBox x & ":" & CStr(strList.Item(x))
Next
End Sub

お礼

こんな方法があったのですね！
無事動きました、有難うございます！