切换风格

默认Lavender Sky Flowers Wizard Snow Beige California City Dragon Black London Sunset glow Pink Cloud
设为首页收藏本站广告招租
快捷导航
返回列表 显示全部楼层 |图片模式 |正序浏览
12下一页
回复 11
12下一页
返回列表 发新帖

349

主题

5099

积分

25

精华

用户组　

易积分
18447
热心
102
好评
136
QQ

热心会员国庆节纪念勋章活跃会员
如意取文件类库源码[复制链接]
发表于 2019-4-26 15:30:04 | 显示全部楼层 |阅读模式
一件取目录内所有文件以及文件夹。类库开源

Screenshot_2019-04-26-15-24-05-099_com.eruyi.qwj.jpg

调用代码如下
  1. 变量 文件数组 为 文本型()
  2.         变量 文件分割 为 文本型()
  3.         变量 i 为 整数型
  4.         文件数组 = 如意取文件1.获取(取存储卡路径() & "/Download")        
  5.         判断循环首 i < 取数组成员数(文件数组)
  6.                 文件分割 = 分割文本(文件数组(i),"\n")
  7.                 如果 取数组成员数(文件分割) = 2 则
  8.                         如果 文件分割(1) = 1 则
  9.                                 高级列表框1.添加项目("",文件分割(0),"这是文件夹","","")
  10.                                 否则
  11.                                 高级列表框1.添加项目("",文件分割(0),"这是文件","","")
  12.                         结束 如果
  13.                 结束 如果
  14.                 i = i + 1
  15.         判断循环尾
复制代码


如意取文件.elp

5.86 KB, 下载次数: 3

售价: 100 易积分  [记录]

如意取文件类库.elb

6.77 KB, 下载次数: 26

售价: 10 易积分  [记录]

易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

42

主题

868

积分

0

精华

用户组　

易积分
787
热心
0
好评
0
发表于 2023-7-12 08:47:57 | 显示全部楼层
谢谢分享啊
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

0

主题

104

积分

0

精华

用户组　

易积分
361
热心
0
好评
0
发表于 2023-7-11 17:00:07 来自手机 | 显示全部楼层
易如意有你更精彩
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

4

主题

132

积分

0

精华

用户组　

易积分
156
热心
0
好评
0
发表于 2023-2-14 15:43:01 | 显示全部楼层
类库我有，但是不会用，这里看到源码，真高兴
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

153

主题

1647

积分

0

精华

用户组　

易积分
1853
热心
0
好评
0

活跃会员
发表于 2019-10-11 21:35:59 | 显示全部楼层
20042004 发表于 2019-9-13 20:24
看看

易如意中文编程学习交流论坛有你更精彩~
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

0

主题

4

积分

0

精华

用户组　

易积分
23
热心
0
好评
0
发表于 2019-9-13 20:24:35 来自手机 | 显示全部楼层
看看            
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

jxb

0

主题

52

积分

0

精华

用户组　

易积分
20
热心
0
好评
0
QQ
发表于 2019-9-11 14:15:15 | 显示全部楼层
这个好用，谢谢分享
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

18

主题

1011

积分

0

精华

用户组　

易积分
5872
热心
1
好评
0
QQ

活跃会员热心会员
发表于 2019-9-11 10:20:25 | 显示全部楼层
没钱 去瞧瞧
浮云
回复

使用道具 举报

0

主题

210

积分

0

精华

用户组　

易积分
156
热心
0
好评
0
发表于 2019-9-11 10:08:57 | 显示全部楼层
如意大佬，谢谢分享
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

0

主题

172

积分

0

精华

用户组　

易积分
3097
热心
0
好评
0
发表于 2019-9-2 15:04:16 | 显示全部楼层
支持开源~！感谢分享
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

12下一页
返回列表 发新帖

QQ|sitemap|免责声明|RGB颜色对照表|手机版|小黑屋| 易如意 - E4A中文编程学习交流论坛

GMT+8, 2025-5-4 08:01 , Processed in 0.097145 second(s), 41 queries .

Powered by Discuz! X3.4

© 2001-2018 eruyi.cn

返回顶部