精易论坛

标题: 批量替换问题会的进来帮助一下 [打印本页]

作者: bbs592 时间: 2013-5-30 23:00
标题: 批量替换问题会的进来帮助一下
批量替换问题会的进来帮助一下

源.rar (3.61 KB, 下载次数: 16)
看源码吧。如果有比在个更好的方法希望上个例源学习一下，谢谢

作者: 宇智波·晓易 时间: 2013-5-30 23:00

没那么多参数。
[e]
.版本 2

.子程序文本_批量替换, 文本型, 公开, 返回替换后的文本
.参数欲被替换的文本, 文本型
.参数替换规则, 文本型, 数组, 提供一个文本型数组，替换规则定义：成员1的内容被成员2的内容替换，成员3的内容被成员4的内容替换，以此类推。如果成员个数为奇数，那么最后一个成员将被空文本替换。
.局部变量 int, 整数型
.局部变量 qtt, 整数型
.局部变量 str, 文本型

int ＝取数组成员数 (替换规则)
str ＝欲被替换的文本
.变量循环首 (1, 取数组成员数 (替换规则), 2, qtt)
.判断开始 (取数组成员数 (替换规则) ＜ qtt ＋ 1)
str ＝子文本替换 (str, 替换规则 [qtt], “”, , , 真)
.默认
str ＝子文本替换 (str, 替换规则 [qtt], 替换规则 [qtt ＋ 1], , , 真)
.判断结束

.变量循环尾 ()
返回 (str)
[/e]

欢迎光临精易论坛 (https://125.confly.eu.org/)