文本批量替换子文本一个代码替换多个子文本的命令终于...

shituo

  

数据类型名	公开	备 注
子文本		文本_替换子文本
成员名	类 型	传址	数组	备 注
子文本	文本型
长度	整数型
停止寻找	逻辑型			默认为假 所以不需要赋值

子程序名	返回值类型	公开	备 注
文本_替换子文本	文本型		超级子文本替换
参数名	类 型	参考	可空	数组	备 注
参_原始文本	文本型
参_被替换的文本	文本型				支持多个子文本替换以半角逗号(,)分隔
参_子文本	文本型

变量名	类 型	静态	数组	备 注
数组_子文本数	整数型
数组_子文本数组	文本型		0
数组_替换文本	子文本		0
局部_替换长度
局部_当前位置
局部_替换位置				替换文本的位置
局部_替换次数
i	整数型

判断 (参_原始文本 ≠ “” 且 参_子文本 ≠ “”)
判断 (文本_是否存在 (参_子文本, “,”))
数组_子文本数组 ＝ 分割文本 (参_被替换的文本, “,”, )
数组_子文本数 ＝ 取数组成员数 (数组_子文本数组)
重定义数组 (数组_替换文本, 假, 数组_子文本数)
计次循环首 (数组_子文本数, i)
数组_替换文本 [i].子文本 ＝ 数组_子文本数组 [i]
数组_替换文本 [i].长度 ＝ 文本_取长度_asm (数组_替换文本 [i].子文本)
' 数组_子文本 [L].当前位置 ＝ 1
计次循环尾 ()
' =========================只有一个子文本===========================
数组_子文本数 ＝ 1
重定义数组 (数组_替换文本, 假, 1)
数组_替换文本 [1].子文本 ＝ 参_子文本
数组_替换文本 [1].长度 ＝ 文本_取长度_asm (参_子文本)
' ===========================================替换代码开始===========================
局部_替换次数 ＝ 数组_子文本数
判断循环首 (局部_替换次数 ＞ 0)
计次循环首 (数组_子文本数, i)
判断 (数组_替换文本 [i].停止寻找 ＝ 假)
局部_当前位置 ＝ 寻找文本_极速 (参_原始文本, 数组_替换文本 [i].子文本, 局部_替换位置)
判断 (局部_当前位置 ＝ -1)
局部_替换次数 ＝ 局部_替换次数 － 1
数组_替换文本 [i].停止寻找 ＝ 真
局部_替换位置 ＝ 0
局部_替换位置 ＝ 局部_当前位置 ＋ 数组_替换文本 [i].长度
' ---------------------------------找到了---则替换------------------------
' 调试输出 (文本替换 (参_原始文本, 局部_当前位置 － 1, 数组_替换文本 [i].长度, 数组_替换文本 [i].子文本))
参_原始文本 ＝ 文本替换 (参_原始文本, 局部_当前位置, 数组_替换文本 [i].长度, 参_子文本)

' 跳出循环 ()

计次循环尾 ()
判断循环尾 ()
返回 (参_原始文本)
返回 (参_原始文本)

.版本 2<br /> <br /> .数据类型 子文本, 公开, 文本_替换子文本<br />     .成员 子文本, 文本型<br />     .成员 长度, 整数型<br />     .成员 停止寻找, 逻辑型, , , 默认为假 所以不需要赋值<br /> <br /> <br /> <br /> .子程序 文本_替换子文本, 文本型, , 超级子文本替换<br /> .参数 参_原始文本, 文本型<br /> .参数 参_被替换的文本, 文本型, , 支持多个子文本替换以半角逗号(,)分隔<br /> .参数 参_子文本, 文本型<br /> .局部变量 数组_子文本数, 整数型<br /> .局部变量 数组_子文本数组, 文本型, , "0"<br /> .局部变量 数组_替换文本, 子文本, , "0"<br /> .局部变量 局部_替换长度<br /> .局部变量 局部_当前位置<br /> .局部变量 局部_替换位置, , , , 替换文本的位置<br /> .局部变量 局部_替换次数<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (参_原始文本 ≠ “” 且 参_子文本 ≠ “”)<br />     .判断开始 (文本_是否存在 (参_子文本, “,”))<br />         数组_子文本数组 ＝ 分割文本 (参_被替换的文本, “,”, )<br />         数组_子文本数 ＝ 取数组成员数 (数组_子文本数组)<br />         重定义数组 (数组_替换文本, 假, 数组_子文本数)<br />         .计次循环首 (数组_子文本数, i)<br />             数组_替换文本 <i>.子文本 ＝ 数组_子文本数组 <i><br />             数组_替换文本 <i>.长度 ＝ 文本_取长度_asm (数组_替换文本 <i>.子文本)<br />             ' 数组_子文本 [L].当前位置 ＝ 1<br />         .计次循环尾 ()<br />     .默认<br />         ' =========================只有一个子文本===========================<br />         数组_子文本数 ＝ 1<br />         重定义数组 (数组_替换文本, 假, 1)<br />         数组_替换文本 [1].子文本 ＝ 参_子文本<br />         数组_替换文本 [1].长度 ＝ 文本_取长度_asm (参_子文本)<br />     .判断结束<br />     ' ===========================================替换代码开始===========================<br />     局部_替换次数 ＝ 数组_子文本数<br />     .判断循环首 (局部_替换次数 ＞ 0)<br />         .计次循环首 (数组_子文本数, i)<br />             .判断开始 (数组_替换文本 <i>.停止寻找 ＝ 假)<br />                 局部_当前位置 ＝ 寻找文本_极速 (参_原始文本, 数组_替换文本 <i>.子文本, 局部_替换位置)<br />                 .判断开始 (局部_当前位置 ＝ -1)<br />                     局部_替换次数 ＝ 局部_替换次数 － 1<br />                     数组_替换文本 <i>.停止寻找 ＝ 真<br />                     局部_替换位置 ＝ 0<br />                 .默认<br />                     局部_替换位置 ＝ 局部_当前位置 ＋ 数组_替换文本 <i>.长度<br />                     ' ---------------------------------找到了---则替换------------------------<br />                     ' 调试输出 (文本替换 (参_原始文本, 局部_当前位置 － 1, 数组_替换文本 <i>.长度, 数组_替换文本 <i>.子文本))<br />                     参_原始文本 ＝ 文本替换 (参_原始文本, 局部_当前位置, 数组_替换文本 <i>.长度, 参_子文本)<br />                 .判断结束<br /> <br />             .默认<br />                 ' 跳出循环 ()<br />             .判断结束<br /> <br />         .计次循环尾 ()<br />     .判断循环尾 ()<br />     返回 (参_原始文本)<br /> .默认<br />     返回 (参_原始文本)

weitu520

错误(37): 找不到指定的命令／子程序／Dll命令调用名称“文本_是否存在”，精易模块也没有这个命令

shuya1

看看好用不

一个追梦的心

强势围观一波

nanyanglxy

强势围观一波

nanyanglxy

强势围观一波

letmin

感谢分享，很给力！~

ocimei

支持开源~！感谢分享

ocimei

支持开源~！感谢分享

Loyal2014

      感谢分享，很给力！~