作者bitch58 (小木)
看板Visual_Basic
标题[.NET]阵列比对文字档的问题~
时间Wed May 7 01:35:23 2008
请输入专案类型(网站专案或者应用程式专案)：应用程式
我的程式是统计阵列内的中文字串在一篇文章内出现的次数...
文章显示在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