关于统计出现次数的代码修改

wh1234567

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击			统计出现次数

变量名	类 型	静态	数组	备 注
i	整数型
i1	整数型
花名文本	文本型
名	文本型		0
次数	整数型		0
z	整数型
i2	整数型
临时文本	文本型

花名文本 ＝ “老大|张哥|李三三|桥巧|王美人|大姨|小月”
名 ＝ 分割文本 (花名文本, “|”, )
重定义数组 (次数, 假, 取数组成员数 (名))
计次循环首 (超级列表框1.取表项数 (), i)
计次循环首 (超级列表框1.取列数 (), i1)
计次循环首 (取数组成员数 (名), i2)
如果真 (寻找文本 (超级列表框1.取标题 (i － 1, i1 － 1), 名 [i2], , 假) ≠ -1)
次数 [i2] ＝ 次数 [i2] ＋ 1

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (名), i2)
判断 (临时文本 ＝ “”)
临时文本 ＝ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次”
临时文本 ＝ 临时文本 ＋ #换行符 ＋ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次”

计次循环尾 ()
编辑框1.内容 ＝ 临时文本

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击, , , 统计出现次数<br /> .局部变量 i, 整数型<br /> .局部变量 i1, 整数型<br /> .局部变量 花名文本, 文本型<br /> .局部变量 名, 文本型, , "0"<br /> .局部变量 次数, 整数型, , "0"<br /> .局部变量 z, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> 花名文本 ＝ “老大|张哥|李三三|桥巧|王美人|大姨|小月”<br /> 名 ＝ 分割文本 (花名文本, “|”, )<br /> 重定义数组 (次数, 假, 取数组成员数 (名))<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .计次循环首 (超级列表框1.取列数 (), i1)<br />         .计次循环首 (取数组成员数 (名), i2)<br />             .如果真 (寻找文本 (超级列表框1.取标题 (i － 1, i1 － 1), 名 [i2], , 假) ≠ -1)<br />                 次数 [i2] ＝ 次数 [i2] ＋ 1<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (名), i2)<br />     .判断开始 (临时文本 ＝ “”)<br />         临时文本 ＝ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次”<br />     .默认<br />         临时文本 ＝ 临时文本 ＋ #换行符 ＋ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次”<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 临时文本

目前输出格式是：
"老大"出现过19次
"张哥"出现过19次
"李三三"出现过19次
"桥巧"出现过19次
"王美人"出现过19次
"大姨"出现过19次
"小月"出现过19次


如何修改成如下格式：
"老大"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】
"张哥"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】
"李三三"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】
"桥巧"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】
"王美人"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】
"大姨"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】
"小月"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】


求修改后的完整代码



补充内容 (2025-3-12 19:48):
也就是把每列出现的次数也输出

山猫啊

test 1.e (963.85 KB, 下载次数: 5)

2025-3-13 03:08 上传

点击文件名下载附件

淡淡如梦3

5个精币~~

wh1234567

淡淡如梦3 发表于 2025-3-12 20:10
5个精币~~

精币所剩无几，少但表心意，呵呵呵，希望大佬们谅解

补充内容 (2025-3-12 20:15):
每天都会有新问题请教，一次性把币弄完就没法发新帖了

aipca

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击			统计出现次数

变量名	类 型	静态	数组	备 注
i	整数型
i1	整数型
花名文本	文本型
名	文本型		0
次数	整数型		0
z	整数型
i2	整数型
临时文本	文本型
细节	文本型		0

花名文本 ＝ “老大|张哥|李三三|桥巧|王美人|大姨|小月”
名 ＝ 分割文本 (花名文本, “|”, )
重定义数组 (次数, 假, 取数组成员数 (名))
重定义数组 (细节, 假, 取数组成员数 (名))
变量循环首 (超级列表框1.取表项数 (), 1, -1, i)
变量循环首 (超级列表框1.取列数 (), 1, -1, i1)
变量循环首 (取数组成员数 (名), 1, -1, i2)
如果真 (寻找文本 (超级列表框1.取标题 (i － 1, i1 － 1), 名 [i2], , 假) ≠ -1)
次数 [i2] ＝ 次数 [i2] ＋ 1
细节 [i2] ＝ 细节 [i2] ＋ “第” ＋ 到文本 (i) ＋ “行” ＋ 到文本 (i1) ＋ “列；”

变量循环尾 ()
变量循环尾 ()
变量循环尾 ()
变量循环首 (取数组成员数 (名), 1, -1, i2)
判断 (临时文本 ＝ “”)
临时文本 ＝ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次，” ＋ 细节 [i2]
临时文本 ＝ 临时文本 ＋ #换行符 ＋ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次” ＋ 细节 [i2]

变量循环尾 ()
编辑框1.内容 ＝ 临时文本

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击, , , 统计出现次数<br /> .局部变量 i, 整数型<br /> .局部变量 i1, 整数型<br /> .局部变量 花名文本, 文本型<br /> .局部变量 名, 文本型, , "0"<br /> .局部变量 次数, 整数型, , "0"<br /> .局部变量 z, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 细节, 文本型, , "0"<br /> <br /> 花名文本 ＝ “老大|张哥|李三三|桥巧|王美人|大姨|小月”<br /> 名 ＝ 分割文本 (花名文本, “|”, )<br /> 重定义数组 (次数, 假, 取数组成员数 (名))<br /> 重定义数组 (细节, 假, 取数组成员数 (名))<br /> .变量循环首 (超级列表框1.取表项数 (), 1, -1, i)<br />     .变量循环首 (超级列表框1.取列数 (), 1, -1, i1)<br />         .变量循环首 (取数组成员数 (名), 1, -1, i2)<br />             .如果真 (寻找文本 (超级列表框1.取标题 (i － 1, i1 － 1), 名 [i2], , 假) ≠ -1)<br />                 次数 [i2] ＝ 次数 [i2] ＋ 1<br />                 细节 [i2] ＝ 细节 [i2] ＋ “第” ＋ 到文本 (i) ＋ “行” ＋ 到文本 (i1) ＋ “列；”<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br /> <br />     .变量循环尾 ()<br /> <br /> .变量循环尾 ()<br /> <br /> .变量循环首 (取数组成员数 (名), 1, -1, i2)<br />     .判断开始 (临时文本 ＝ “”)<br />         临时文本 ＝ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次，” ＋ 细节 [i2]<br />     .默认<br />         临时文本 ＝ 临时文本 ＋ #换行符 ＋ #引号 ＋ 名 [i2] ＋ #引号 ＋ “出现过” ＋ 到文本 (次数 [i2]) ＋ “次” ＋ 细节 [i2]<br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> 编辑框1.内容 ＝ 临时文本

补充内容 (2025-3-12 21:45):
超级列表是从0行0列开始的，替换成了1行1列显示直观一些

补充内容 (2025-3-13 09:49):
你是懒出天际了 还是别学E语言了，去白嫖吧

wh1234567

aipca 发表于 2025-3-12 21:44
[e=1].版本 2
.支持库 iext

超级列表框里有多行多列，
显示是0，不对啊

wh1234567

aipca 发表于 2025-3-12 21:44
[e=1].版本 2
.支持库 iext

感谢老师，刚才弄错了，可以统计，能不能按我说的那种格式输出即可？期待老师修改一下吧，

wh1234567

aipca 发表于 2025-3-12 21:44
[e=1].版本 2
.支持库 iext

大佬，如何修改成如下格式：
"老大"出现过19次【分别在第1列出现过几次、第2列出现过几次、第3列出现过几次、第4列出现过几次】

山猫啊

test 1.e (963.55 KB, 下载次数: 1)

2025-3-13 01:47 上传

点击文件名下载附件

wh1234567

鱼老板 发表于 2025-3-13 01:47

表格总列数是5正常统计，如果总列数是6的话就提示错误了，求修正，只统计有花名的那4列

补充内容 (2025-3-13 02:39):
是不是把列次数数组5修改成6即可？