高级表格实现列交换，升级优化版(DeepSeek写的)

李泽勇2

  

子程序名	返回值类型	公开	备 注
高级表格调整列顺序			仅交换需要变化的列数据，提高效率
参数名	类 型	参考	可空	数组	备 注
表格组件	高级表格
顺序数组	整数型

变量名	类 型	静态	数组	备 注
当前列顺序	整数型		0
原始列顺序	整数型		0
原始表格数据	文本型		0	"0"
i	整数型
j	整数型
需要调整	逻辑型
初始列数	整数型

' ========== 初始化设置 ==========
初始列数 ＝ 表格组件.列数
如果真 (取数组成员数 (原始列顺序) ＝ 0)
重定义数组 (原始列顺序, 假, 初始列数)
重定义数组 (当前列顺序, 假, 初始列数)
计次循环首 (初始列数, i)
原始列顺序 [i] ＝ i － 1
当前列顺序 [i] ＝ i － 1
计次循环尾 ()
重定义数组 (原始表格数据, 假, 表格组件.行数, 初始列数)
计次循环首 (表格组件.行数, i)
计次循环首 (初始列数, j)
原始表格数据 [i] [j] ＝ 表格组件.取文本数据 (i － 1, j － 1)
计次循环尾 ()
计次循环尾 ()

' ========== 参数校验 ==========
如果真 (取数组成员数 (顺序数组) ≠ 初始列数)
信息框 (“顺序数组长度错误，需要” ＋ 到文本 (初始列数) ＋ “列”, 0, , )
返回 ()

计次循环首 (初始列数, i)
如果真 (顺序数组 [i] ＜ 0 或 顺序数组 [i] ≥ 初始列数)
信息框 (“第” ＋ 到文本 (i) ＋ “个元素值越界”, 0, , )
返回 ()

计次循环尾 ()
' ========== 检查调整必要性 ==========
需要调整 ＝ 假
计次循环首 (初始列数, i)
如果真 (当前列顺序 [i] ≠ 顺序数组 [i])
需要调整 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (需要调整))
返回 ()

' ========== 智能列数据交换 ==========
计次循环首 (初始列数, j)
如果真 (当前列顺序 [j] ≠ 顺序数组 [j])
' 使用原始表格数据直接定位
计次循环首 (表格组件.行数, i)
表格组件.置数据 (i － 1, j － 1, 1, 原始表格数据 [i] [顺序数组 [j] ＋ 1])
计次循环尾 ()

计次循环尾 ()
' ========== 更新列顺序记录 ==========
重定义数组 (当前列顺序, 假, 初始列数)
计次循环首 (初始列数, i)
当前列顺序 [i] ＝ 顺序数组 [i]
计次循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 高级表格调整列顺序, , , 仅交换需要变化的列数据，提高效率<br /> .参数 表格组件, 高级表格<br /> .参数 顺序数组, 整数型, 数组<br /> .局部变量 当前列顺序, 整数型, 静态, "0"<br /> .局部变量 原始列顺序, 整数型, 静态, "0"<br /> .局部变量 原始表格数据, 文本型, 静态, "0", "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 需要调整, 逻辑型<br /> .局部变量 初始列数, 整数型, 静态<br /> <br /> ' ========== 初始化设置 ==========<br /> 初始列数 ＝ 表格组件.列数<br /> <br /> .如果真 (取数组成员数 (原始列顺序) ＝ 0)<br />     重定义数组 (原始列顺序, 假, 初始列数)<br />     重定义数组 (当前列顺序, 假, 初始列数)<br />     .计次循环首 (初始列数, i)<br />         原始列顺序 <i> ＝ i － 1<br />         当前列顺序 <i> ＝ i － 1<br />     .计次循环尾 ()<br /> <br />     重定义数组 (原始表格数据, 假, 表格组件.行数, 初始列数)<br />     .计次循环首 (表格组件.行数, i)<br />         .计次循环首 (初始列数, j)<br />             原始表格数据 <i> [j] ＝ 表格组件.取文本数据 (i － 1, j － 1)<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> ' ========== 参数校验 ==========<br /> .如果真 (取数组成员数 (顺序数组) ≠ 初始列数)<br />     信息框 (“顺序数组长度错误，需要” ＋ 到文本 (初始列数) ＋ “列”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (初始列数, i)<br />     .如果真 (顺序数组 <i> ＜ 0 或 顺序数组 <i> ≥ 初始列数)<br />         信息框 (“第” ＋ 到文本 (i) ＋ “个元素值越界”, 0, , )<br />         返回 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' ========== 检查调整必要性 ==========<br /> 需要调整 ＝ 假<br /> .计次循环首 (初始列数, i)<br />     .如果真 (当前列顺序 <i> ≠ 顺序数组 <i>)<br />         需要调整 ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取反 (需要调整))<br />     返回 ()<br /> .如果真结束<br /> <br /> ' ========== 智能列数据交换 ==========<br /> <br /> <br /> .计次循环首 (初始列数, j)<br />     .如果真 (当前列顺序 [j] ≠ 顺序数组 [j])<br />         ' 使用原始表格数据直接定位<br />         .计次循环首 (表格组件.行数, i)<br />             表格组件.置数据 (i － 1, j － 1, 1, 原始表格数据 <i> [顺序数组 [j] ＋ 1])<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' ========== 更新列顺序记录 ==========<br /> 重定义数组 (当前列顺序, 假, 初始列数)<br /> .计次循环首 (初始列数, i)<br />     当前列顺序 <i> ＝ 顺序数组 <i><br /> .计次循环尾 ()

wflb826

李泽勇2 发表于 2025-4-10 17:01
你要告诉他，命令不存在，需要用什么命令替代。否则它就是一傻缺。

好吧。。。。原来如此。。。。。无语了。我每次都告诉他了，要用3.0版本的，照样写出来一堆不存在的命令

李泽勇2

wflb826 发表于 2025-4-9 17:32
那跟我提问的也差不多，但是每次高级表格，给我写出来的，都有很多根本不存在的命令，复制出来也没法用 ...

你要告诉他，命令不存在，需要用什么命令替代。否则它就是一傻缺。

wflb826

李泽勇2 发表于 2025-4-9 14:16
”写一个易语言超级列表框去重复表项的子程序“
我一般是这样问的，同时把深度思考与网络搜索打开。得到 ...

那跟我提问的也差不多，但是每次高级表格，给我写出来的，都有很多根本不存在的命令，复制出来也没法用

李泽勇2

wflb826 发表于 2025-4-9 11:22
提示词能不能发一下学习一下

”写一个易语言超级列表框去重复表项的子程序“
我一般是这样问的，同时把深度思考与网络搜索打开。得到的答案会更精准。

wflb826

提示词能不能发一下学习一下

蓝河笑月

感谢分享 很给力~

ctry78985

感谢分享

please

感谢分享，支持开源！！！

查过

下个学习一下