Question

易语言 怎样查找文本里面的一个字含有多少个？

怎样查找文本里面的一个字含有多少个？例如“好”这个字，用一个代码可以查出这个文本里还有多少个“好”字
用一个代码可以查出这个文本里含有多少个“好”字啊！打错了

Answer 1

可以的 进行多次 寻找文本（） 命令 就可以了

2个方法

.版本 2

.子程序 寻找重复文本个数, 整数型
.参数 被查找的文本, 文本型
.参数 欲查找的文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空, 假就不区分 真就区分
.局部变量 查找索引, 整数型
.局部变量 找到的个数, 整数型
.局部变量 文本长度, 整数型

是否区分大小写 ＝ 取反 (是否区分大小写)
文本长度 ＝ 取文本长度 (欲查找的文本)
.如果真 (寻找文本 (被查找的文本, 欲查找的文本, , 是否区分大小写) ＝ -1)
    返回 (0)
.如果真结束
查找索引 ＝ 寻找文本 (被查找的文本, 欲查找的文本, , 是否区分大小写)
找到的个数 ＝ 找到的个数 ＋ 1
.判断循环首 (寻找文本 (被查找的文本, 欲查找的文本, 查找索引 ＋ 文本长度, 是否区分大小写) ≠ -1)
    查找索引 ＝ 寻找文本 (被查找的文本, 欲查找的文本, 查找索引 ＋ 文本长度, 是否区分大小写)
    找到的个数 ＝ 找到的个数 ＋ 1
.判断循环尾 ()
返回 (找到的个数)


.子程序 寻找重复文本个数2, 整数型
.参数 被查找的文本, 文本型
.参数 欲查找的文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空, 假就不区分 真就区分
.局部变量 分割组, 文本型, , "0"

.如果真 (是否区分大小写 ＝ 假)
    被查找的文本 ＝ 到小写 (被查找的文本)
    欲查找的文本 ＝ 到小写 (欲查找的文本)
.如果真结束

分割组 ＝ 分割文本 (被查找的文本, 欲查找的文本, )
返回 (取数组成员数 (分割组) － 1)

Answer 2

复制以下代码，然后调试输出（到文本 (寻找重复文本个数2 (编辑框2.内容, 编辑框1.内容, ))）就是想要的个数了。
---------------------------------------------------
.版本 2

.子程序 寻找重复文本个数, 整数型
.参数 被查找的文本, 文本型
.参数 欲查找的文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空, 假就不区分 真就区分
.局部变量 查找索引, 整数型
.局部变量 找到的个数, 整数型
.局部变量 文本长度, 整数型

是否区分大小写 ＝ 取反 (是否区分大小写)
文本长度 ＝ 取文本长度 (欲查找的文本)
.如果真 (寻找文本 (被查找的文本, 欲查找的文本, , 是否区分大小写) ＝ -1)
返回 (0)
.如果真结束
查找索引 ＝ 寻找文本 (被查找的文本, 欲查找的文本, , 是否区分大小写)
找到的个数 ＝ 找到的个数 ＋ 1
.判断循环首 (寻找文本 (被查找的文本, 欲查找的文本, 查找索引 ＋ 文本长度, 是否区分大小写) ≠ -1)
查找索引 ＝ 寻找文本 (被查找的文本, 欲查找的文本, 查找索引 ＋ 文本长度, 是否区分大小写)
找到的个数 ＝ 找到的个数 ＋ 1
.判断循环尾 ()
返回 (找到的个数)

.子程序 寻找重复文本个数2, 整数型
.参数 被查找的文本, 文本型
.参数 欲查找的文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空, 假就不区分 真就区分
.局部变量 分割组, 文本型, , "0"

.如果真 (是否区分大小写 ＝ 假)
被查找的文本 ＝ 到小写 (被查找的文本)
欲查找的文本 ＝ 到小写 (欲查找的文本)
.如果真结束

分割组 ＝ 分割文本 (被查找的文本, 欲查找的文本, )
返回 (取数组成员数 (分割组) － 1)

Answer 3

正则表达式搜索后取数组成员数就行了
-----------------------------------
.版本 2
.支持库 RegEx

.程序集 窗口程序集_启动窗口

.子程序 _按钮_搜索_被单击
.局部变量 正则, 正则表达式
.局部变量 搜索结果, 搜索结果, , "0"

正则.创建 (编辑框_关键字.内容, 假)
搜索结果 ＝ 正则.搜索全部 (编辑框_原文.内容)
编辑框_反馈.内容 ＝ “关键字数：” ＋ 到文本 (取数组成员数 (搜索结果))