精易论坛

标题: 拖放对象框导入文本到超级列表框（老鸟飘过） [打印本页]

---

作者: hhhql    时间: 2020-4-26 12:39
标题: 拖放对象框导入文本到超级列表框（老鸟飘过）
功能如下
1.自动读取文本（----分割后的）加入超级列表框 有多少个就导入多少个（表达有点不行）


主要代码


大佬勿喷 我只是个人觉得比较简单不用去判断导入到哪个列
大佬勿喷 我只是个人觉得比较简单不用去判断导入到哪个列
大佬勿喷 我只是个人觉得比较简单不用去判断导入到哪个列

那些空白的试了几次我也不知道咋跳过空白

1111.e (167.06 KB, 下载次数: 412)

2020-4-26 12:37 上传

点击文件名下载附件
下载积分: 精币 -2 枚

---

作者: 天残    时间: 2020-4-26 12:58
呃呃呃呃

---

作者: q80479    时间: 2020-4-26 13:15
这个不难，但是有些win10拖放对象不行

---

作者: hhhql    时间: 2020-4-26 13:16

q80479 发表于 2020-4-26 13:15
这个不难，但是有些win10拖放对象不行

我只是分享 win10自己改成调用对话框 也行

---

作者: 天雨时晴    时间: 2020-4-26 13:22

  

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

变量名	类 型	静态	数组	备 注
Text	文本型		2
Text_sz	文本型		0
Text_sz_a	文本型		0
i	整数型
n	整数型

超级列表框1.表项 ＝ {  }
Text [1] ＝ 到文本 (读入文件 (接收到的文件路径))
Text_sz ＝ 分割文本 (Text [1], #换行符, )
计次循环首 (取数组成员数 (Text_sz), i)
Text [2] ＝ 删首尾空 (Text_sz [i])  ' 先去掉首尾的空格
如果真 (Text [2] ＝ “”)  ' 跳过只有换行符的空行
到循环尾 ()
Text_sz_a ＝ 分割文本 (Text [2], “----”, )
超级列表框1.插入表项 (, 到文本 (i), 0, , , )
计次循环首 (取数组成员数 (Text_sz_a), n)
超级列表框1.置标题 (i － 1, n, Text_sz_a [n])
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 Text, 文本型, , "2"<br /> .局部变量 Text_sz, 文本型, , "0"<br /> .局部变量 Text_sz_a, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 超级列表框1.表项 ＝ {  }<br /> Text [1] ＝ 到文本 (读入文件 (接收到的文件路径))<br /> Text_sz ＝ 分割文本 (Text [1], #换行符, )<br /> .计次循环首 (取数组成员数 (Text_sz), i)<br />     Text [2] ＝ 删首尾空 (Text_sz <i>)  ' 先去掉首尾的空格<br />     .如果真 (Text [2] ＝ “”)  ' 跳过只有换行符的空行<br />         到循环尾 ()<br />     .如果真结束<br />     Text_sz_a ＝ 分割文本 (Text [2], “----”, )<br />     超级列表框1.插入表项 (, 到文本 (i), 0, , , )<br />     .计次循环首 (取数组成员数 (Text_sz_a), n)<br />         超级列表框1.置标题 (i － 1, n, Text_sz_a [n])<br />     .计次循环尾 ()<br /> .计次循环尾 ()

我觉得应该是你的文件中有没有内容的空行

---

作者: 已注销539739    时间: 2020-4-26 13:24
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 黄雨后    时间: 2020-4-26 13:28
不错不错

---

作者: hhhql    时间: 2020-4-26 13:37

天雨时晴 发表于 2020-4-26 13:22
[e=0].版本 2
.支持库 iext

试过了 没用

---

作者: wlht2019    时间: 2020-4-26 13:42
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: wlht2019    时间: 2020-4-26 13:42
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: a976606645    时间: 2020-4-26 13:45
来学习一下 哈哈

---

作者: vhk    时间: 2020-4-26 14:09
来学习一下 哈哈

---

作者: 李白aaa    时间: 2020-4-26 14:12
为了100金币 奥里给

---

作者: 深爱者    时间: 2020-4-26 14:59

为了100金币 奥里给

---

作者: 深爱者    时间: 2020-4-26 15:00

来学习一下 哈哈

---

作者: 深爱者    时间: 2020-4-26 15:00
怎么还不中

---

作者: songue    时间: 2020-4-26 15:02
为了100金币

---

作者: 我是太子    时间: 2020-4-26 15:07
为了100金币 谢谢大佬哦

---

作者: zhu380214886    时间: 2020-4-26 15:24
听说有金币，我来看看！谢谢分享

---

作者: fyh505099    时间: 2020-4-26 15:52
看看会不会中奖

---

作者: fyh505099    时间: 2020-4-26 15:53
者100精币看来是没希望了

---

作者: fyh505099    时间: 2020-4-26 15:57
敢不敢把中奖概率调高点

---

作者: 阿汤哥    时间: 2020-4-26 16:56
听说回复有奖？

---

作者: nenxifugebi    时间: 2020-4-26 17:07
敢不敢把中奖概率调高点

---

作者: coolfire1983    时间: 2020-4-26 17:47
敢不敢再提高概率  不过还是感谢楼主分享了！

---

作者: y7y7yy    时间: 2020-4-26 18:25
听说回复有奖？

---

作者: 四叶草接单    时间: 2020-4-26 19:03
些空白的试了几次我也不知道咋跳过空白

---

作者: 星空下的落幕    时间: 2020-4-26 19:05
你这个中奖率非常感人哈

---

作者: q228662928    时间: 2020-4-26 20:07
看看会不会中奖

---

作者: fyh505099    时间: 2020-4-26 23:49
就没看到谁中奖了

---

作者: louyu    时间: 2020-4-27 06:29
支持开源分享，感谢

---

作者: 我的大萝卜    时间: 2020-4-27 07:04
听说回复有奖？ 看看中奖了没

---

作者: 一剑磨十年    时间: 2020-4-27 07:48
这中奖率 我去 看看俺能不能中！

---

作者: 零碎不堪    时间: 2020-4-27 08:45
这中奖率 我去 看看俺能不能中！

---

作者: 552233    时间: 2020-4-27 10:44
支持开源分享，感谢

---

作者: uanso    时间: 2020-4-27 15:30
支持导入到指定行？

---

作者: 零碎不堪    时间: 2020-4-27 16:53
没想到啊运气这么好。。。我去买CP了。。

---

作者: 零碎不堪    时间: 2020-4-27 16:55
没想到啊运气这么好。。。我去买CP了。。

---

作者: 阿迷    时间: 2020-4-27 17:12
学习下                 

---

作者: a47130    时间: 2020-5-1 19:31
支持开源分享，感谢

---

作者: 510979164    时间: 2020-8-16 09:42
亲请问请问请问请问

---

作者: li352310108    时间: 2020-11-15 17:56
认真看看拖放，看win10！

---

作者: welking    时间: 2020-11-27 16:04
还有奖？

---

作者: 365964799    时间: 2020-12-7 18:30
1111111111111111111111111111111111111111111

---

作者: hat    时间: 2020-12-13 15:23
win10不能拖放，根本没用

---

作者: cosset    时间: 2021-1-17 23:38
支持开源~！感谢分享

---

作者: cgq664315    时间: 2021-4-4 22:12
11111111111111111

---

作者: lelele1979    时间: 2021-5-1 23:55
我只是个人觉得比较简单不用去判

---

作者: lelele1979    时间: 2021-5-1 23:56
我只是个人觉得比较简单不用去判

---

作者: XX0721    时间: 2021-6-4 22:37
看看                    

---

作者: 佳鑫    时间: 2022-1-4 22:02
        支持开源~！感谢分享

---

作者: lyie15    时间: 2022-3-9 19:58
正在查找这个功能，学习下

---

作者: P歪工作室    时间: 2022-3-10 00:55
来学习一下学习西

---

作者: sna520    时间: 2022-3-25 21:52
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

---

作者: sna520    时间: 2022-3-25 21:54
zzzzzzzzzzzzzzzzzzzzzzzzzzzzz

---

作者: jnjcsh    时间: 2022-7-4 01:31
学习一下学习一下

---

作者: li110    时间: 2022-8-16 18:35
学习一下学习一下

---

作者: 千寻1028    时间: 2022-9-10 15:19
学习学习

---

作者: mazhengyu    时间: 2022-10-3 21:21
学习。。。。。

---

作者: 691813015    时间: 2022-10-24 12:15
6666666666666666

---

作者: 白泽    时间: 2023-8-31 12:12
感谢分享

---

作者: alith00    时间: 2024-1-9 14:01
功能如下 1.自动读取文本（----分割后的）加入超级列表框 有多少个就导入多少个（表达有点不行）    主要代码   大佬勿喷 我只是个人觉得比较简单不用去判断导入到哪个列 大佬勿喷 我只是个人觉得比较简单不用去判断导入到哪个列 大佬勿喷 我只是个人觉得比较简单不用去判断导入到哪个列

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4