记录和存储文本实例

Question

我想编写一个简单的代码，计算 txt 文件中最常出现的三个行/文本，然后将该行/文本保存到另一个文本文件（这又将被读入 AutoCAD 的变量系统）。

忘记了我可以管理的 AutoCAD 部分，如何在 VB.net 中将 3 个最重复出现的文本行分别保存到自己的文本文件中，请参见下面的示例：

要读取的文本文件读取如下：

APG 贝特瑞 虚拟交通系统 虚拟交通系统 虚拟交通系统 虚拟交通系统 贝特瑞 贝特瑞 APG PNG

然后，VB.net 程序会将文本 VTS 保存到mostused.txt BTR 保存到2ndmostused.txt，APG 保存到3rdmostused.txt

如何最好地实现这一点？

Answer 1

由于我是 C# 开发人员，因此我将使用它：

var dict = new Dictionary<string, int>();
using(var sr = new StreamReader(file))
{
   var line = string.Empty;
   while ((line = sr.ReadLine()) != null) 
   {
     var words = line.Split(' '); // get the words
     foreach(var word in words)
     {
       if(!dict.Contains(word)) dict.Add(word, 0);
       dict[word]++; // count them
     }
   }
}

var query = from d in dict select d order by d.Value; // now you have it sorted
int counter = 1;
foreach(var pair in query)
{
   using(var sw = new StreamWriter("file" + counter + ".txt"))
     sw.writer(pair.Key);
}