易语言教学代码_文本_取出现次数

.版本 2
.子程序 文本_取出现次数, 整数型, , 返回指定文本中指定内容出现的次数
.参数 被搜索文本, 文本型
.参数 欲搜索文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空
.局部变量 位置_, 整数型, , , 感谢论坛会员 Mr.Yang提供的代码
.局部变量 i, 整数型
.如果真 (取文本长度 (被搜索文本) > 0 且 取文本长度 (欲搜索文本) > 0)
    位置_ = 寻找文本 (被搜索文本, 欲搜索文本, , 取反 (是否区分大小写))
    .判断循环首 (位置_ ≠ -1)
        i = i + 1
        位置_ = 寻找文本 (被搜索文本, 欲搜索文本, 位置_ + 取文本长度 (欲搜索文本), 取反 (是否区分大小写))
    .判断循环尾 ()
.如果真结束
返回 (i)

 

赞 (0)