文本的中间文本_批量加前后缀，写了两个子程序求优化

哈拉哈拉

文本的中间文本_批量加前后缀，写了两个子程序求优化
琢磨了两三个小时，求大佬帮忙看看，说说有什么问题，还有问题如何解决
下面第一个子程序这个是我自己根据精e模块改的，不能满足我的地方是
比如 源文本是 答案A解析B 答案D 答案CD解析 给答案与解析内的文本加前后缀会把只有答案没有解析的搞乱了（红色部分）

第二个子程序是根据 @蛀牙 提供帮助改的 这个的问题是例如文本前后什么也没有中间也会加前后缀，比如源码中的13

建议还是下载我上传的源码看一下，更直观。 如果下载源码需要E币我尽量打赏补偿一下
文本的中间文本_批量加前后缀.e (150 KB, 下载次数: 3)

2022-2-16 14:48 上传

点击文件名下载附件
感谢蛀牙的帮助 感动感激感谢，因为他的态度还有提供的子程序都很好

  

子程序名	返回值类型	公开	备 注
文本的中间文本_批量加前后缀	文本型		比如：欲操作的全文本为<12345>,现在要为“3”加前缀和后缀，并且返回12345
参数名	类 型	参考	可空	数组	备 注
源文本	文本型				比如：欲操作的全文本为<12345>
前面标识文本	文本型				3的前面为“2”
后面标识文本	文本型				3的后面为“4”
为取出的文本加上前缀	文本型				在取出的文本前面加上一段字符或汉字！可空！
为取出的文本加上后缀	文本型				在取出的文本后面加上一段字符或汉字！可空！
是否不区分大小写	逻辑型				是否区分大小写
文本长度大于此数的不要	整数型				文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制(下面参数中的加入的后缀不算在其中，标志文本为真那么标志算在其中)
起始位置	整数型

变量名	类 型	静态	数组	备 注
数组数量	整数型
已经找到的	整数型
StartPos	整数型			前面文本位置
EndPos	整数型			后面文本位置
Search	文本型			中间文本
中间长度	整数型			EndPos － StartPos
bl源文本	文本型			避免源文本变化影响后续操作

StartPos ＝ 起始位置
bl源文本 ＝ 源文本
循环判断首 ()
StartPos ＝ 寻找文本 (bl源文本, 前面标识文本, StartPos, 是否不区分大小写)
如果 (StartPos ≠ -1)  ' 可以找到
StartPos ＝ StartPos ＋ 取文本长度 (前面标识文本)
EndPos ＝ 寻找文本 (bl源文本, 后面标识文本, StartPos, 是否不区分大小写)
调试输出 (“前面位置↓”)
调试输出 (StartPos)
调试输出 (“后面位置↓”)
调试输出 (EndPos)
如果 (EndPos ≠ -1)  ' 后面文本位置
如果真 (StartPos ≠ EndPos)  ' 相等中间没有内容 比如13
中间长度 ＝ EndPos － StartPos
' ＋ 取文本长度 (连前面标识文本一起取出 ＋ 连后面标识文本一起取出)
Search ＝ 取文本中间 (bl源文本, StartPos, 中间长度)
Search ＝ 为取出的文本加上前缀 ＋ Search ＋ 为取出的文本加上后缀
如果 (文本长度大于此数的不要 ＝ 0)
bl源文本 ＝ 文本替换 (bl源文本, StartPos, 中间长度, Search)
如果真 (取文本长度 (Search) － 取文本长度 (为取出的文本加上前缀 ＋ 为取出的文本加上后缀) ＜ 文本长度大于此数的不要)
bl源文本 ＝ 文本替换 (bl源文本, StartPos, 中间长度, Search)

处理事件 ()

跳出循环 ()
处理事件 ()
跳出循环 ()
处理事件 ()
循环判断尾 (StartPos ≠ -1)
返回 (bl源文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本的中间文本_批量加前后缀, 文本型, 公开, 比如：欲操作的全文本为<12345>,现在要为“3”加前缀<u>和后缀</u>，并且返回12<u>3</u>45<br /> .参数 源文本, 文本型, , 比如：欲操作的全文本为<12345><br /> .参数 前面标识文本, 文本型, , 3的前面为“2”<br /> .参数 后面标识文本, 文本型, , 3的后面为“4”<br /> .参数 为取出的文本加上前缀, 文本型, 可空, 在取出的文本前面加上一段字符或汉字！可空！<br /> .参数 为取出的文本加上后缀, 文本型, 可空, 在取出的文本后面加上一段字符或汉字！可空！<br /> .参数 是否不区分大小写, 逻辑型, 可空, 是否区分大小写<br /> .参数 文本长度大于此数的不要, 整数型, 可空, 文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制(下面参数中的加入的后缀不算在其中，标志文本为真那么标志算在其中)<br /> .参数 起始位置, 整数型, 可空<br /> .局部变量 数组数量, 整数型<br /> .局部变量 已经找到的, 整数型<br /> .局部变量 StartPos, 整数型, , , 前面文本位置<br /> .局部变量 EndPos, 整数型, , , 后面文本位置<br /> .局部变量 Search, 文本型, , , 中间文本<br /> .局部变量 中间长度, 整数型, , , EndPos － StartPos<br /> .局部变量 bl源文本, 文本型, , , 避免源文本变化影响后续操作<br /> <br /> StartPos ＝ 起始位置<br /> bl源文本 ＝ 源文本<br /> <br /> .循环判断首 ()<br />     StartPos ＝ 寻找文本 (bl源文本, 前面标识文本, StartPos, 是否不区分大小写)<br />     .如果 (StartPos ≠ -1)  ' 可以找到<br />         StartPos ＝ StartPos ＋ 取文本长度 (前面标识文本)<br /> <br />         EndPos ＝ 寻找文本 (bl源文本, 后面标识文本, StartPos, 是否不区分大小写)<br />         调试输出 (“前面位置↓”)<br />         调试输出 (StartPos)<br />         调试输出 (“后面位置↓”)<br />         调试输出 (EndPos)<br />         .如果 (EndPos ≠ -1)  ' 后面文本位置<br />             .如果真 (StartPos ≠ EndPos)  ' 相等中间没有内容 比如13<br />                 中间长度 ＝ EndPos － StartPos<br />                 ' ＋ 取文本长度 (连前面标识文本一起取出 ＋ 连后面标识文本一起取出)<br />                 Search ＝ 取文本中间 (bl源文本, StartPos, 中间长度)<br />                 Search ＝ 为取出的文本加上前缀 ＋ Search ＋ 为取出的文本加上后缀<br />                 .如果 (文本长度大于此数的不要 ＝ 0)<br />                     bl源文本 ＝ 文本替换 (bl源文本, StartPos, 中间长度, Search)<br />                 .否则<br />                     .如果真 (取文本长度 (Search) － 取文本长度 (为取出的文本加上前缀 ＋ 为取出的文本加上后缀) ＜ 文本长度大于此数的不要)<br />                         bl源文本 ＝ 文本替换 (bl源文本, StartPos, 中间长度, Search)<br />                     .如果真结束<br /> <br />                 .如果结束<br />                 处理事件 ()<br />             .如果真结束<br /> <br />         .否则<br />             跳出循环 ()<br />         .如果结束<br />         处理事件 ()<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .循环判断尾 (StartPos ≠ -1)<br /> <br /> 返回 (bl源文本)

  

子程序名	返回值类型	公开	备 注
文本的中间文本_批量加前后缀_正则	文本型		比如：欲操作的全文本为<12345>,现在要为“3”加前缀和后缀，并且返回12345
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
开始关键字	文本型
结束关键字	文本型
前缀	文本型
后缀	文本型
贪婪模式	逻辑型
含前后文本	逻辑型

变量名	类 型	静态	数组	备 注
正则	正则表达式
表达式	文本型
开始关键字_正则	正则表达式			采用的 正则表达式 支持库，无此支持库的请到官方网站下载正版易语言
局_搜索结果	搜索结果		0
局_匹配数	整数型			匹配数量
局_计次	整数型
替换格式	文本型

如果 (贪婪模式 ＝ 真)
表达式 ＝ 开始关键字 ＋ “(.*?)” ＋ 结束关键字
表达式 ＝ 开始关键字 ＋ “([\s\S]*?)” ＋ 结束关键字

调试输出 (表达式)
正则.创建 (表达式, 假)
调试输出 (正则.创建 (表达式, 假))
' 不可以删除空格 换行
如果 (含前后文本 ＝ 真)
替换格式 ＝ 开始关键字 ＋ “(” ＋ 前缀 ＋ “$1” ＋ 后缀 ＋ “)” ＋ 结束关键字
替换格式 ＝ 前缀 ＋ “$1” ＋ 后缀
调试输出 (替换格式)
返回 (正则.替换 (源文本, 替换格式, 1, , 真, 真))

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .子程序 文本的中间文本_批量加前后缀_正则, 文本型, , 比如：欲操作的全文本为<12345>,现在要为“3”加前缀<u>和后缀</u>，并且返回12<u>3</u>45<br /> .参数 源文本, 文本型<br /> .参数 开始关键字, 文本型<br /> .参数 结束关键字, 文本型<br /> .参数 前缀, 文本型<br /> .参数 后缀, 文本型<br /> .参数 贪婪模式, 逻辑型<br /> .参数 含前后文本, 逻辑型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 表达式, 文本型<br /> .局部变量 开始关键字_正则, 正则表达式, , , 采用的 正则表达式 支持库，无此支持库的请到官方网站下载正版易语言<br /> .局部变量 局_搜索结果, 搜索结果, 静态, "0"<br /> .局部变量 局_匹配数, 整数型, , , 匹配数量<br /> .局部变量 局_计次, 整数型<br /> .局部变量 替换格式, 文本型<br /> <br /> <br /> <br /> .如果 (贪婪模式 ＝ 真)<br />     表达式 ＝ 开始关键字 ＋ “(.*?)” ＋ 结束关键字<br /> .否则<br />     表达式 ＝ 开始关键字 ＋ “([\s\S]*?)” ＋ 结束关键字<br /> .如果结束<br /> <br /> 调试输出 (表达式)<br /> 正则.创建 (表达式, 假)<br /> 调试输出 (正则.创建 (表达式, 假))<br /> ' 不可以删除空格 换行<br /> .如果 (含前后文本 ＝ 真)<br />     替换格式 ＝ 开始关键字 ＋ “(” ＋ 前缀 ＋ “$1” ＋ 后缀 ＋ “)” ＋ 结束关键字<br /> .否则<br />     替换格式 ＝ 前缀 ＋ “$1” ＋ 后缀<br /> .如果结束<br /> 调试输出 (替换格式)<br /> 返回 (正则.替换 (源文本, 替换格式, 1, , 真, 真))

蛀牙

哈拉哈拉 发表于 2022-2-17 07:28
很简化，但不能替换文本中间存在换行的文本，也就是不能对任意文本实现，我发的那个可以，不知道原因 ...

  

子程序名	返回值类型	公开	备 注
楼主替换特定中间文本_批量	文本型		取前字符 和 离它最近的后字符(它们中间必须有字符,如果没有则略过) 并替换加前后缀  https://bbs.125.la/thread-14717804-1-1.html
参数名	类 型	参考	可空	数组	备 注
文本	文本型
前文本	文本型
后文本	文本型
添加前缀	文本型
添加后缀	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
a	文本型
q	文本型
h	文本型

q ＝ “软如棉”  ' q和h可以换成其他(文本中不存在的)字符,但是q和h不能存在相同字符
h ＝ “黑又硬”
a ＝ 子文本替换 (子文本替换 (文本, 前文本, q, , , 真), 后文本, h, , , 真)
正则.创建 (q ＋ “([^” ＋ h ＋ “]+?)” ＋ h, 假)
返回 (子文本替换 (子文本替换 (正则.替换 (a, q ＋ “(” ＋ 添加前缀 ＋ “$1” ＋ 添加后缀 ＋ “)” ＋ h, 1, , 真, 真), q, 前文本, , , 真), h, 后文本, , , 真))

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 楼主替换特定中间文本_批量, 文本型, , 取前字符 和 离它最近的后字符(它们中间必须有字符,如果没有则略过) 并替换加前后缀  <a href="https://bbs.125.la/thread-14717804-1-1.html" rel="nofollow" rel="nofollow" target="_blank">https://bbs.125.la/thread-14717804-1-1.html</a><br /> .参数 文本, 文本型<br /> .参数 前文本, 文本型<br /> .参数 后文本, 文本型<br /> .参数 添加前缀, 文本型<br /> .参数 添加后缀, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 a, 文本型<br /> .局部变量 q, 文本型<br /> .局部变量 h, 文本型<br /> <br /> q ＝ “软如棉”  ' q和h可以换成其他(文本中不存在的)字符,但是q和h不能存在相同字符<br /> h ＝ “黑又硬”<br /> a ＝ 子文本替换 (子文本替换 (文本, 前文本, q, , , 真), 后文本, h, , , 真)<br /> 正则.创建 (q ＋ “([^” ＋ h ＋ “]+?)” ＋ h, 假)<br /> 返回 (子文本替换 (子文本替换 (正则.替换 (a, q ＋ “(” ＋ 添加前缀 ＋ “$1” ＋ 添加后缀 ＋ “)” ＋ h, 1, , 真, 真), q, 前文本, , , 真), h, 后文本, , , 真))

文本的中间文本_批量加前后缀.e (7.43 KB, 下载次数: 1)

2022-2-17 15:28 上传

点击文件名下载附件

风清云游

挺简单的东西 生生给整复杂了 也是长姿势了

补充内容 (2022-2-17 09:24):
首先 文本操作 在我看来是最基础的东西 难吗？如果我一个人不会 是我能力有问题 大家都不会 就是你的问题了 反省下自己的问题再说

蛀牙

  

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

' 编辑框6.内容 ＝ 替换特定中间文本_批量 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容)

子程序名	返回值类型	公开	备 注
替换特定中间文本_批量	文本型		比如：欲操作的全文本为<12345>,现在要为“3”加前缀和后缀，并且返回12345
参数名	类 型	参考	可空	数组	备 注
文本	文本型
欲取出其部分文本的前边文本	文本型
欲取出其部分文本的后边文本	文本型
欲取出其部分文本后替换前缀	文本型
欲取出其部分文本后替换后缀	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式

正则.创建 (欲取出其部分文本的前边文本 ＋ “([\S.]+?)” ＋ 欲取出其部分文本的后边文本, 假)
返回 (正则.替换 (文本, 欲取出其部分文本的前边文本 ＋ “(” ＋ 欲取出其部分文本后替换前缀 ＋ “$1” ＋ 欲取出其部分文本后替换后缀 ＋ “)” ＋ 欲取出其部分文本的后边文本, 1, , 真, 真))

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> ' 编辑框6.内容 ＝ 替换特定中间文本_批量 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容)<br /> <br /> .子程序 替换特定中间文本_批量, 文本型, , 比如：欲操作的全文本为<12345>,现在要为“3”加前缀<u>和后缀</u>，并且返回12<u>3</u>45<br /> .参数 文本, 文本型<br /> .参数 欲取出其部分文本的前边文本, 文本型<br /> .参数 欲取出其部分文本的后边文本, 文本型<br /> .参数 欲取出其部分文本后替换前缀, 文本型<br /> .参数 欲取出其部分文本后替换后缀, 文本型<br /> .局部变量 正则, 正则表达式<br /> <br /> 正则.创建 (欲取出其部分文本的前边文本 ＋ “([\S.]+?)” ＋ 欲取出其部分文本的后边文本, 假)<br /> 返回 (正则.替换 (文本, 欲取出其部分文本的前边文本 ＋ “(” ＋ 欲取出其部分文本后替换前缀 ＋ “$1” ＋ 欲取出其部分文本后替换后缀 ＋ “)” ＋ 欲取出其部分文本的后边文本, 1, , 真, 真))

蛀牙

文本的中间文本_批量加前后缀.e (4.36 KB, 下载次数: 6)

2022-2-16 16:25 上传

点击文件名下载附件

Suky

直接  批量文本取中间，然后根据取得内容对原文本进行子文本替换
要加前缀、后缀的自文本  直接子文本替换为加了前缀后缀的

哈拉哈拉

一路生花 发表于 2022-2-16 18:13
直接  批量文本取中间，然后根据取得内容对原文本进行子文本替换
要加前缀、后缀的自文本  直接子文本替换 ...

如果正则匹配的文本，匹配到123，匹配不到的也有123替换后还能实现仅仅替换正则匹配的么，不能所以不可行

哈拉哈拉

蛀牙 发表于 2022-2-16 16:25
[e=1].版本 2
.支持库 RegEx

很简化，但不能替换文本中间存在换行的文本，也就是不能对任意文本实现，我发的那个可以，不知道原因