.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
编辑框1.内容 = “4113884123238586741341.125346” ' ''这是一个文本,根据你的需要更改
编辑框2.内容 = “1” ' ''这是要从上面文本中寻找的文本(即上面的文本中有多少个1?),根据你的需要更改
.子程序 _按钮1_被单击
.局部变量 a, 整数型, , , 变量a用于判断要搜索的文本是否存在、判断文本的位置、判断下次搜索时的位置
.局部变量 b, 整数型, , , 变量b用于判断要搜索的文本的个数
a = 0
b = 0
.判断循环首 (a ≠ -1) ' ''这个需要自己理解,很难解释→_→
a = 寻找文本 (编辑框1.内容, 编辑框2.内容, a + 1, 假)
b = b + 1
.判断循环尾 ()
b = b - 1 ' ''-1的原因:因为在上面的循环中,b的值一定会比要搜索的文本的个数多1【在最后一次搜索中,除非要搜索的内容为“”,否则a的值一定是-1(即不存在),但b依然会+1】,所以现在必须-1
标签1.标题 = 到文本 (b) ' ''把b的值显示出来
' ''最后提醒一下:
' 1.需要两个编辑框,1个标签,1个按钮
' 2.标签显示的是要寻找的文本的个数,即你的要求
' 3.本人语文水平不高→_→
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 局_文本数组, 文本型, , "0"
.局部变量 局_出现次数, 整数型
局_文本数组 = 分割文本 (“iugjhhjfhjfhgfhgfhgfjhf”, “h”, )
局_出现次数 = 取数组成员数 (局_文本数组) - 1
调试输出 (局_出现次数)
用到精易模块
.版本 2
.子程序 功能_取文本出现次数, 整数型
.参数 要查的总文本, 文本型
.参数 要查次数的文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 成员数, 整数型
.局部变量 i, 整数型
.局部变量 返回数量, 整数型
成员数 = 文本_逐字分割 (要查的总文本, 临时数组)
.计次循环首 (取数组成员数 (临时数组), i)
.如果 (临时数组 [i] = 要查次数的文本)
返回数量 = 返回数量 + 1
.否则
.如果结束
.计次循环尾 ()
返回 (返回数量)
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
写到文件 (取运行目录 () + “/1.txt”, 到字节集 (编辑框1.内容))