如何从一大段文本里快速的得到所有汉字的数量？

长翅膀的猫

如何从一大段文本里快速的得到所有汉字的数量？

一大段文本，如何快速得到该文本里所有汉字的数量。

VC大圣

取字数.rar (1.51 KB, 下载次数: 0)

2015-12-23 18:43 上传

点击文件名下载附件

这里把汉字  字母 字符等单一取出来  看看你有用么？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本长度	整数型
n	整数型
临时	文本型
文本	文本型
中文数	整数型
数字数	整数型
大写字母	整数型
小写字母	整数型
其他	整数型
a	字节集

置等待鼠标 ()
文本 ＝ 编辑框1.内容
文本长度 ＝ 取文本长度 (文本)
判断循环首 (n ≤ 文本长度)
临时 ＝ 取文本中间 (文本, n, 1)
如果 (取代码 (临时, ) ＜ 0)
临时 ＝ 取文本中间 (文本, n, 2)
中文数 ＝ 中文数 ＋ 1
n ＝ n ＋ 1
a ＝ 到字节集 (临时)
如果真 (取字节集长度 (a) ≠ 0)
判断 (a [1] ≥ 48 且 a [1] ≤ 57)
数字数 ＝ 数字数 ＋ 1
判断 (a [1] ≥ 65 且 a [1] ≤ 90)
大写字母 ＝ 大写字母 ＋ 1
判断 (a [1] ≥ 97 且 a [1] ≤ 122)
小写字母 ＝ 小写字母 ＋ 1
其他 ＝ 其他 ＋ 1


n ＝ n ＋ 1
判断循环尾 ()
编辑框2.加入文本 (“中文数(包括标点符号)：” ＋ 到文本 (中文数) ＋ #换行符 )
编辑框2.加入文本 (“数字数：” ＋ 到文本 (数字数) ＋ #换行符 )
编辑框2.加入文本 (“大写字母：” ＋ 到文本 (大写字母) ＋ #换行符 )
编辑框2.加入文本 (“小写字母：” ＋ 到文本 (小写字母) ＋ #换行符 )
编辑框2.加入文本 (“其他：” ＋ 到文本 (其他) ＋ #换行符 )
编辑框2.加入文本 (“统计总 字节数：” ＋ 到文本 (中文数 × 2 ＋ 数字数 ＋ 大写字母 ＋ 小写字母 ＋ 其他) ＋ #换行符 )
编辑框2.加入文本 (“总 字节数：” ＋ 到文本 (文本长度) ＋ #换行符 )
恢复鼠标 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本长度, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 中文数, 整数型<br /> .局部变量 数字数, 整数型<br /> .局部变量 大写字母, 整数型<br /> .局部变量 小写字母, 整数型<br /> .局部变量 其他, 整数型<br /> .局部变量 a, 字节集<br /> <br /> 置等待鼠标 ()<br /> 文本 ＝ 编辑框1.内容<br /> 文本长度 ＝ 取文本长度 (文本)<br /> .判断循环首 (n ≤ 文本长度)<br />     临时 ＝ 取文本中间 (文本, n, 1)<br />     .如果 (取代码 (临时, ) ＜ 0)<br />         临时 ＝ 取文本中间 (文本, n, 2)<br />         中文数 ＝ 中文数 ＋ 1<br />         n ＝ n ＋ 1<br />     .否则<br />         a ＝ 到字节集 (临时)<br />         .如果真 (取字节集长度 (a) ≠ 0)<br />             .判断开始 (a [1] ≥ 48 且 a [1] ≤ 57)<br />                 数字数 ＝ 数字数 ＋ 1<br />             .判断 (a [1] ≥ 65 且 a [1] ≤ 90)<br />                 大写字母 ＝ 大写字母 ＋ 1<br />             .判断 (a [1] ≥ 97 且 a [1] ≤ 122)<br />                 小写字母 ＝ 小写字母 ＋ 1<br />             .默认<br />                 其他 ＝ 其他 ＋ 1<br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .如果结束<br />     n ＝ n ＋ 1<br /> .判断循环尾 ()<br /> 编辑框2.加入文本 (“中文数(包括标点符号)：” ＋ 到文本 (中文数) ＋ #换行符)<br /> 编辑框2.加入文本 (“数字数：” ＋ 到文本 (数字数) ＋ #换行符)<br /> 编辑框2.加入文本 (“大写字母：” ＋ 到文本 (大写字母) ＋ #换行符)<br /> 编辑框2.加入文本 (“小写字母：” ＋ 到文本 (小写字母) ＋ #换行符)<br /> 编辑框2.加入文本 (“其他：” ＋ 到文本 (其他) ＋ #换行符)<br /> 编辑框2.加入文本 (“统计总 字节数：” ＋ 到文本 (中文数 × 2 ＋ 数字数 ＋ 大写字母 ＋ 小写字母 ＋ 其他) ＋ #换行符)<br /> 编辑框2.加入文本 (“总 字节数：” ＋ 到文本 (文本长度) ＋ #换行符)<br /> 恢复鼠标 ()

补充内容 (2015-12-23 18:45):
这里能取到单一的中文、数字、大小写字母、其他类型的字数，你要是单一取文本中的汉字来说  就用
编辑框2.加入文本 (“中文数(包括标点符号)：” ＋ 到文本 (中文数) ＋ #换行符 )
这一段就可以了

汉族

正则；；

[\u4e00-\u9fa5]

补充内容 (2015-12-23 18:43):
后面代码  统计起来 去文本长度/2  = 数量

VC大圣

冯古屋

附件仅供参考

mjianm

超级模块，文本_逐字分割（）

sjfsss

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
是否打开	逻辑型
文本	正则表达式类
i	整数型

通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文本文件|*.txt”
是否打开 ＝ 通用对话框1.打开 ()
如果真 (是否打开 ＝ 真)
文本.创建 (“[\u4e00-\u9fa5]”, 到文本 (读入文件 (通用对话框1.文件名)))
i ＝ 文本.取匹配数量 ()
信息框 (“共” ＋ 到文本 (i) ＋ “个汉字”, 0, , )

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 是否打开, 逻辑型<br /> .局部变量 文本, 正则表达式类<br /> .局部变量 i, 整数型<br /> <br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.过滤器 ＝ “文本文件|*.txt”<br /> 是否打开 ＝ 通用对话框1.打开 ()<br /> .如果真 (是否打开 ＝ 真)<br /> 文本.创建 (“[\u4e00-\u9fa5]”, 到文本 (读入文件 (通用对话框1.文件名)))<br /> i ＝ 文本.取匹配数量 ()<br /> <br /> 信息框 (“共” ＋ 到文本 (i) ＋ “个汉字”, 0, , )<br /> <br /> .如果真结束

精易模块