每行转圈移位

lianzhong

求助内容：B框是数字串，每一行理解成首尾相连的环，根据A框对应数，让这个环转圈，求出移位后的数字串。
我采用办法是先分割每行数字串，取出左边数字，再颠倒数字，再分割两个文本，合并，完成一行，然后循环，结果速度极慢，求助各位专业老师写个高效的，先谢了顺祝新年快乐！。
移位原理解释：下图例子
第1行移位3次，把前3个数字取出按序排到后面，
第2行移位1次，把前1个数字取出按序排到后面，
第3行移位10次，共10个数字串，循环移动10次等于原数串不变，
第4行移位9次，把前9个数字取出按序排到后面，

7ian

B=取文本右边(B,10-A)+取文本左边(B,A)




补充内容 (2024-2-6 14:03):
如果B长度不确定就改成：B=取文本右边(B,取文本长度(B)-A)+取文本左边(B,A)

b0y

首尾相连 0后面不应该是123吗  为什么是321

lianzhong

b0y 发表于 2024-2-6 12:10
首尾相连 0后面不应该是123吗  为什么是321

老师你说的对！我例子图贴错了，0后面是123，循环转圈的。

b0y

lianzhong 发表于 2024-2-6 12:47
老师你说的对！我例子图贴错了，0后面是123，循环转圈的。

其实就是取文本左边 a是几就取几个  0取全部  

b0y

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
str	文本型

str ＝ “1234567890”
调试输出 (test (str, 3))
调试输出 (test (str, 1))
调试输出 (test (str, 0))
调试输出 (test (str, 9))
' * “123”
' * “1”
' * “1234567890”
' * “123456789”

子程序名	返回值类型	公开	备 注
test	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
num	整数型

如果真 (num ＝ 0)
返回 (str)
返回 (取文本左边 (str, num))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 str, 文本型<br /> <br /> str ＝ “1234567890”<br /> 调试输出 (test (str, 3))<br /> 调试输出 (test (str, 1))<br /> 调试输出 (test (str, 0))<br /> 调试输出 (test (str, 9))<br /> <br /> ' * “123”<br /> ' * “1”<br /> ' * “1234567890”<br /> ' * “123456789”<br /> <br /> <br /> .子程序 test, 文本型<br /> .参数 str, 文本型<br /> .参数 num, 整数型<br /> <br /> .如果真 (num ＝ 0)<br />     返回 (str)<br /> .如果真结束<br /> 返回 (取文本左边 (str, num))

人善帝王心

  

计算数值 (3)
计算数值 (1)
计算数值 (0)
计算数值 (9)
* “4 5 6 7 8 9 0 1 2 3”
* “2 3 4 5 6 7 8 9 0 1”
* “1 2 3 4 5 6 7 8 9 0”
* “0 1 2 3 4 5 6 7 8 9”
返回 (0)

子程序名	返回值类型	公开	备 注
计算数值	文本型
参数名	类 型	参考	可空	数组	备 注
A	整数型

变量名	类 型	静态	数组	备 注
o	整数型
int	整数型
str	文本型

int ＝ A
计次循环首 (10, o)
int ＝ int ＋ 1
如果真 (int ＝ 10)
int ＝ 0
str ＝ str ＋ 到文本 (int)
如果真 (o ≠ 10)
str ＝ str ＋ “ ”

计次循环尾 ()
调试输出 (str)
返回 (str)

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

.版本 2<br /> .支持库 spec<br /> <br /> 计算数值 (3)<br /> 计算数值 (1)<br /> 计算数值 (0)<br /> 计算数值 (9)<br /> * “4 5 6 7 8 9 0 1 2 3”<br /> * “2 3 4 5 6 7 8 9 0 1”<br /> * “1 2 3 4 5 6 7 8 9 0”<br /> * “0 1 2 3 4 5 6 7 8 9”<br /> 返回 (0)<br /> <br /> .子程序 计算数值, 文本型<br /> .参数 A, 整数型<br /> .局部变量 o, 整数型<br /> .局部变量 int, 整数型<br /> .局部变量 str, 文本型<br /> <br /> int ＝ A<br /> .计次循环首 (10, o)<br />     int ＝ int ＋ 1<br />     .如果真 (int ＝ 10)<br />         int ＝ 0<br />     .如果真结束<br />     str ＝ str ＋ 到文本 (int)<br />     .如果真 (o ≠ 10)<br />         str ＝ str ＋ “ ”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (str)<br /> 返回 (str)

7ian

B=取文本右边(B,10-A)+取文本左边(B,A)

Suky

取文本左边（）
取文本右边（）
如果需要倒转    把取左边的结果倒转
然后倒转结果+取右边结果

chenyucheng

每行转圈移位.e (8.49 KB, 下载次数: 1)

2024-2-6 22:19 上传

点击文件名下载附件
这是不是你想要的效果？