易语言字母数字递增

Mr、Darren

已自行解决

  

子程序名	返回值类型	公开	备 注
自动递增	文本型
参数名	类 型	参考	可空	数组	备 注
data	文本型

变量名	类 型	静态	数组	备 注
arr	文本型		0
i	整数型
temp	文本型
z	整数型
index	整数型
ss	文本型

文本_逐字分割 (data, arr)
index ＝ 取数组成员数 (arr)
判断循环首 (index ≥ 1)
判断 (arr [index] ＝ “9”)  ' 如果为9转为a
arr [index] ＝ “a”
跳出循环 ()
判断 (arr [index] ＝ “z”)  ' 如果为z转为0
arr [index] ＝ “0”
index ＝ index － 1
ss ＝ 取索引 (arr [index])  ' 递增1
arr [index] ＝ ss
跳出循环 ()

判断循环尾 ()
计次循环首 (取数组成员数 (arr), z)
temp ＝ temp ＋ arr [z]
计次循环尾 ()
返回 (temp)

子程序名	返回值类型	公开	备 注
取索引	文本型
参数名	类 型	参考	可空	数组	备 注
字母	文本型

变量名	类 型	静态	数组	备 注
temp	文本型
aa	文本型		0
i	整数型

temp ＝ “0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z”
aa ＝ 分割文本 (temp, “,”, )
计次循环首 (取数组成员数 (aa), i)
如果真 (aa [i] ＝ 字母)
返回 (aa [i ＋ 1])

计次循环尾 ()
返回 (“0”)

.版本 2<br /> <br /> .子程序 自动递增, 文本型<br /> .参数 data, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 文本型<br /> .局部变量 z, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 ss, 文本型<br /> <br /> 文本_逐字分割 (data, arr)<br /> index ＝ 取数组成员数 (arr)<br /> .判断循环首 (index ≥ 1)<br />     .判断开始 (arr [index] ＝ “9”)  ' 如果为9转为a<br />         arr [index] ＝ “a”<br />         跳出循环 ()<br />     .判断 (arr [index] ＝ “z”)  ' 如果为z转为0<br />         arr [index] ＝ “0”<br />         index ＝ index － 1<br />     .默认<br />         ss ＝ 取索引 (arr [index])  ' 递增1<br />         arr [index] ＝ ss<br />         跳出循环 ()<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (arr), z)<br />     temp ＝ temp ＋ arr [z]<br /> .计次循环尾 ()<br /> 返回 (temp)<br /> <br /> .子程序 取索引, 文本型<br /> .参数 字母, 文本型<br /> .局部变量 temp, 文本型<br /> .局部变量 aa, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> temp ＝ “0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z”<br /> aa ＝ 分割文本 (temp, “,”, )<br /> .计次循环首 (取数组成员数 (aa), i)<br />     .如果真 (aa <i> ＝ 字母)<br />         返回 (aa [i ＋ 1])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“0”)