[.NET]陣列比對文字檔的問題~
請輸入專案類型(網站專案或者應用程式專案)：應用程式
我的程式是統計陣列內的中文字串在一篇文章內出現的次數...
文章顯示在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
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
