取文本出现次数不用循环处理,不分割 - 精易论坛

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

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

变量名	类型	静态	数组	备注
a	文本型

a ＝ “2e87haaksnct3287dhohd86t8q723eoq”
输出调试文本 (取文本出现次数 (a, “”, 真))

子程序名	返回值类型	公开	备注
取文本出现次数	整数型		返回出现次数,如果不存在,则返回0
参数名	类型	参考	可空	数组	备注
要判断的全文本	文本型
出现的文本	文本型
是否区分大小写	逻辑型				默认为真

变量名	类型	静态	数组	备注
局部_文本	文本型
局部_文本长度	整数型
局部_结果文本长度	整数型

局部_文本＝要判断的全文本  ' 为了防止把传递过来的变量内容给改变,所以用个变量保存参数
局部_文本长度＝取文本长度 (局部_文本)  ' 先取第一次文本长度
局部_文本＝子文本替换 (局部_文本, 出现的文本, , , , 是否为空 (是否区分大小写) 或是否区分大小写)  ' 把要判断出现的文本都替换掉
局部_结果文本长度＝取文本长度 (局部_文本)  ' 在把替换掉的文本长度纪录出现次数 = (原始文本长度 - 结果文本长度 ) / 要判断出现的文本长度
返回 (选择 (局部_文本长度－局部_结果文本长度＝ 0, 0, (局部_文本长度－局部_结果文本长度) ÷ 取文本长度 (出现的文本)))

子程序名	返回值类型	公开	备注
取文本出现次数	整数型		返回出现次数,如果不存在,则返回0
参数名	类型	参考	可空	数组	备注
要判断的全文本	文本型
出现的文本	文本型
是否区分大小写	逻辑型				默认为真

变量名	类型	静态	数组	备注
快速文本	快速文本对象

快速文本.置文本 (要判断的全文本)
返回 (快速文本.替换子文本 (出现的文本, “”, , , 是否为空 (是否区分大小写) 或是否区分大小写))

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