подсчитать вхождение определенного текста в текстовый файл

Question

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

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

То же самое в синтаксисе метода (crabbed в VB):

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