文本批量修改

BruceJoysky1987

有没有大佬教教文本替换的，批量替换，找了下论坛的都无法实现，自己写的只替换了1，通过正则取出了双引号中的文本，然后再循环里面替换替换的都是第一个，要么直接替换成了第四个（数组成员）

大致意思是匹配出所有的文本（双引号中的）


然后进行指定文本加上序号替换，例如：文本1、文本2以匹配的数量为准。


示例原始文本：


《
明天会更好“11”天
明天会更好“12”天
明天会更好“13”天
明天会更好“14”天
》


替换为：


《
明天会更好“文本1”天
明天会更好“文本2”天
明天会更好“文本3”天
明天会更好“文本4”天
》



或支持更多。。。
《.版本 2


.子程序 文本替换, 文本型
.参数 欲替换的文本, 文本型
.局部变量 处理结果, 文本型, , , 完成替换的


' 处理代码
返回 (处理结果)
》
子程序提供文本就可以，内部代码进行处理。




补充内容 (2024-11-22 04:03):
精易模块的不够替换

waweiggfnh

文本替换TEST.e (538.07 KB, 下载次数: 0, 售价: 1 枚 精币)

7 小时前 上传

点击文件名下载附件


补充内容 (2024-11-22 08:52):
使用了精易模块的正则表达式

mytiger

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (文本_替换_批量 ( #常量1, “11,文本1|12,文本2|13,文本3|14,文本4”))

子程序名	返回值类型	公开	备 注
文本_替换_批量	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
表达式	文本型				"待替换1,替换1|待替换2,替换2|……"

变量名	类 型	静态	数组	备 注
_arr	文本型		0
n	整数型
_str	文本型
_th	文本型		0

_str ＝ str
_arr ＝ 分割文本 (表达式, “|”, )
计次循环首 (取数组成员数 (_arr), n)
_th ＝ 分割文本 (_arr [n], “,”, )
如果真 (取数组成员数 (_th) ＝ 2)
_str ＝ 子文本替换 (_str, _th [1], _th [2], , , 真)

计次循环尾 ()
返回 (_str)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (文本_替换_批量 (#常量1, “11,文本1|12,文本2|13,文本3|14,文本4”))<br /> <br /> .子程序 文本_替换_批量, 文本型<br /> .参数 str, 文本型<br /> .参数 表达式, 文本型, , "待替换1,替换1|待替换2,替换2|……"<br /> .局部变量 _arr, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 _str, 文本型<br /> .局部变量 _th, 文本型, , "0"<br /> <br /> _str ＝ str<br /> _arr ＝ 分割文本 (表达式, “|”, )<br /> .计次循环首 (取数组成员数 (_arr), n)<br />     _th ＝ 分割文本 (_arr [n], “,”, )<br />     .如果真 (取数组成员数 (_th) ＝ 2)<br />         _str ＝ 子文本替换 (_str, _th [1], _th [2], , , 真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (_str)

mytiger

  

子程序名	返回值类型	公开	备 注
文本_替换_批量	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
表达式	文本型				"待替换1,替换1|待替换2,替换2|……"

变量名	类 型	静态	数组	备 注
_arr	文本型		0
n	整数型
_str	文本型
_th	文本型		0

_str ＝ str
_arr ＝ 分割文本 (表达式, “|”, )
计次循环首 (取数组成员数 (_arr), n)
_th ＝ 分割文本 (_arr [n], “,”, )
如果真 (取数组成员数 (_th) ＝ 2)
_str ＝ 子文本替换 (_str, _th [1], _th [2], , , 真)

计次循环尾 ()
返回 (_str)

.版本 2<br /> <br /> .子程序 文本_替换_批量, 文本型<br /> .参数 str, 文本型<br /> .参数 表达式, 文本型, , "待替换1,替换1|待替换2,替换2|……"<br /> .局部变量 _arr, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 _str, 文本型<br /> .局部变量 _th, 文本型, , "0"<br /> <br /> _str ＝ str<br /> _arr ＝ 分割文本 (表达式, “|”, )<br /> .计次循环首 (取数组成员数 (_arr), n)<br />     _th ＝ 分割文本 (_arr [n], “,”, )<br />     .如果真 (取数组成员数 (_th) ＝ 2)<br />         _str ＝ 子文本替换 (_str, _th [1], _th [2], , , 真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (_str)

mytiger

文本_替换_批量.e (2.95 KB, 下载次数: 0)

7 小时前 上传

点击文件名下载附件