count появление конкретного текста в txt-файле

Question

Доза любой знает, как я могу подсчитать экземпляры определенного текстового вхождения в txt-файле с помощью VB.net. Лучшее объяснение, если я использую текстовое поле и набираю текст, как я могу использовать VB.net для поиска txt-файла для этой части текста и возврата суммы, подсчитанной в другом текстовом поле или ярлыке.

Answer 1

Вы также можете использовать LINQ для достижения этой цели:

Dim separator = {" "c} 
Dim words = (From line As String In IO.File.ReadLines("C:\Temp\SampleFile.txt") 
      From word In line.Split(separator, StringSplitOptions.RemoveEmptyEntries) 
      Where word = TxtWordToFind.Text).Count 

Тот же синтаксис метода (неразборчивый в VB):

words = IO.File.ReadLines("C:\Temp\SampleFile.txt"). 
     SelectMany(Function(line) line.Split(separator, StringSplitOptions.RemoveEmptyEntries)). 
     Where(Function(word) word = TxtWordToFind.Text).Count