admin 管理员组

文章数量: 1086019


2024年4月30日发(作者：c语言求任意两数之和)

Sub 词频统计()

'

' 词频统计 Macro

'

Dim SingleWord As String '从当前文档提取的一个单词

Const maxWords = 15000 '允许出现的不同单词的最大数量,如不够,可适当加大

Dim Words(maxWords) As String '用来保存各个不同的单词

Dim Freq(maxWords) As Integer '出现频度计数器

Dim WordNum As Integer '不同单词的数量

Dim ByFreq As Boolean '输出结果的排序标准

Dim ttlwds As Long '文档中的单词总数

Dim Excludes As String '不在统计范围内的单词

Dim Found As Boolean '临时标记

Dim j, k, l, Temp As Integer '临时变量

Dim tWord As String '

' 设置要排除的单词。

' 英文排除词:[the][a][of][is][to][for][this][that][by][be][and][are]

' 排除词可以从各大搜索引擎的说明获得，可根据实际情况修改

Excludes = "[ ][的][是]"

' 向用户询问排序标准

ByFreq = True

ans = InputBox$("根据单词(1)还是频度(2)排序？", "排序标准", "1")

If ans = "" Then End

If Trim(ans) = "1" Then

ByFreq = False

End If


本文标签： 单词 排序 标准 语言 统计

版权声明：本文标题：word VBA文档词频统计代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1714443639a680380.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。