写一个简单的尾部添加头部删除的例子

akzpwy

有随机的10个或者100个数字，或者更多

比如   1-2-3-4-5-6-7-8

当我点击按钮后再文本的尾部添加9，头部删除1    变成了    2-3-4-5-6-7-8-9
当我点击按钮后再文本的尾部添加10，头部删除2    变成了    3-4-5-6-7-8-9-10

在后面添加几个，就在前面删除几个。

比如   张三-李四-王五

当我点击按钮后再文本的尾部添加李六，头部删除张三    变成了     李四-王五-李六

Ruang

  

子程序名	返回值类型	公开	备 注
功能_删首补尾_添加单次	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
添加文本	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
计次	整数型
返回文本	文本型

如果真 (是否为空 (添加文本))  ' 如果添加内容为空则返回原文本
返回 (文本)
文本数组 ＝ 分割文本 (文本, “-”, )
删除成员 (文本数组, 1, 1)
加入成员 (文本数组, 添加文本)
计次循环首 (取数组成员数 (文本数组), 计次)
如果真 (取数组成员数 (文本数组) ＝ 计次)
返回文本 ＝ 返回文本 ＋ 文本数组 [计次]
到循环尾 ()
返回文本 ＝ 返回文本 ＋ 文本数组 [计次] ＋ “-”
计次循环尾 ()
返回 (返回文本)

子程序名	返回值类型	公开	备 注
功能_删首补尾_添加多次	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
添加文本	文本型				以","为分隔符组成

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
增加数组	文本型		0
计次	整数型
返回文本	文本型
增加数量	整数型

如果真 (是否为空 (添加文本))  ' 如果添加内容为空则返回原文本
返回 (文本)
文本数组 ＝ 分割文本 (文本, “-”, )
增加数组 ＝ 分割文本 (添加文本, “,”, )
增加数量 ＝ 取数组成员数 (增加数组)
如果真 (取数组成员数 (文本数组) ＜ 增加数量)  ' 超出源文本数量，直接返回原文本
返回 (文本)
删除成员 (文本数组, 1, 增加数量)
计次循环首 (取数组成员数 (添加文本), 计次)
加入成员 (文本数组, 增加数组 [计次])
计次循环尾 ()
计次循环首 (取数组成员数 (文本数组), 计次)
如果真 (取数组成员数 (文本数组) ＝ 计次)
返回文本 ＝ 返回文本 ＋ 文本数组 [计次]
到循环尾 ()
返回文本 ＝ 返回文本 ＋ 文本数组 [计次] ＋ “-”
计次循环尾 ()
返回 (返回文本)

.版本 2<br /> <br /> .子程序 功能_删首补尾_添加单次, 文本型<br /> .参数 文本, 文本型<br /> .参数 添加文本, 文本型, 可空<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 返回文本, 文本型<br /> <br /> .如果真 (是否为空 (添加文本))  ' 如果添加内容为空则返回原文本<br />     返回 (文本)<br /> .如果真结束<br /> 文本数组 ＝ 分割文本 (文本, “-”, )<br /> 删除成员 (文本数组, 1, 1)<br /> 加入成员 (文本数组, 添加文本)<br /> .计次循环首 (取数组成员数 (文本数组), 计次)<br />     .如果真 (取数组成员数 (文本数组) ＝ 计次)<br />         返回文本 ＝ 返回文本 ＋ 文本数组 [计次]<br />         到循环尾 ()<br />     .如果真结束<br />     返回文本 ＝ 返回文本 ＋ 文本数组 [计次] ＋ “-”<br /> .计次循环尾 ()<br /> 返回 (返回文本)<br /> <br /> <br /> .子程序 功能_删首补尾_添加多次, 文本型<br /> .参数 文本, 文本型<br /> .参数 添加文本, 文本型, 可空, 以","为分隔符组成<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 增加数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 增加数量, 整数型<br /> <br /> .如果真 (是否为空 (添加文本))  ' 如果添加内容为空则返回原文本<br />     返回 (文本)<br /> .如果真结束<br /> 文本数组 ＝ 分割文本 (文本, “-”, )<br /> 增加数组 ＝ 分割文本 (添加文本, “,”, )<br /> 增加数量 ＝ 取数组成员数 (增加数组)<br /> .如果真 (取数组成员数 (文本数组) ＜ 增加数量)  ' 超出源文本数量，直接返回原文本<br />     返回 (文本)<br /> .如果真结束<br /> 删除成员 (文本数组, 1, 增加数量)<br /> .计次循环首 (取数组成员数 (添加文本), 计次)<br />     加入成员 (文本数组, 增加数组 [计次])<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (文本数组), 计次)<br />     .如果真 (取数组成员数 (文本数组) ＝ 计次)<br />         返回文本 ＝ 返回文本 ＋ 文本数组 [计次]<br />         到循环尾 ()<br />     .如果真结束<br />     返回文本 ＝ 返回文本 ＋ 文本数组 [计次] ＋ “-”<br /> .计次循环尾 ()<br /> 返回 (返回文本)

Ruang

  

子程序名	返回值类型	公开	备 注
功能_删首补尾	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
添加文本	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
计次	整数型
返回文本	文本型

如果真 (是否为空 (添加文本))
返回 (文本)
文本数组 ＝ 分割文本 (文本, “-”, )
删除成员 (文本数组, 1, 1)
加入成员 (文本数组, 添加文本)
计次循环首 (取数组成员数 (文本数组), 计次)
如果真 (取数组成员数 (文本数组) ＝ 计次)
返回文本 ＝ 返回文本 ＋ 文本数组 [计次]
到循环尾 ()
返回文本 ＝ 返回文本 ＋ 文本数组 [计次] ＋ “-”
计次循环尾 ()
返回 (返回文本)

.版本 2<br /> <br /> .子程序 功能_删首补尾, 文本型<br /> .参数 文本, 文本型<br /> .参数 添加文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 返回文本, 文本型<br /> <br /> .如果真 (是否为空 (添加文本))<br />     返回 (文本)<br /> .如果真结束<br /> 文本数组 ＝ 分割文本 (文本, “-”, )<br /> 删除成员 (文本数组, 1, 1)<br /> 加入成员 (文本数组, 添加文本)<br /> .计次循环首 (取数组成员数 (文本数组), 计次)<br />     .如果真 (取数组成员数 (文本数组) ＝ 计次)<br />         返回文本 ＝ 返回文本 ＋ 文本数组 [计次]<br />         到循环尾 ()<br />     .如果真结束<br />     返回文本 ＝ 返回文本 ＋ 文本数组 [计次] ＋ “-”<br /> .计次循环尾 ()<br /> 返回 (返回文本)

a11762931

.版本 2


.子程序 子程序1
.局部变量 arr, 整数型, , "0"
.局部变量 i, 整数型


.计次循环首 (10, i)
    加入成员 (arr, 取随机数 (1, 100))
.计次循环尾 ()


加入成员 (arr, 取随机数 (1, 100))
删除成员 (arr, 1, 1)

akzpwy

Ruang 发表于 2025-6-5 18:30
[e=3].版本 2

.子程序 功能_删首补尾_添加单次, 文本型

子程序    功能_删首补尾_添加多次
中的
取数组成员数 (添加文本)
改为
取数组成员数 (增加数组)