VBS统计字符串全部字符出现的次数并排序

我们知道，霍夫曼编码的基础是进行词频统计。然后依据统计数据，构建霍夫曼树，进而得到霍夫曼编码表。利用霍夫曼编码表，就可以进行压缩工作了。这里，用VBS来写一个字符串的词频统计，统计0~9，a~z的词频并排序。

Public Function cnt(str,x)
    str = UCase(str)
    x = UCase(x)
    cnt = UBound(Split(str,x))
End Function

Dim a(15,1),i,j,k,l

str = "0123456789abcdef2222222aaaaabbbcc"

For i =  & h0 To & hf
    a(i,0) = Hex(i)
    a(i,1) = cnt(str,Hex(i))
Next

For l = 0 To UBound(a)
    data = data & "未排序结果为：" & a(l,0) & "出现次数" & a(l,1) & vbLf
Next
MsgBox data
data = ""

For j = 0 To 15
    For k = j To 15
        If a(j,1) < a(k,1)Then
            tmp1 = a(j,1)
            a(j,1) = a(k,1)
            a(k,1) = tmp1
            tmp2 = a(j,0)
            a(j,0) = a(k,0)
            a(k,0) = tmp2
        End If
    Next
Next

For l = 0 To UBound(a)
    data = data & "排序后结果为；" & a(l,0) & "出现次数" & a(l,1) & vbLf
Next
MsgBox data
data = ""

原文链接：http://think2think.cn/archives/282/

随机文章:

1. IsTextUnicode函数
2. VBS十年未解之谜
3. VBS实现GB2312转Unicode
4. Switch 无法启动软件。 请在HOME菜单中再试一次。
5. VC实现XP风格控件效果

这篇文章发布于 2012年02月13日，星期一，21:19，归类于 复制粘贴。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。