复制超级列表框选中行的整行内容到剪辑板

wh1234567

超级列表框有很多行和列，只想复制选中行的整行内容到剪辑板（包含列表头名称），求例子

LEOONL

  

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

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

计次循环首 (超级列表框1.取列数 (), n)
如果 (n ＝ 超级列表框1.取列数 ())
文本 ＝ 文本 ＋ 超级列表框1.取列标题 (n － 1) ＋ #换行符
文本 ＝ 文本 ＋ 超级列表框1.取列标题 (n － 1) ＋ “----”

计次循环尾 ()
计次循环首 (超级列表框1.取列数 (), n)
如果 (n ＝ 超级列表框1.取列数 ())
文本 ＝ 文本 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, n － 1)
文本 ＝ 文本 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, n － 1) ＋ “----”

计次循环尾 ()
调试输出 (文本)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 文本, 文本型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (超级列表框1.取列数 (), n)<br />     .如果 (n ＝ 超级列表框1.取列数 ())<br />         文本 ＝ 文本 ＋ 超级列表框1.取列标题 (n － 1) ＋ #换行符<br />     .否则<br />         文本 ＝ 文本 ＋ 超级列表框1.取列标题 (n － 1) ＋ “----”<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框1.取列数 (), n)<br />     .如果 (n ＝ 超级列表框1.取列数 ())<br />         文本 ＝ 文本 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, n － 1)<br />     .否则<br />         文本 ＝ 文本 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, n － 1) ＋ “----”<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (文本)

LEOONL

组合成的格式结果什么样的，给个结果例子看看

Huaz

超级列表框_数据.取标题 (超级列表框_数据.现行选中项, 1) ＋ “-” ＋ 超级列表框_数据.取标题 (超级列表框_数据.现行选中项, 2) 想复制多少组合多少

wh1234567

LEOONL 发表于 2024-10-18 14:57
组合成的格式结果什么样的，给个结果例子看看

列名称为一行，每个列名称用----分割开来
列内容为另外一行，每个列内容用----分割开来
效果例如：
第一列名称----第二列名称---以此类推
第一列内容----第二列内容----以此类推

千年

  

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

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

a ＝ 超级列表框1.现行选中项
计次循环首 (超级列表框1.取列数 (), i)
s ＝ s ＋ 超级列表框1.取标题 (a, i － 1) ＋ “||”
计次循环尾 ()
调试输出 (s)
置剪辑板文本 (s)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 s, 文本型<br /> <br /> a ＝ 超级列表框1.现行选中项<br /> .计次循环首 (超级列表框1.取列数 (), i)<br />     s ＝ s ＋ 超级列表框1.取标题 (a, i － 1) ＋ “||”<br /> .计次循环尾 ()<br /> 调试输出 (s)<br /> 置剪辑板文本 (s)

就这样

Huaz

wh1234567 发表于 2024-10-18 15:04
列名称为一行，每个列名称用----分割开来
列内容为另外一行，每个列内容用----分割开来
效果例如：

超级列表框_数据.取标题 (超级列表框_数据.现行选中项, 1) ＋ “-” ＋ 超级列表框_数据.取标题 (超级列表框_数据.现行选中项, 2) 这个不就行了。。。 自己根据需求组合啊

wh1234567

Huaz 发表于 2024-10-18 15:01
超级列表框_数据.取标题 (超级列表框_数据.现行选中项, 1) ＋ “-” ＋ 超级列表框_数据.取标题 (超级列表 ...

这种列数多大话写代码得写好多，呵呵

LEOONL

wh1234567 发表于 2024-10-18 15:04
列名称为一行，每个列名称用----分割开来
列内容为另外一行，每个列内容用----分割开来
效果例如：

  

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

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

计次循环首 (超级列表框1.取列数 (), n)
文本 ＝ 文本 ＋ 超级列表框1.取列标题 (n － 1) ＋ “ ”
计次循环尾 ()
文本 ＝ 子文本替换 (删尾空 (文本), “ ”, “----”, , , 真) ＋ #换行符
计次循环首 (超级列表框1.取列数 (), n)
文本 ＝ 文本 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, n － 1) ＋ “ ”
计次循环尾 ()
文本 ＝ 子文本替换 (删尾空 (文本), “ ”, “----”, , , 真)
调试输出 (文本)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 文本, 文本型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (超级列表框1.取列数 (), n)<br />     文本 ＝ 文本 ＋ 超级列表框1.取列标题 (n － 1) ＋ “ ”<br /> .计次循环尾 ()<br /> 文本 ＝ 子文本替换 (删尾空 (文本), “ ”, “----”, , , 真) ＋ #换行符<br /> .计次循环首 (超级列表框1.取列数 (), n)<br />     文本 ＝ 文本 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, n － 1) ＋ “ ”<br /> .计次循环尾 ()<br /> 文本 ＝ 子文本替换 (删尾空 (文本), “ ”, “----”, , , 真)<br /> 调试输出 (文本)

wh1234567

LEOONL 发表于 2024-10-18 15:11
[e=0].版本 2
.支持库 iext
.支持库 spec

这2个有啥不同？