易语言教学代码_文本_寻找出文本并删除

.版本 2
.子程序 文本_寻找出文本并删除, 文本型, , 比如:欲寻找的全文本为<12345789>,现在要删除2到5之间的全部字符,包括2跟5,成功返回删除后的结果文本,失败返回原文本!
.参数 欲寻找的全文本, 文本型, , 比如:欲寻找的全文本为 12345789
.参数 前面文本, 文本型, , 前面为“2”
.参数 后面文本, 文本型, , 后面为“5”
.参数 是否保留前后文本, 逻辑型, 可空, 默认不保留
.局部变量 中间文本, 文本型
.局部变量 起始位置, 整数型
.计次循环首 (文本_取出现次数 (欲寻找的全文本, 前面文本, ), )
    中间文本 = 文本_取出中间文本 (欲寻找的全文本, 前面文本, 后面文本, 起始位置, )
    .如果 (是否保留前后文本 = 真)
        欲寻找的全文本 = 子文本替换 (欲寻找的全文本, 前面文本 + 中间文本 + 后面文本, 前面文本 + 后面文本, , 1, 真)
        起始位置 = 寻找文本 (欲寻找的全文本, 前面文本 + 后面文本, 起始位置, 假) + 取文本长度 (前面文本 + 后面文本)
    .否则
        欲寻找的全文本 = 子文本替换 (欲寻找的全文本, 前面文本 + 中间文本 + 后面文本, , , 1, 真)
    .如果结束
.计次循环尾 ()
返回 (欲寻找的全文本)

 

赞 (0)