文本颠倒求助

q7078

文本是随机出现的  需要颠倒文本中特定的文本  张三、李四、王五、
需要把文本颠倒处理（正向转换）：
1、把“一二三李四张三四五六七八九十”颠倒成“一二三张三李四四五六七八九十”

2、把“一二王五张三四三五六七八九十”颠倒成“一二张三王五三四五六七八九十”


需要把文本颠倒处理（反向转换）：
1、把“一二三张三李四四五六七八九十”颠倒成“一二三李四张三四五六七八九十”

2、把“一二张三王五三四五六七八九十”颠倒成“一二王五张三四三五六七八九十”



论坛搜索了一圈 没有发现适合我我情况的帖子   路过帮忙下哥源码谢谢

风度猫

q7078 发表于 2024-3-11 18:52
新手不是很理解 可以帮忙写个源码吗  谢谢

  

变量名	类 型	静态	数组	备 注
局_数组顺序	文本型		0
局_位置	整数型		0
局_判断文本	文本型
i	整数型
局_找到位置	整数型
局_结果文本	文本型

局_数组顺序 ＝ { “张三”, “李四”, “王五” }
局_位置 ＝ { 0, 0, 0 }
局_判断文本 ＝ “一二王五张三四三五六七八九十”
计次循环首 (3, i)
局_找到位置 ＝ 寻找文本 (局_判断文本, 局_数组顺序 [i], , 假)
如果 (局_找到位置 ≠ -1)
局_位置 [i] ＝ 局_找到位置
局_位置 [i] ＝ 0

计次循环尾 ()
' \\\\正序
局_结果文本 ＝ 局_判断文本
如果真 (局_位置 [1] ＞ 局_位置 [2] 且 局_位置 [2] ≠ 0)
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [2])
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [2], 4, 局_数组顺序 [1])
如果真 (局_位置 [1] ＞ 局_位置 [3] 且 局_位置 [3] ≠ 0)
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [3])
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [3], 4, 局_数组顺序 [1])
调试输出 (局_结果文本)
' \\\\倒序
局_结果文本 ＝ 局_判断文本
如果真 (局_位置 [1] ＜ 局_位置 [2] 且 局_位置 [2] ≠ 0)
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [2])
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [2], 4, 局_数组顺序 [1])
如果真 (局_位置 [1] ＜ 局_位置 [3] 且 局_位置 [3] ≠ 0)
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [3])
局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [3], 4, 局_数组顺序 [1])
调试输出 (局_结果文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_数组顺序, 文本型, , "0"<br /> .局部变量 局_位置, 整数型, , "0"<br /> .局部变量 局_判断文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 局_找到位置, 整数型<br /> .局部变量 局_结果文本, 文本型<br /> <br /> 局_数组顺序 ＝ { “张三”, “李四”, “王五” }<br /> 局_位置 ＝ { 0, 0, 0 }<br /> 局_判断文本 ＝ “一二王五张三四三五六七八九十”<br /> .计次循环首 (3, i)<br />     局_找到位置 ＝ 寻找文本 (局_判断文本, 局_数组顺序 <i>, , 假)<br />     .如果 (局_找到位置 ≠ -1)<br />         局_位置 <i> ＝ 局_找到位置<br />     .否则<br />         局_位置 <i> ＝ 0<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' \\\\正序<br /> 局_结果文本 ＝ 局_判断文本<br /> .如果真 (局_位置 [1] ＞ 局_位置 [2] 且 局_位置 [2] ≠ 0)<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [2])<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [2], 4, 局_数组顺序 [1])<br /> .如果真结束<br /> .如果真 (局_位置 [1] ＞ 局_位置 [3] 且 局_位置 [3] ≠ 0)<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [3])<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [3], 4, 局_数组顺序 [1])<br /> .如果真结束<br /> 调试输出 (局_结果文本)<br /> ' \\\\倒序<br /> 局_结果文本 ＝ 局_判断文本<br /> .如果真 (局_位置 [1] ＜ 局_位置 [2] 且 局_位置 [2] ≠ 0)<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [2])<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [2], 4, 局_数组顺序 [1])<br /> .如果真结束<br /> .如果真 (局_位置 [1] ＜ 局_位置 [3] 且 局_位置 [3] ≠ 0)<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [1], 4, 局_数组顺序 [3])<br />     局_结果文本 ＝ 文本替换 (局_结果文本, 局_位置 [3], 4, 局_数组顺序 [1])<br /> .如果真结束<br /> 调试输出 (局_结果文本)

田心南

精易模块有，文本功能找下，好像是反转

补充内容 (2024-3-11 00:19):
看错，忽略

风度猫

是否每次只出现2个?  两个还挨着?

走一回

为什么要颠倒，直接文本替换不行吗？

b0y

要是就这3个名字 那无非就8种可能  直接子文本替换一遍

月下美孤

用代数法，假设三个姓名的位置关系：张三>李四>王五；对应数字位置代数关系 '1'>'2'>'3';那么将原文“一二三李四张三四五六七八九十”替换为“一二三'2''1'四五六七八九十;通过将代数排序然后复原成原文本就可以实现你的目的

承易

你这是干啥用的 如此绕

我的yyy123

文本有没有规律，有规律可以用替换批量替换掉。

我的yyy123

可以用文本替换