VBS统计字符串中各字符出现的次数,并排序

Ft 2009-11-11 AM 69℃ 0条

    我们知道,霍夫曼编码的基础是进行词频统计。然后依据统计数据,构建霍夫曼树,进而得到霍夫曼编码表。利用霍夫曼编码表,就可以进行压缩工作了。

    这里,用VBS的二维数组,来对一个字符串str = "0123456789abcdef2222222aaaaabbbcc",进行词频统计,然后进行排序。


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 = ""

    有了这个基础的词频统计功能,那么,我们就可以继续进行字符串压缩工作了,更进一步,就是文件压缩了。

    首先,用VBS将文件进行二进制读取;然后,用词频统计对文件词频进行统计;接着,依据统计数据,构建霍夫曼树,进而得到霍夫曼编码表;

    最后,压缩。

标签: vbs, 词频统计

非特殊说明,本博所有文章均为博主原创。

评论啦~