统计文字出现的次数

lblhlove

文本="我,你,他,我,你,他,我,你,他,我"

我要统计出如下结果:
"我出现了4次 你出现了3次 他出现了3次"
求解

石榴熟了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
取文本出现次数	文本型
参数名	类 型	参考	可空	数组	备 注
文本集	文本型				文本集

变量名	类 型	静态	数组	备 注
一次分割	文本型		0
二次分割	文本型		0
i	整数型
ii	整数型
iii	整数型
num	整数型
文本	文本型
待返回	文本型

一次分割 ＝ 分割文本 (文本集, “,”, )
计次循环首 (取数组成员数 (一次分割), i)  ' 取出文本不重复内容，并保存到文本
如果真 (寻找文本 (文本, 一次分割 [i] ＋ #换行符, , 假) ＝ -1)
文本 ＝ 文本 ＋ 一次分割 [i] ＋ #换行符
处理事件 ()
计次循环尾 ()
二次分割 ＝ 分割文本 (文本, #换行符, )  ' 取得不重复文本数组
计次循环首 (取数组成员数 (二次分割), ii)
num ＝ 0
计次循环首 (取数组成员数 (一次分割), iii)
如果真 (二次分割 [ii] ＝ 一次分割 [iii])
num ＝ num ＋ 1
处理事件 ()
计次循环尾 ()
待返回 ＝ 待返回 ＋ 二次分割 [ii] ＋ “共出现了:” ＋ 到文本 (num) ＋ “次,”
计次循环尾 ()
返回 (待返回)

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

调试输出 (取文本出现次数 (“我,你,他,我,你,他,我,你,他,我”))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 取文本出现次数, 文本型<br /> .参数 文本集, 文本型, , 文本集<br /> .局部变量 一次分割, 文本型, , "0"<br /> .局部变量 二次分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> .局部变量 num, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 待返回, 文本型<br /> <br /> 一次分割 ＝ 分割文本 (文本集, “,”, )<br /> .计次循环首 (取数组成员数 (一次分割), i)  ' 取出文本不重复内容，并保存到文本<br />     .如果真 (寻找文本 (文本, 一次分割 <i> ＋ #换行符, , 假) ＝ -1)<br />         文本 ＝ 文本 ＋ 一次分割 <i> ＋ #换行符<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 二次分割 ＝ 分割文本 (文本, #换行符, )  ' 取得不重复文本数组<br /> .计次循环首 (取数组成员数 (二次分割), ii)<br />     num ＝ 0<br />     .计次循环首 (取数组成员数 (一次分割), iii)<br />         .如果真 (二次分割 [ii] ＝ 一次分割 [iii])<br />             num ＝ num ＋ 1<br />         .如果真结束<br />         处理事件 ()<br />     .计次循环尾 ()<br />     待返回 ＝ 待返回 ＋ 二次分割 [ii] ＋ “共出现了:” ＋ 到文本 (num) ＋ “次,”<br /> .计次循环尾 ()<br /> 返回 (待返回)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (取文本出现次数 (“我,你,他,我,你,他,我,你,他,我”))

lblhlove

最好不要用模块

asfor78

精易模块源码里的命令 自己拿过去修改下吧

  

子程序名	返回值类型	公开	备 注
文本_取出现次数	整数型
参数名	类 型	参考	可空	数组	备 注
被搜索文本	文本型
欲搜索文本	文本型
是否区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
位置_	整数型			感谢论坛会员 Mr.Yang提供的代码
i	整数型

如果真 (取文本长度 (被搜索文本) ＞ 0 且 取文本长度 (欲搜索文本) ＞ 0)
位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, , 取反 (是否区分大小写))
判断循环首 (位置_ ≠ -1)
i ＝ i ＋ 1
位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, 位置_ ＋ 取文本长度 (欲搜索文本), 取反 (是否区分大小写))
判断循环尾 ()
返回 (i)

.版本 2<br /> <br /> .子程序 文本_取出现次数, 整数型, 公开<br /> .参数 被搜索文本, 文本型<br /> .参数 欲搜索文本, 文本型<br /> .参数 是否区分大小写, 逻辑型, 可空<br /> .局部变量 位置_, 整数型, , , 感谢论坛会员 Mr.Yang提供的代码<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (取文本长度 (被搜索文本) ＞ 0 且 取文本长度 (欲搜索文本) ＞ 0)<br />     位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, , 取反 (是否区分大小写))<br />     .判断循环首 (位置_ ≠ -1)<br />         i ＝ i ＋ 1<br />         位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, 位置_ ＋ 取文本长度 (欲搜索文本), 取反 (是否区分大小写))<br />     .判断循环尾 ()<br /> .如果真结束<br /> 返回 (i)

半世琉璃

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 文本, 文本型
   
6. .局部变量 临时分割, 文本型, , "0"
   
7. .局部变量 i, 整数型
   
8. .局部变量 次数, 整数型
   
9. 
   
10. 文本 ＝ “我,你,他,我,你,他,我,你,他,我”
    
11. 临时分割 ＝ 分割文本 (文本, “,”, )
    
12. .计次循环首 (取数组成员数 (临时分割), i)
    
13.     .如果真 (临时分割 [i] ＝ “你”)
    
14.         次数 ＝ 次数 ＋ 1
    
15. 
    
16.     .如果真结束
    
17. 
    
18. .计次循环尾 ()
    
19. 调试输出 (“你字出现了” ＋ 到文本 (次数) ＋ “次”)
    

复制代码

半世琉璃

方法1：

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .局部变量 文本, 文本型
   
5. .局部变量 i, 整数型
   
6. .局部变量 次数, 整数型
   
7. .局部变量 找到的位置, 整数型
   
8. 
   
9. 文本 ＝ “我,你,他,我,你,他,我,你,他,我”
   
10. .判断循环首 (真)
    
11.     找到的位置 ＝ 寻找文本 (文本, “你”, 找到的位置, 假)
    
12. 
    
13.     .如果 (找到的位置 ≠ -1)
    
14.         次数 ＝ 次数 ＋ 1
    
15.         找到的位置 ＝ 找到的位置 ＋ 1
    
16.     .否则
    
17.         跳出循环 ()
    
18.     .如果结束
    
19. 
    
20. 
    
21. .判断循环尾 ()
    
22. 调试输出 (次数)
    

复制代码

方法2：

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 文本, 文本型
   
6. .局部变量 临时分割, 文本型, , "0"
   
7. .局部变量 i, 整数型
   
8. .局部变量 次数, 整数型
   
9. 
   
10. 文本 ＝ “我,你,他,我,你,他,我,你,他,我”
    
11. 临时分割 ＝ 分割文本 (文本, “,”, )
    
12. .计次循环首 (取数组成员数 (临时分割), i)
    
13.     .如果真 (临时分割 [i] ＝ “你”)
    
14.         次数 ＝ 次数 ＋ 1
    
15. 
    
16.     .如果真结束
    
17. 
    
18. .计次循环尾 ()
    
19. 调试输出 (“你字出现了” ＋ 到文本 (次数) ＋ “次”)
    

复制代码

冯古屋

  

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

变量名	类 型	静态	数组	备 注
正则	正则表达式类
文本	文本型
内容	文本型		0
i	整数型
去重复	节点
数据	文本型

文本 ＝ “我,你,他,我,你,他,我,你,他,我”
内容 ＝ 分割文本 (文本, “,”, )
计次循环首 (取数组成员数 (内容), i)
如果真 (去重复.加入属性 (内容 [i], 真))
正则.创建 (内容 [i], 文本)
数据 ＝ 数据 ＋ 内容 [i] ＋ “出现：” ＋ 到文本 (正则.取匹配数量 ()) ＋ “次 ”

计次循环尾 ()
调试输出 (数据)

i支持库列表	支持库注释
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 文本, 文本型<br /> .局部变量 内容, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 去重复, 节点<br /> .局部变量 数据, 文本型<br /> <br /> 文本 ＝ “我,你,他,我,你,他,我,你,他,我”<br /> 内容 ＝ 分割文本 (文本, “,”, )<br /> .计次循环首 (取数组成员数 (内容), i)<br />     .如果真 (去重复.加入属性 (内容 <i>, 真))<br />         正则.创建 (内容 <i>, 文本)<br />         数据 ＝ 数据 ＋ 内容 <i> ＋ “出现：” ＋ 到文本 (正则.取匹配数量 ()) ＋ “次 ”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (数据)

不想用模块么，你用自带的易语言正则支持库。

Harry·

看了看上面的回复，基本都是要你自己定关键字，我就写了个不需要你定关键字，直接出结果的。上张图，还有不想用模块，那我就把精易模块里的命令复制到了源码里面

文本_取出现次数.rar (28.4 KB, 下载次数: 15)

2017-1-11 23:28 上传

点击文件名下载附件

呵呵仙

http://bbs.125.la/forum.php?mod= ... 13958781&extra=

我爱小黑屋

111111111.zip (227.92 KB, 下载次数: 10)

2017-1-11 23:37 上传

点击文件名下载附件