蝙蝠岛资源网 Design By www.hbtsch.com
字符统计功能模块
复制代码 代码如下:
Sub TongJi()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("ok.txt", 1)
strText = objFile.ReadAll
All = Len(strText)
S="` ~ ! @ # $ % ^ & * ( ) - _ = + \ | [ { ] } ; : ' , < . > / ? · ! ¥ ( ) 、 【 】 ; : ‘ ' “ ” , 《 。 》 ? …… —— chr(34) vbCrLf"
Signs=Split(S," ")
For Each Sign in Signs
strText = Replace(strText, "Sign", " ")
Next
objFile.Close
For k=1 To Len(strText)
tmpStr=Mid(strText, k, 1)
If Asc(tmpStr) > 127 Or Asc(tmpStr) < 0 Then
c = c + 1
tmpStr=" "
End If
Str = Str + tmpStr
Next
arrWords = Split(Str, " ")
For Each strWord in arrWords
If Len(strWord) > 0 Then
i = i + 1
End If
Next
Sum = c + i
msgbox "字符总数:" & All & chr(13) & "有效字符:" & Sum & chr(13) & "汉字总数:" & c, 64, "字符统计"
End sub
TongJi()将上面代码保存为TongJi.vbs,在TongJi.vbs同目录下建立ok.txt文本文件,将你要统计的文本复制到ok.txt中,运行TongJi.vbs即可以统计字数,与word的功能一样。不过算法不一样,结果也不太一样,原因是如何理解何为“有效字符”
复制代码 代码如下:
Sub TongJi()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("ok.txt", 1)
strText = objFile.ReadAll
All = Len(strText)
S="` ~ ! @ # $ % ^ & * ( ) - _ = + \ | [ { ] } ; : ' , < . > / ? · ! ¥ ( ) 、 【 】 ; : ‘ ' “ ” , 《 。 》 ? …… —— chr(34) vbCrLf"
Signs=Split(S," ")
For Each Sign in Signs
strText = Replace(strText, "Sign", " ")
Next
objFile.Close
For k=1 To Len(strText)
tmpStr=Mid(strText, k, 1)
If Asc(tmpStr) > 127 Or Asc(tmpStr) < 0 Then
c = c + 1
tmpStr=" "
End If
Str = Str + tmpStr
Next
arrWords = Split(Str, " ")
For Each strWord in arrWords
If Len(strWord) > 0 Then
i = i + 1
End If
Next
Sum = c + i
msgbox "字符总数:" & All & chr(13) & "有效字符:" & Sum & chr(13) & "汉字总数:" & c, 64, "字符统计"
End sub
TongJi()将上面代码保存为TongJi.vbs,在TongJi.vbs同目录下建立ok.txt文本文件,将你要统计的文本复制到ok.txt中,运行TongJi.vbs即可以统计字数,与word的功能一样。不过算法不一样,结果也不太一样,原因是如何理解何为“有效字符”
标签:
vbs,字符统计
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无vbs 字符统计功能模块的评论...
更新日志
2024年06月14日
2024年06月14日
- 韩磊《韩唱淋漓·韩磊纪念版特辑 4CD》[WAV+CUE][2.12GB]
- 世界启元平民阵容组队推荐 平民强势阵容攻略
- 世界启元和文明6一样吗 世界启元和文明6区别介绍
- 世界启元新手入门指南 新手实用技巧分享
- 民谣合集《红色推土机》2CD【WAV+CUE】
- 哎呀,服务正在维护中……
- 詹姆斯·拉斯特-世界级指挥及演奏大师《天堂鸟Paradiesvogel》[WAV+CUE]
- 林忆莲.1990-超级金装忆莲2CD【SONY】【WAV+CUE】
- 满文军.1997-让你的天空最美【正大国际】【WAV+CUE】
- 群星.1999-两个人2CD(华纳音乐大世纪系列)【华纳】【WAV+CUE】
- 世界启元手游什么时候上线 世界启元上线时间介绍
- 世界启元有哪些资源 资源介绍及获得途径分享
- 世界启元新手进阶开荒队攻略 首充礼包阵容推荐
- [中友缘唱片]原创音乐《寂寞缠绕DSD》WAV+CUE
- 顶级发烧制作-群星《大牌翻唱1-2》WAV