超级列表框处理数据

玖伍

如何把复制的数据在超级列表框粘贴  指教下   从TXT文本复制的  直接在超级列表框粘贴

是可可吖

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
内容	文本型
a	整数型
wb	文本型		0
i	整数型

内容 ＝ 剪辑板_取文本 ()
wb ＝ 分割文本 (内容, #换行符, )
计次循环首 (取数组成员数 (wb), i)
a ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (a, 0, wb [i])
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 内容, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 wb, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 内容 ＝ 剪辑板_取文本 ()<br /> wb ＝ 分割文本 (内容, #换行符, )<br /> .计次循环首 (取数组成员数 (wb), i)<br />     a ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (a, 0, wb <i>)<br /> .计次循环尾 ()

多个插入，那就这样

冯古屋

从置剪辑板里面读取内容，根据规律重新插到超级列表框中？

算法艺术家

  

超级列表框_导入数据 (剪辑板_取文本 (), 超级列表框1,列隔符)

子程序名	返回值类型	公开	备 注
超级列表框_导入数据	整数型		将文本导入到超级列表框、行隔符为换行符，返回最后索引  空文本返回-1
参数名	类 型	参考	可空	数组	备 注
文本数据	文本型				预导入列表的文本数据、
超级列表框	超级列表框
列隔符	文本型				列与列的分隔符号 只导入一列 不需要填写
是否保留原先数据	逻辑型				默认不保留

变量名	类 型	静态	数组	备 注
行组	文本型		0
列组	文本型		0
i	整数型
索引	整数型
n	整数型

如果真 (文本数据 ＝ “”)
返回 (-1)

行组 ＝ 分割文本 (文本数据, #换行符, )
超级列表框.可视 ＝ 假
超级列表框.禁止重画 ()
如果真 (是否保留原先数据 ＝ 假)
超级列表框.全部删除 ()

计次循环首 (取数组成员数 (行组), i)
列组 ＝ 分割文本 (行组 [i], 列隔符, )
索引 ＝ 超级列表框.插入表项 (, , , , , )
计次循环首 (取数组成员数 (列组), n)
超级列表框.置标题 (索引, n － 1, 列组 [n])
计次循环尾 ()
计次循环尾 ()
超级列表框.允许重画 ()
超级列表框.可视 ＝ 真
返回 (索引)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> 超级列表框_导入数据 (剪辑板_取文本 (), 超级列表框1,列隔符)<br /> <br /> .子程序 超级列表框_导入数据, 整数型, 公开, 将文本导入到超级列表框、行隔符为换行符，返回最后索引  空文本返回-1<br /> .参数 文本数据, 文本型, , 预导入列表的文本数据、<br /> .参数 超级列表框, 超级列表框, 参考<br /> .参数 列隔符, 文本型, 可空,  列与列的分隔符号 只导入一列 不需要填写<br /> .参数 是否保留原先数据, 逻辑型, 可空, 默认不保留<br /> .局部变量 行组, 文本型, , "0"<br /> .局部变量 列组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 n, 整数型<br /> <br /> <br /> .如果真 (文本数据 ＝ “”)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> 行组 ＝ 分割文本 (文本数据, #换行符, )<br /> 超级列表框.可视 ＝ 假<br /> 超级列表框.禁止重画 ()<br /> <br /> .如果真 (是否保留原先数据 ＝ 假)<br />     超级列表框.全部删除 ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (行组), i)<br />     列组 ＝ 分割文本 (行组 <i>, 列隔符, )<br />     索引 ＝ 超级列表框.插入表项 (, , , , , )<br />     .计次循环首 (取数组成员数 (列组), n)<br />         超级列表框.置标题 (索引, n － 1, 列组 [n])<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 超级列表框.允许重画 ()<br /> 超级列表框.可视 ＝ 真<br /> 返回 (索引)

是可可吖

直接粘贴是不行的，可以插入到超级列表框里

补充内容 (2025-3-3 21:21):
复制的格式是什么样的？要插入几列？

算法艺术家

算法艺术家 发表于 2025-3-3 21:17

  

[/quote]
[e=3].版本 2

子程序名	返回值类型	公开	备 注
_超级列表框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (功能键状态 ＝ #Ctrl键状态 )
如果真 (键代码 ＝ #V键 )
代码放这
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext</blockquote></div><br /> [e=3].版本 2<br /> <br /> .子程序 _超级列表框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (功能键状态 ＝ #Ctrl键状态)<br />     .如果真 (键代码 ＝ #V键)<br />         代码放这<br />         返回 (假)

玖伍

是可可吖 发表于 2025-3-3 21:20
直接粘贴是不行的，可以插入到超级列表框里

补充内容 (2025-3-3 21:21):

一行一个   多行插入

玖伍

冯古屋 发表于 2025-3-3 21:11
从置剪辑板里面读取内容，根据规律重新插到超级列表框中？

那不用  只要复制之后  粘贴到超级列表框里面就行

是可可吖

算法艺术家 发表于 2025-3-3 21:24
[e=3].版本 2

.子程序 _超级列表框1_按下某键, 逻辑型

这个方法确实不错

是可可吖

test111.e (1 MB, 下载次数: 2)

2025-3-3 21:26 上传

点击文件名下载附件


这个例子可以参考一下

可以配合楼上大佬的快捷键操作