Получение подсчета «найти» из нескольких файлов .txt

Question

В настоящее время я запускаю поиск и замену через сотни файлов .txt за раз. Я ищу способ подсчета количества находок для моей ценности. Вот код, который я сейчас использую, надеясь, что сможете добавить или изменить этот код.

Dim flatfiles As String() = IO.Directory.GetFiles("C:\DATA\TEST\", "*.txt").Where(Function(x) File.ReadAllText(x).Contains("Bob")).ToArray 
    For Each f As String In flatfiles 
     Dim contents As String = File.ReadAllText(f) 
     File.WriteAllText(f, contents.Replace("Bob", "Bill")) 
    Next 

Answer 1

Один (неэффективный) способ сделать это было бы включить счетчик за пределами For Each цикла (Dim itemsFound as Integer = 0), а затем увеличить его с помощью подсчета find в каждом файле, используя что-то вроде:

itemsFound = itemsFound + (Regex.Split(contents, find).Length - 1)

Regex.Split разделяет строку каждый раз, когда находит find, что означает, что счет, который вы ищете, меньше, чем количество элементов в списке.

Я бы сказал так, что вы звоните File.ReadAllText дважды в коде, так что вы можете улучшить его, чтобы избавиться от Where кода, и просто проверить в вашем For each цикле (видя, как вы теперь подсчет количество экземпляров в файле в любом случае, достаточно проверить наличие 0 вхождений). Кроме того, вы можете заменить код .Where, чтобы сохранить содержимое файла в массиве, а не имя файла (хотя это может быть опасно, если файлы большие); или вы даже можете сделать все это в Linq, если вам нужен какой-то запутанный код ...