超级列表框索引

你送的花开了

这段代码怎样才能拖动导入进去后在索引0显示ID！

  

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

拖放对象1.接收文件 ＝ 真
拖放对象1.zc拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

拖放对象1.撤消拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
局_内容	文本型
局_数组	文本型		0
局_计次	整数型
局_索引	整数型

局_内容 ＝ 到文本 (读入文件 (接收到的文件路径))
局_数组 ＝ 分割文本 (局_内容, #换行符, )
计次循环首 (取数组成员数 (局_数组), 局_计次)
如果真 (局_数组 [局_计次] ≠ “”)
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_索引, 1, 局_数组 [局_计次])

计次循环尾 ()

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

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 拖放对象1.接收文件 ＝ 真<br /> 拖放对象1.zc拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> 拖放对象1.撤消拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 局_内容, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> 局_内容 ＝ 到文本 (读入文件 (接收到的文件路径))<br /> 局_数组 ＝ 分割文本 (局_内容, #换行符, )<br /> .计次循环首 (取数组成员数 (局_数组), 局_计次)<br />     .如果真 (局_数组 [局_计次] ≠ “”)<br />         局_索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (局_索引, 1, 局_数组 [局_计次])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

乱世小熊

  

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

拖放对象1.接收文件 ＝ 真
拖放对象1.zc拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

拖放对象1.撤消拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
局_内容	文本型
局_数组	文本型		0
局_计次	整数型
局_索引	整数型

局_内容 ＝ 到文本 (读入文件 (接收到的文件路径))
局_数组 ＝ 分割文本 (局_内容, #换行符, )
计次循环首 (取数组成员数 (局_数组), 局_计次)
如果真 (局_数组 [局_计次] ≠ “”)
局_索引 ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
超级列表框1.置标题 (局_索引, 1, 局_数组 [局_计次])

计次循环尾 ()

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

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 拖放对象1.接收文件 ＝ 真<br /> 拖放对象1.zc拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> 拖放对象1.撤消拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 局_内容, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> 局_内容 ＝ 到文本 (读入文件 (接收到的文件路径))<br /> 局_数组 ＝ 分割文本 (局_内容, #换行符, )<br /> .计次循环首 (取数组成员数 (局_数组), 局_计次)<br />     .如果真 (局_数组 [局_计次] ≠ “”)<br />         局_索引 ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )<br />         超级列表框1.置标题 (局_索引, 1, 局_数组 [局_计次])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2021-9-11 11:41):
超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )

suisui

计次那边减一就行了

rectdbszy

超级列表框1.置列标题 (0, “ID”)  加入到拖放对象中的超级列表框1.置标题 (局_索引, 1, 局_数组 [局_计次])前就行了

rectdbszy

  

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
局_内容	文本型
局_数组	文本型		0
局_计次	整数型
局_索引	整数型

局_内容 ＝ 到文本 (读入文件 (接收到的文件路径))
局_数组 ＝ 分割文本 (局_内容, #换行符, )
调试输出 (局_数组)
超级列表框1.置列标题 (0, “ID”)
计次循环首 (取数组成员数 (局_数组), 局_计次)
如果真 (局_数组 [局_计次] ≠ “”)
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_索引, 1, 局_数组 [局_计次])

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 局_内容, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> 局_内容 ＝ 到文本 (读入文件 (接收到的文件路径))<br /> 局_数组 ＝ 分割文本 (局_内容, #换行符, )<br /> 调试输出 (局_数组)<br /> 超级列表框1.置列标题 (0, “ID”)<br /> .计次循环首 (取数组成员数 (局_数组), 局_计次)<br />     .如果真 (局_数组 [局_计次] ≠ “”)<br />         局_索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (局_索引, 1, 局_数组 [局_计次])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

阿汤哥

超级列表框1.置标题 (局_索引, 0, 局_数组 [局_计次])

索引是从0开始的

你送的花开了

rectdbszy 发表于 2021-9-11 08:00
[e=0].版本 2
.支持库 spec
.支持库 iext

不是只显示个ID啊  是顺序12345678910这样下来

走一回

超级列表框1.置标题 (局_索引, 0, 局_数组 [局_计次])

myl620

超级列表框1.置标题 (局_索引, 1, 到文本(局_计次-1))

rectdbszy

aozi66 发表于 2021-9-11 08:29
不是只显示个ID啊  是顺序12345678910这样下来

我晕，
.版本 2
.支持库 iext

.计次循环首 (20, )
    i ＝ 超级列表框1.查找表项 (, , , )
    超级列表框1.置标题 (i, , )

.计次循环尾 ()