请问拖入文本到超级列表框第9行开始加入

xiassang

  

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
计次	整数型
索引	整数型
分割2	文本型		0
表项	整数型
节点1	文本型
索引A	整数型

文件 ＝ 读入文件 (接收到的文件路径)
分割 ＝ 分割文本 (到文本 (文件), #换行符, )
计次循环首 (取数组成员数 (分割), 计次)
如果真 (分割 [计次] ＝ “”)
到循环尾 ()
分割2 ＝ 分割文本 (分割 [计次], “|”, )
重定义数组 (分割2, 真, 4)  ' 偷懒法！
索引 ＝ 超级列表框2.插入表项 (, 到文本 (计次), , , , )
超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (索引, 1))
超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (索引, 2))
超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (索引, 3))
超级列表框2.置标题 (索引, 4, 分割2 [4])
超级列表框2.置标题 (索引, 5, 超级列表框1.取标题 (索引, 5))
超级列表框2.置标题 (索引, 6, 超级列表框1.取标题 (索引, 6))
进度条2.位置 ＝ 到整数 (计次 ÷ 取数组成员数 (分割) × 100)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _拖放对象2_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 分割2, 文本型, , "0"<br /> .局部变量 表项, 整数型<br /> .局部变量 节点1, 文本型<br /> .局部变量 索引A, 整数型<br /> <br /> 文件 ＝ 读入文件 (接收到的文件路径)<br /> 分割 ＝ 分割文本 (到文本 (文件), #换行符, )<br /> .计次循环首 (取数组成员数 (分割), 计次)<br />     .如果真 (分割 [计次] ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br />     分割2 ＝ 分割文本 (分割 [计次], “|”, )<br />     重定义数组 (分割2, 真, 4)  ' 偷懒法！<br />     索引 ＝ 超级列表框2.插入表项 (, 到文本 (计次), , , , )<br />     超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (索引, 1))<br />     超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (索引, 2))<br />     超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (索引, 3))<br />     超级列表框2.置标题 (索引, 4, 分割2 [4])<br />     超级列表框2.置标题 (索引, 5, 超级列表框1.取标题 (索引, 5))<br />     超级列表框2.置标题 (索引, 6, 超级列表框1.取标题 (索引, 6))<br />     进度条2.位置 ＝ 到整数 (计次 ÷ 取数组成员数 (分割) × 100)<br /> <br /> .计次循环尾 ()

请问下 我导入文本的时候 想默认先增加9行空白的，应该怎么写？研究了好久没研究出来，新手

够爱

  

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
计次	整数型
索引	整数型
分割2	文本型		0
表项	整数型
节点1	文本型
索引A	整数型

文件 ＝ 读入文件 (接收到的文件路径)
分割 ＝ 分割文本 (到文本 (文件), #换行符, )
计次循环首 (9, )
超级列表框2.插入表项 ()
计次循环尾 ()
计次循环首 (取数组成员数 (分割), 计次)
如果真 (分割 [计次] ＝ “”)
到循环尾 ()
分割2 ＝ 分割文本 (分割 [计次], “|”, )
重定义数组 (分割2, 真, 4)  ' 偷懒法！
索引 ＝ 超级列表框2.插入表项 (, 到文本 (计次), , , , )
超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (索引, 1))
超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (索引, 2))
超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (索引, 3))
超级列表框2.置标题 (索引, 4, 分割2 [4])
超级列表框2.置标题 (索引, 5, 超级列表框1.取标题 (索引, 5))
超级列表框2.置标题 (索引, 6, 超级列表框1.取标题 (索引, 6))
进度条2.位置 ＝ 到整数 (计次 ÷ 取数组成员数 (分割) × 100)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _拖放对象2_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 分割2, 文本型, , "0"<br /> .局部变量 表项, 整数型<br /> .局部变量 节点1, 文本型<br /> .局部变量 索引A, 整数型<br /> <br /> 文件 ＝ 读入文件 (接收到的文件路径)<br /> 分割 ＝ 分割文本 (到文本 (文件), #换行符, )<br /> .计次循环首 (9, )<br />     超级列表框2.插入表项()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割), 计次)<br />     .如果真 (分割 [计次] ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br />     分割2 ＝ 分割文本 (分割 [计次], “|”, )<br />     重定义数组 (分割2, 真, 4)  ' 偷懒法！<br />     索引 ＝ 超级列表框2.插入表项 (, 到文本 (计次), , , , )<br />     超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (索引, 1))<br />     超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (索引, 2))<br />     超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (索引, 3))<br />     超级列表框2.置标题 (索引, 4, 分割2 [4])<br />     超级列表框2.置标题 (索引, 5, 超级列表框1.取标题 (索引, 5))<br />     超级列表框2.置标题 (索引, 6, 超级列表框1.取标题 (索引, 6))<br />     进度条2.位置 ＝ 到整数 (计次 ÷ 取数组成员数 (分割) × 100)<br /> <br /> .计次循环尾 ()

鹏书

超级列表框2.插入表项 (, 到文本 (计次), , , , )  这句代码先执行9遍就可以了

xiassang

鹏书 发表于 2023-8-18 15:27
超级列表框2.插入表项 (, 到文本 (计次), , , , )  这句代码先执行9遍就可以了

谢谢！已经解决了！

xiassang

够爱 发表于 2023-8-18 14:59
[e=0].版本 2

.子程序 _拖放对象2_得到文件

谢谢，自己已经解决了！

狼※牙

根据您提供的易语言代码，我看到您想要在超级列表框2中导入文本之前默认添加9行空白。要实现这一点，您只需在循环开始之前插入9个空白表项即可。

以下是修改后的代码片段：

  

```plaintext
文件 ＝ 读入文件 (接收到的文件路径)
分割 ＝ 分割文本 (到文本 (文件), #换行符, )
计次循环首 (1, 9)   ' 插入9行空白
超级列表框2.插入表项 ("", "", "", "", "", "")
循环，
计次循环首 (取数组成员数 (分割), 计次)
如果真 (分割 [计次] ＝ “”)
到循环尾 ()
分割2 ＝ 分割文本 (分割 [计次], “|”, )
重定义数组 (分割2, 真, 4)  ' 偷懒法！
索引 ＝ 超级列表框2.插入表项 (, 到文本 (计次), , , , )
超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (索引, 1))
超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (索引, 2))
超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (索引, 3))
超级列表框2.置标题 (索引, 4, 分割2 [4])
超级列表框2.置标题 (索引, 5, 超级列表框1.取标题 (索引, 5))
超级列表框2.置标题 (索引, 6, 超级列表框1.取标题 (索引, 6))
进度条2.位置 ＝ 到整数 (计次 ÷ 取数组成员数 (分割) × 100)
计次循环尾 ()

```plaintext<br /> 文件 ＝ 读入文件 (接收到的文件路径)<br /> 分割 ＝ 分割文本 (到文本 (文件), #换行符, )<br /> .计次循环首 (1, 9)   ' 插入9行空白<br />     超级列表框2.插入表项 ("", "", "", "", "", "")<br /> 循环，<br /> .计次循环首 (取数组成员数 (分割), 计次)<br />     .如果真 (分割 [计次] ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br />     分割2 ＝ 分割文本 (分割 [计次], “|”, )<br />     重定义数组 (分割2, 真, 4)  ' 偷懒法！<br />     索引 ＝ 超级列表框2.插入表项 (, 到文本 (计次), , , , )<br />     超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (索引, 1))<br />     超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (索引, 2))<br />     超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (索引, 3))<br />     超级列表框2.置标题 (索引, 4, 分割2 [4])<br />     超级列表框2.置标题 (索引, 5, 超级列表框1.取标题 (索引, 5))<br />     超级列表框2.置标题 (索引, 6, 超级列表框1.取标题 (索引, 6))<br />     进度条2.位置 ＝ 到整数 (计次 ÷ 取数组成员数 (分割) × 100)<br /> <br /> .计次循环尾 ()

现在，当您导入文本时，超级列表框2会先插入9行空白表项，然后再添加实际的数据行。请注意，我在第一个循环中使用了`.计次循环首 (1, 9)`来插入9行空白，这是一种硬编码的方法。如果您希望更灵活地控制空白行数，可以将9替换为您想要的数字或变量。

云少i

索引 ＝ 超级列表框2.插入表项 (, 到文本 (计次), , , , )+8