超级列表框把表头转成常量文本然后复制粘贴

鬼炙

  

子程序名	返回值类型	公开	备 注
超级列表框表头转常量	文本型
参数名	类 型	参考	可空	数组	备 注
列表	超级列表框

变量名	类 型	静态	数组	备 注
常量文本	文本型
i	整数型
常量名	文本型

常量文本 ＝ “”
变量循环首 (0, 列表.取列数 () － 1, 1, i)
' 生成常量名：移除空格，用下划线连接
常量名 ＝ 取组件名称 (列表) ＋ “_” ＋ 列表.取列标题 (i)
常量名 ＝ 子文本替换 (常量名, “ ”, “_”, , , 真)  ' 替换空格
常量名 ＝ 子文本替换 (常量名, “（”, “_”, , , 真)  ' 替换中文括号
常量名 ＝ 子文本替换 (常量名, “）”, “_”, , , 真)
常量名 ＝ 子文本替换 (常量名, “(”, “_”, , , 真)  ' 替换英文括号
常量名 ＝ 子文本替换 (常量名, “)”, “_”, , , 真)
常量名 ＝ 子文本替换 (常量名, “-”, “_”, , , 真)  ' 替换连字符
常量名 ＝ 子文本替换 (常量名, “，”, “_”, , , 真)  ' 替换中文逗号
常量名 ＝ 子文本替换 (常量名, “、”, “_”, , , 真)  ' 替换中文顿号
' 避免连续下划线
判断循环首 (寻找文本 (常量名, “__”, , 假) ≠ -1)
常量名 ＝ 子文本替换 (常量名, “__”, “_”, , , 真)
判断循环尾 ()
' 移除首尾下划线
如果真 (取文本左边 (常量名, 1) ＝ “_”)
常量名 ＝ 取文本右边 (常量名, 取文本长度 (常量名) － 1)

如果真 (取文本右边 (常量名, 1) ＝ “_”)
常量名 ＝ 取文本左边 (常量名, 取文本长度 (常量名) － 1)

' 添加常量定义
常量文本 ＝ 常量文本 ＋ 选择 (i ＝ 0, “”, #换行符 ) ＋ “.常量 ” ＋ 常量名 ＋ “, ” ＋ #引号 ＋ 到文本 (i) ＋ #引号 ＋ “, ” ＋ #引号 ＋ 列表.取列标题 (i) ＋ #引号
变量循环尾 ()
调试输出 (常量文本)
返回 (常量文本)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> <br /> .支持库 iext<br /> <br /> .支持库 spec<br /> <br /> <br /> <br /> .子程序 超级列表框表头转常量, 文本型<br /> <br /> .参数 列表, 超级列表框<br /> <br /> .局部变量 常量文本, 文本型<br /> <br /> .局部变量 i, 整数型<br /> <br /> .局部变量 常量名, 文本型<br /> <br /> <br /> <br /> 常量文本 ＝ “”<br /> <br /> <br /> <br /> .变量循环首 (0, 列表.取列数 () － 1, 1, i)<br /> <br />     ' 生成常量名：移除空格，用下划线连接<br /> <br /> <br /> <br /> <br /> <br />     常量名 ＝ 取组件名称 (列表) ＋ “_” ＋ 列表.取列标题 (i)<br /> <br />     常量名 ＝ 子文本替换 (常量名, “ ”, “_”, , , 真)  ' 替换空格<br /> <br />     常量名 ＝ 子文本替换 (常量名, “（”, “_”, , , 真)  ' 替换中文括号<br /> <br />     常量名 ＝ 子文本替换 (常量名, “）”, “_”, , , 真)<br /> <br />     常量名 ＝ 子文本替换 (常量名, “(”, “_”, , , 真)  ' 替换英文括号<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 />     .如果真 (取文本左边 (常量名, 1) ＝ “_”)<br /> <br />         常量名 ＝ 取文本右边 (常量名, 取文本长度 (常量名) － 1)<br /> <br />     .如果真结束<br /> <br />     .如果真 (取文本右边 (常量名, 1) ＝ “_”)<br /> <br />         常量名 ＝ 取文本左边 (常量名, 取文本长度 (常量名) － 1)<br /> <br />     .如果真结束<br /> <br /> <br /> <br />     ' 添加常量定义<br /> <br />     常量文本 ＝ 常量文本 ＋ 选择 (i ＝ 0, “”, #换行符) ＋ “.常量 ” ＋ 常量名 ＋ “, ” ＋ #引号 ＋ 到文本 (i) ＋ #引号 ＋ “, ” ＋ #引号 ＋ 列表.取列标题 (i) ＋ #引号<br /> <br /> <br /> <br /> .变量循环尾 ()<br /> <br /> 调试输出 (常量文本)<br /> <br /> <br /> <br /> <br /> <br /> 返回 (常量文本)

我以前都是手动输，今天也算是脑子开窍了，，，哎我以前怎么就没想到呢~~~

764889167

主要针对 物品绘制较多的游戏进行分类可以云更新
方便 快捷 编辑

鬼炙

shanyukun 发表于 2026-2-1 11:06
说一下使用场景吧

如果你列表框用的是官方最新的就自带这个了不需要，如果是原始版本用这个代码很方便的把列号转成常量，比如你在开发过程中列号变更了是不是只需要更改常量就可以了 ？

kyo9766

简单实用，感谢分享

wh1234567

感谢分享

static101

好像确实有点用，应该做成插件

何浩文

支持开源~！感谢分享

卡卡1111

支持开源~！感谢分享

1184798949

感谢分享

胖子葛格

感谢大神分享~！