优化命令 文本_取文本出现次数

shituo

频繁用到 取文本长度 命令 直接用变量代替 如果是长文本会提高一些时间

另外 是否区分大小写 默认 修改为 区分大小写(因为寻找文本默认是区分大小写的! 寻找文本的命令不会转换大小写 速度也会更快)

  

子程序名	返回值类型	公开	备 注
文本_取出现次数	整数型		返回指定文本中指定内容出现的次数
参数名	类 型	参考	可空	数组	备 注
被搜索文本	文本型
欲搜索文本	文本型
是否区分大小写	逻辑型				可以被省略 如果本参数被省略则本参数，默认为:真 区分大小写

变量名	类 型	静态	数组	备 注
位置_	整数型			感谢论坛会员 Mr.Yang提供的代码,用户 shituo优化
i	整数型
局部_文本长度	整数型

如果真 (取文本长度 (被搜索文本) ＞ 0)
局部_文本长度 ＝ 取文本长度 (欲搜索文本)
如果真 (局部_文本长度 ＞ 0)
如果真 (是否为空 (是否区分大小写))
是否区分大小写 ＝ 真
是否区分大小写 ＝ 取反 (是否区分大小写)
位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, , 是否区分大小写)
判断循环首 (位置_ ≠ -1)
i ＝ i ＋ 1
位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, 位置_ ＋ 局部_文本长度, 是否区分大小写)
判断循环尾 ()

返回 (i)

.版本 2<br /> <br /> .子程序 文本_取出现次数, 整数型, 公开, 返回指定文本中指定内容出现的次数<br /> .参数 被搜索文本, 文本型<br /> .参数 欲搜索文本, 文本型<br /> .参数 是否区分大小写, 逻辑型, 可空, 可以被省略 如果本参数被省略则本参数，默认为:真 区分大小写 <br /> .局部变量 位置_, 整数型, , , 感谢论坛会员 Mr.Yang提供的代码,用户 shituo优化<br /> .局部变量 i, 整数型<br /> .局部变量 局部_文本长度, 整数型<br /> <br /> .如果真 (取文本长度 (被搜索文本) ＞ 0)<br />     局部_文本长度 ＝ 取文本长度 (欲搜索文本)<br />     .如果真 (局部_文本长度 ＞ 0)<br />         .如果真 (是否为空 (是否区分大小写))<br />             是否区分大小写 ＝ 真<br />         .如果真结束<br />         是否区分大小写 ＝ 取反 (是否区分大小写)<br />         位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, , 是否区分大小写)<br />         .判断循环首 (位置_ ≠ -1)<br />             i ＝ i ＋ 1<br />             位置_ ＝ 寻找文本 (被搜索文本, 欲搜索文本, 位置_ ＋ 局部_文本长度, 是否区分大小写)<br />         .判断循环尾 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (i)

a6711653

非常好                     

sunfly

第一个寻找文本多余的直接一个判断循环就可以

非常猥锁

感觉分享

yq1431

好，我同意