给定一个文本（内用若干词条，但词条有重复），用程序实现统计词条的重复次数，并按照重复次数的不同，将词条分组。
附加：如果是大文本的情况下，运行时间非常长。。。请个位指点。。

附注：我尝试用了以下三种方法：
一、用ubound(split())来统计，然后存入数组
二、用replace()来统计，然后存入数组
三、用循环嵌套，然后存入数组



先谢谢了。

句号.逗号,顿号,空格也要考虑..体力活.

谢谢楼上朋友。
补充一下：这里的文本是经过格式化处理的。举个例子：如 a b c d e f g b c e z f l t w z c（中间都用空格分开）

以前写的一道二级题..
二级VB题，测试文件中出现最多的字母及次数

Option Explicit
Option Base 1
Private s As String
Private Sub Command1_Click()
    Open App.Path & "\dj5.txt" For Input As #1
        s = Input$(LOF(1), #1)         '读入数据到s变量里
    Close
    Command1.Enabled = False
    Command2.Enabled = True
End Sub
Private Sub Command2_Click()
    Dim i As Long
    Dim ArrayN(26) As Integer
    Dim ArrayIndex As Integer
    Dim MaxColumn As Integer
    Dim Max As Integer
    Dim MidStringAscii As Integer
    Dim MidString As String
    Dim UcaseString As String
   
    UcaseString = UCase(s)          '转换成大写,方便判断它的Ascii码
    For i = 1 To Len(UcaseString)
        MidString = Mid(UcaseString, i, 1)
        MidStringAscii = Asc(MidString)        '得到这个字符的Ascii码
        If (MidStringAscii >= Asc("A") And MidStringAscii <= Asc("Z")) Then
            '保证这个字符是26个字母，因为不用判断逗号,感叹号！这些
            ArrayIndex = MidStringAscii - Asc("A") + 1      '得到下标
            ArrayN(ArrayIndex) = ArrayN(ArrayIndex) + 1
        End If
    Next
   
    Max = ArrayN(1)
    MaxColumn = 1
    For i = 2 To 26
        If (ArrayN(i) > Max) Then
            Max = ArrayN(i)
            MaxColumn = i
        End If
    Next
   
    Text1.Text = CStr(Chr(MaxColumn + Asc("A") - 1))
    Text2.Text = CStr(ArrayN(MaxColumn))
End Sub

谢谢版主回答，不过这个方法在处理大文本下肯定会更慢。如果大文本中带有的不全是字母，或是字串，或是数字，该方法的灵活性就不太好了。。

烦请大家继续指点。。
不必给出代码，提些思路就好。。。。

还得脑子活啊

我总觉得我种明显的算法题还是用C语言，做数据结构比较好一点，VB也可以做，就是不够快

[url]http://www.[/url]
参照下这个看看吧! 第32期 高频词的提取，感觉类似!

[[italic] 本帖最后由 心中有剑 于 2007-12-17 13:34 编辑 [/italic]]