計算txt文件中特定文本的出現次數

Question

任何人都知道如何使用VB.net來計算txt文件中特定文本出現的實例。如果我使用文本框並在文本中輸入如何使用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