计数国家/地区从文件

Question

我正在尝试创建一个arraylist来记录2列中的数据，1st是Country，2nd是Count。 当我逐行读取文件中的数据时，我希望搜索arraylist for country，如果找到，则修改count字段并增加1.如果未找到，则将country添加到country字段并使count字段等于1.

完成阅读文件后，我希望按国家或计数字段对arraylist进行排序，然后显示结果（写入文件）。

请提出任何建议，我对其他方式持开放态度，但我发现的似乎表明我可以使用arraylists完成所有要求。

Answer 1

为此目的，dictionary将是更合适的数据结构。将国家/地区存储为关键字并增加值。

Set countries = CreateObject("Scripting.Dictionary")
countries.CompareMode = vbTextCompare   'make comparisons case-insensitive

For Each value In datalist
  countries(value) = countries(value) + 1
Next

对字典的键进行排序，并将与排序键对应的值写入输出文件。