精易论坛

标题: 文本批量处理_改 [打印本页]

---

作者: 失落的情域    时间: 2025-2-21 20:23
标题: 文本批量处理_改
"1""2""3""4"
“4”“5”“6”

  

子程序名	返回值类型	公开	备 注
文本_取中间_批量_改	整数型		比如：欲取全文本为<12345>,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”
参数名	类 型	参考	可空	数组	备 注
源文本	文本型				比如：欲取全文本为 12345
前面标识文本	文本型				3的前面为“2”
后面标识文本	文本型				3的后面为“4”
存放取出文本的数组	文本型				存放取出文本的数组
是否不区分大小写	逻辑型				是否区分大小写
文本长度大于此数的不要	整数型				文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制(下面参数中的加入的后缀不算在其中，标志文本为真那么标志算在其中)
为取出的文本加上前缀	文本型				在取出的文本前面加上一段字符或汉字！可空！
为取出的文本加上后缀	文本型				在取出的文本后面加上一段字符或汉字！可空！
连前面标识文本一起取出	逻辑型				是否连<前面标识文本>一起取出? 默认为假，不取出！
连后面标识文本一起取出	逻辑型				是否连<后面标识文本>一起取出? 默认为假，不取出！
起始位置	整数型
从后标识后继续寻找	逻辑型				“1”，“2”，“3” 每次找到后 从后标识位置以后开始继续寻找 避免无效取出

变量名	类 型	静态	数组	备 注
数组数量	整数型
已经找到的	整数型
StartPos	整数型
EndPos	整数型
Search	文本型
中间长度	整数型
寻找结果长度	整数型
后标识后继续寻找	逻辑型

清除数组 (存放取出文本的数组)
如果 (是否为空 (从后标识后继续寻找) ＝ 真)  ' 按理来说，一般目的是 都是默认 为真  想了想 默认为真的话，代码错误以后  容易漏取，
后标识后继续寻找 ＝ 假
后标识后继续寻找 ＝ 真
StartPos ＝ 起始位置
循环判断首 ()
如果 (从后标识后继续寻找 ＝ 真)
StartPos ＝ 寻找文本 (源文本, 前面标识文本, StartPos ＋ 寻找结果长度, 是否不区分大小写)
StartPos ＝ 寻找文本 (源文本, 前面标识文本, StartPos, 是否不区分大小写)

寻找结果长度 ＝ 0
如果 (StartPos ≠ -1)
StartPos ＝ StartPos ＋ 取文本长度 (前面标识文本)
EndPos ＝ 寻找文本 (源文本, 后面标识文本, StartPos, 是否不区分大小写)
如果 (EndPos ≠ -1)
中间长度 ＝ EndPos － StartPos
Search ＝ 取文本中间 (源文本, StartPos, 中间长度)
Search ＝ 为取出的文本加上前缀 ＋ Search ＋ 为取出的文本加上后缀
如果真 (连前面标识文本一起取出 ＝ 真)
Search ＝ 前面标识文本 ＋ Search
如果真 (连后面标识文本一起取出 ＝ 真)
Search ＝ Search ＋ 后面标识文本

如果 (文本长度大于此数的不要 ＝ 0)
加入成员 (存放取出文本的数组, Search)
寻找结果长度 ＝ 取文本长度 (Search) ＋ 取文本长度 (后面标识文本)

如果真 (取文本长度 (Search) ＜ 文本长度大于此数的不要)
加入成员 (存放取出文本的数组, Search)
寻找结果长度 ＝ 取文本长度 (Search) ＋ 取文本长度 (后面标识文本)

处理事件 ()
跳出循环 ()
处理事件 ()
跳出循环 ()
处理事件 ()
循环判断尾 (StartPos ≠ -1)
返回 (取数组成员数 (存放取出文本的数组))

.版本 2<br /> <br /> .子程序 文本_取中间_批量_改, 整数型, 公开, 比如：欲取全文本为<12345>,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”<br /> .参数 源文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面标识文本, 文本型, , 3的前面为“2”<br /> .参数 后面标识文本, 文本型, , 3的后面为“4”<br /> .参数 存放取出文本的数组, 文本型, 可空 数组, 存放取出文本的数组<br /> .参数 是否不区分大小写, 逻辑型, 可空, 是否区分大小写<br /> .参数 文本长度大于此数的不要, 整数型, 可空, 文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制(下面参数中的加入的后缀不算在其中，标志文本为真那么标志算在其中)<br /> .参数 为取出的文本加上前缀, 文本型, 可空, 在取出的文本前面加上一段字符或汉字！可空！<br /> .参数 为取出的文本加上后缀, 文本型, 可空, 在取出的文本后面加上一段字符或汉字！可空！<br /> .参数 连前面标识文本一起取出, 逻辑型, 可空, 是否连<前面标识文本>一起取出? 默认为假，不取出！<br /> .参数 连后面标识文本一起取出, 逻辑型, 可空, 是否连<后面标识文本>一起取出? 默认为假，不取出！<br /> .参数 起始位置, 整数型, 可空<br /> .参数 从后标识后继续寻找, 逻辑型, 可空, “1”，“2”，“3” 每次找到后 从后标识位置以后开始继续寻找 避免无效取出  <br /> .局部变量 数组数量, 整数型<br /> .局部变量 已经找到的, 整数型<br /> .局部变量 StartPos, 整数型<br /> .局部变量 EndPos, 整数型<br /> .局部变量 Search, 文本型<br /> .局部变量 中间长度, 整数型<br /> .局部变量 寻找结果长度, 整数型<br /> .局部变量 后标识后继续寻找, 逻辑型<br /> <br /> 清除数组 (存放取出文本的数组)<br /> .如果 (是否为空 (从后标识后继续寻找) ＝ 真)  ' 按理来说，一般目的是 都是默认 为真  想了想 默认为真的话，代码错误以后  容易漏取，<br />     后标识后继续寻找 ＝ 假<br /> .否则<br />     后标识后继续寻找 ＝ 真<br /> .如果结束<br /> StartPos ＝ 起始位置<br /> .循环判断首 ()<br />     .如果 (从后标识后继续寻找 ＝ 真)<br />         StartPos ＝ 寻找文本 (源文本, 前面标识文本, StartPos ＋ 寻找结果长度, 是否不区分大小写)<br />     .否则<br />         StartPos ＝ 寻找文本 (源文本, 前面标识文本, StartPos, 是否不区分大小写)<br />     .如果结束<br /> <br />     寻找结果长度 ＝ 0<br />     .如果 (StartPos ≠ -1)<br />         StartPos ＝ StartPos ＋ 取文本长度 (前面标识文本)<br />         EndPos ＝ 寻找文本 (源文本, 后面标识文本, StartPos, 是否不区分大小写)<br />         .如果 (EndPos ≠ -1)<br />             中间长度 ＝ EndPos － StartPos<br />             Search ＝ 取文本中间 (源文本, StartPos, 中间长度)<br />             Search ＝ 为取出的文本加上前缀 ＋ Search ＋ 为取出的文本加上后缀<br />             .如果真 (连前面标识文本一起取出 ＝ 真)<br />                 Search ＝ 前面标识文本 ＋ Search<br />             .如果真结束<br />             .如果真 (连后面标识文本一起取出 ＝ 真)<br />                 Search ＝ Search ＋ 后面标识文本<br />             .如果真结束<br /> <br />             .如果 (文本长度大于此数的不要 ＝ 0)<br />                 加入成员 (存放取出文本的数组, Search)<br />                 寻找结果长度 ＝ 取文本长度 (Search) ＋ 取文本长度 (后面标识文本)<br /> <br />             .否则<br />                 .如果真 (取文本长度 (Search) ＜ 文本长度大于此数的不要)<br />                     加入成员 (存放取出文本的数组, Search)<br />                     寻找结果长度 ＝ 取文本长度 (Search) ＋ 取文本长度 (后面标识文本)<br />                 .如果真结束<br /> <br />             .如果结束<br />             处理事件 ()<br />         .否则<br />             跳出循环 ()<br />         .如果结束<br />         处理事件 ()<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     处理事件 ()<br /> .循环判断尾 (StartPos ≠ -1)<br /> 返回 (取数组成员数 (存放取出文本的数组))

---

作者: 失落的情域    时间: 2025-2-21 20:27
当批量取出的文本内，包含前标识文本时，经常取出一些无效的文本，所以加了个  找到以后，从后标识后继续取出的选择

---

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

Powered by Discuz! X3.4