[.NET]陣列比對文字檔的問題~

[bitch58 (小木)]

請輸入專案類型(網站專案或者應用程式專案)：應用程式

我的程式是統計陣列內的中文字串在一篇文章內出現的次數...
文章顯示在RichTextBox裡面...統計結果顯示在另外一個RichTextBox內...
目前程式碼的問題是它只會統計陣列內的第一個字串出現的次數...
接下來的都不會統計...希望各位高手能幫我找出問題所在...謝謝~~

   Dim words() As String = {"信息戰", "病毒", "美軍", "美國"}
   Array.Sort(words)
   Dim i As Long
   Dim start As Integer = 0
   Dim r As String = words(i)       '讀取關鍵字
   Dim pos As Integer = RichTextBox1.Find(r, start, RichTextBoxFinds.None)
   Dim count As Integer = 0
   '計算出現次數
   For i = 0 To UBound(Split(RichTextBox1.Text, words(i)))
     Do While pos > -1
        count += 1
        start = pos + 1
        pos = RichTextBox1.Find(r, start, RichTextBoxFinds.None)
       Loop
     Next
   RichTextBox2.Text &= r & "   " & count


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.224.58.201