生成Excel字母列名

j4ker

Excel的列拉到后面，可以看到会是ZZ、AAA、AAB、AAC、.....、BAA、BAB的列名。
为了实现这个规律，锻炼下头脑，专门挑战了下自己（你们也可以尝试自己实现），感觉算法这种东西确实挺烧脑的，我实现这个代码，花了一个小时。
最终如图所示，成功实现了，附源码在下方。

EXCEL,CJL列是2300

易语言输出结果

  

子程序名	返回值类型	公开	备 注
生成Excel字母列名	文本型
参数名	类 型	参考	可空	数组	备 注
参_个数	整数型

变量名	类 型	静态	数组	备 注
prefix	文本型
sportLetter	文本型
letter	文本型
fullText	文本型
fullTextLen	整数型
pos	整数型
pos2	整数型
resultArr	文本型		0
result	文本型

result ＝ “”
' 先判断上一次字符是不是Z
' 若是Z，将它与前缀字符拼接在一起组成一个完整字符
' 从后面依次对这个完整字符，判断若是Z，则变成A，判断若不是A，则直接结束循环。若到最前面也是Z的话，则全部替换成A后，前缀=这个完整字符。然后运动字符设为A。
prefix ＝ “”
sportLetter ＝ “A”
计次循环首 (参_个数, pos)
如果真 (取代码 (sportLetter, ) － 1 ＝ 取代码 (“Z”, ))
fullText ＝ prefix ＋ 字符 (取代码 (sportLetter, ) － 1)
fullTextLen ＝ 取文本长度 (fullText)
pos2 ＝ fullTextLen
判断循环首 (pos2 ＞ 0)
letter ＝ 取文本中间 (fullText, pos2, 1)
如果 (letter ＝ “Z”)
fullText ＝ 子文本替换 (fullText, letter, “A”, pos2, 1, 真)
fullText ＝ 子文本替换 (fullText, letter, 字符 (取代码 (letter, ) ＋ 1), pos2, 1, 真)
跳出循环 ()
pos2 ＝ pos2 － 1
判断循环尾 ()
如果 (pos2 ＝ 0)
prefix ＝ fullText
prefix ＝ 取文本中间 (fullText, 1, fullTextLen － 1)
sportLetter ＝ “A”

加入成员 (resultArr, prefix ＋ sportLetter)
调试输出 (pos, prefix ＋ sportLetter)
sportLetter ＝ 字符 (取代码 (sportLetter, ) ＋ 1)
计次循环尾 ()
result ＝ 数组_合并 (resultArr, “,”)
返回 (result)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 生成Excel字母列名, 文本型<br /> .参数 参_个数, 整数型<br /> .局部变量 prefix, 文本型<br /> .局部变量 sportLetter, 文本型<br /> .局部变量 letter, 文本型<br /> .局部变量 fullText, 文本型<br /> .局部变量 fullTextLen, 整数型<br /> .局部变量 pos, 整数型<br /> .局部变量 pos2, 整数型<br /> .局部变量 resultArr, 文本型, , "0"<br /> .局部变量 result, 文本型<br /> <br /> result ＝ “”<br /> ' 先判断上一次字符是不是Z<br /> ' 若是Z，将它与前缀字符拼接在一起组成一个完整字符<br /> ' 从后面依次对这个完整字符，判断若是Z，则变成A，判断若不是A，则直接结束循环。若到最前面也是Z的话，则全部替换成A后，前缀=这个完整字符。然后运动字符设为A。<br /> prefix ＝ “”<br /> sportLetter ＝ “A”<br /> .计次循环首 (参_个数, pos)<br />     .如果真 (取代码 (sportLetter, ) － 1 ＝ 取代码 (“Z”, ))<br />         fullText ＝ prefix ＋ 字符 (取代码 (sportLetter, ) － 1)<br />         fullTextLen ＝ 取文本长度 (fullText)<br />         pos2 ＝ fullTextLen<br />         .判断循环首 (pos2 ＞ 0)<br />             letter ＝ 取文本中间 (fullText, pos2, 1)<br />             .如果 (letter ＝ “Z”)<br />                 fullText ＝ 子文本替换 (fullText, letter, “A”, pos2, 1, 真)<br />             .否则<br />                 fullText ＝ 子文本替换 (fullText, letter, 字符 (取代码 (letter, ) ＋ 1), pos2, 1, 真)<br />                 跳出循环 ()<br />             .如果结束<br />             pos2 ＝ pos2 － 1<br />         .判断循环尾 ()<br />         .如果 (pos2 ＝ 0)<br />             prefix ＝ fullText<br />         .否则<br />             prefix ＝ 取文本中间 (fullText, 1, fullTextLen － 1)<br />         .如果结束<br />         sportLetter ＝ “A”<br />     .如果真结束<br /> <br />     加入成员 (resultArr, prefix ＋ sportLetter)<br />     调试输出 (pos, prefix ＋ sportLetter)<br />     sportLetter ＝ 字符 (取代码 (sportLetter, ) ＋ 1)<br /> .计次循环尾 ()<br /> result ＝ 数组_合并 (resultArr, “,”)<br /> 返回 (result)

夏亿

感谢分享

ZHuanR

新技能已get√，真是太棒了！

花间一壶酒

  

子程序名	返回值类型	公开	备 注
excel列号转字母	文本型
参数名	类 型	参考	可空	数组	备 注
列号	整数型

变量名	类 型	静态	数组	备 注
返回值	文本型
索引	整数型

索引 ＝ 列号 － 1  ' 以0为基
判断循环首 (索引 ≥ 0)
返回值 ＝ 字符 (65 ＋ 索引 ％ 26) ＋ 返回值
索引 ＝ 索引 ＼ 26 － 1
判断循环尾 ()
返回 (返回值)

子程序名	返回值类型	公开	备 注
excel字母转列号	整数型
参数名	类 型	参考	可空	数组	备 注
字母	文本型

变量名	类 型	静态	数组	备 注
返回值	整数型
字母字节集	字节集
i	整数型
当前基数	整数型

字母字节集 ＝ 到字节集 (到大写 (删首尾空 (字母)))
当前基数 ＝ 1
变量循环首 (取字节集长度 (字母字节集), 1, -1, i)
返回值 ＝ 返回值 ��� (字母字节集 [i] － 64) × 当前基数
当前基数 ＝ 当前基数 × 26
变量循环尾 ()
返回 (返回值)

.版本 2<br /> <br /> .子程序 excel列号转字母, 文本型<br /> .参数 列号, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> 索引 ＝ 列号 － 1  ' 以0为基<br /> .判断循环首 (索引 ≥ 0)<br />     返回值 ＝ 字符 (65 ＋ 索引 ％ 26) ＋ 返回值<br />     索引 ＝ 索引 ＼ 26 － 1<br /> .判断循环尾 ()<br /> 返回 (返回值)<br /> <br /> .子程序 excel字母转列号, 整数型<br /> .参数 字母, 文本型<br /> .局部变量 返回值, 整数型<br /> .局部变量 字母字节集, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 当前基数, 整数型<br /> <br /> 字母字节集 ＝ 到字节集 (到大写 (删首尾空 (字母)))<br /> 当前基数 ＝ 1<br /> .变量循环首 (取字节集长度 (字母字节集), 1, -1, i)<br />     返回值 ＝ 返回值 ＋ (字母字节集 <i> － 64) × 当前基数<br />     当前基数 ＝ 当前基数 × 26<br /> .变量循环尾 ()<br /> 返回 (返回值)

这样会不会更简单一点

wuqingg

其实~~豆包就可以实现，AI现在好厉害的

花小旭

支持支持支持支持

菠菜521

感谢分享

皮皮君

本脚本最开始是在TG公益的(说是公益其实源码加了七八层加密 不过被我破J了) 现在送给大家 需要的自取

沐白22

感谢分享

一指温柔

感谢分享