做一个寻找文本的小工具

openweilai · 发表于 2023-10-2 10:00:47

想做一个寻找文本的工具，来让统计工人的工作数量。比如：我在编辑框1里输入：
1通过张三
2通过李四
8通过王五
2通过张三
30通过李四
1通过赵一
我想要当我按下统计按钮后“通过”两个字后面的名字各自的总数结果显示在编辑框2里，比如：
张三：2
李四：2
王五：1
赵一：1

新人学习，求指点

浪使者 · 发表于 2023-10-2 10:00:48

简化代码

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

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

编辑框2.内容＝统计数量 (编辑框1.内容)

子程序名	返回值类型	公开	备注
统计数量	文本型
参数名	类型	参考	可空	数组	备注
原文本	文本型

变量名	类型	静态	数组	备注
aa	文本型		0
计次	整数型
当前行文本	文本型
bb	文本型		0
当前姓名	文本型
结果文本	快速文本对象

aa ＝分割文本 (原文本＋ #换行符, #换行符, )

计次循环首 (取数组成员数 (aa), 计次)

当前行文本＝ aa [计次]

如果 (寻找文本 (当前行文本, “通过”, , 假) ＞ 0)

bb ＝分割文本 (当前行文本, “通过”, )

当前姓名＝ bb [2]

如果 (结果文本.寻找文本 (当前姓名, , 真) ＜ 1)

结果文本.添加 (当前姓名＋ “：” ＋到文本 (文本_取出现次数 (原文本, 当前姓名)) ＋ #换行符 )

计次循环尾 ()
返回 (结果文本.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库

鹏书 · 发表于 2023-10-2 10:04:36

https://www.bilibili.com/video/BV1HY411U79U/

zhangwen97 · 发表于 2023-10-2 10:09:00

文本_取出现次数

用这个~

zhangwen97 · 发表于 2023-10-2 10:43:02

子程序名	返回值类型	公开	备注
统计

变量名	类型	静态	数组	备注
string	文本型
add	文本型		0
i	整数型
name	文本型
end	文本型
x	整数型
int	整数型

' 首先取出文本
string ＝编辑框1.内容
' 分割文本
add ＝分割文本 (string, #换行符, )

计次循环首 (取数组成员数 (add), i)

name ＝文本区分_只取汉字 (add [i])

int ＝ 0

计次循环首 (取数组成员数 (add), x)

如果真 (name ＝文本区分_只取汉字 (add [x]))

int ＝ int ＋到数值 (文本区分_只取数字 (add [x]))

如果真 (取数组成员数 (add) ＝ x)

end ＝ end ＋ name ＋到文本 (int) ＋ #换行符

计次循环尾 ()

计次循环尾 ()
调试输出 (end)
文本_删除空行 (end)
编辑框2.内容＝ end

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

取出次数.e (931.61 KB, 下载次数: 3)

helloxiaomi · 发表于 2023-10-2 10:44:48

能实现功能，代码比较low。

openweilai · 发表于 2023-10-2 10:50:37

zhangwen97 发表于 2023-10-2 10:43
[e=1].版本 2
.支持库 spec

错误(8): 右括号处于错误位置。代码应该是对的，怎么会出现这个提示呢

openweilai · 发表于 2023-10-2 10:51:39

helloxiaomi 发表于 2023-10-2 10:44
能实现功能，代码比较low。

我想要统计的是每个名字出现的次数，不是每个名字出现的编号，这个应该怎么改呢？谢谢

zhangwen97 · 发表于 2023-10-2 10:58:18

openweilai 发表于 2023-10-2 10:50
错误(8): 右括号处于错误位置。代码应该是对的，怎么会出现这个提示呢

下载底下附件

openweilai · 发表于 2023-10-2 11:45:56

zhangwen97 发表于 2023-10-2 10:58
下载底下附件

为什么会这样呢

		自动登录	找回密码
密码			注册

[完成] 做一个寻找文本的小工具

最佳答案

评分

点评