根据文件名称分类

败笔书生

现在我的一个文件夹内有如下文件                     

201605011121-aaaaaa.txt
201606021231-bbbbbbb.txt
201606021231-aaaaaa.txt
201606032545-aaaaaa.txt
201606041231-cccc.txt
201606084322-aaaaaa.txt



我想遍历这个文件夹，然后按照名称（红色字体）分类但是不能重复了，放到组合框里，    当选择一个名称  超级列表框显示对应 的日期（前面的部分），日期按照日来加入，后边的4位去掉

kingsee

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .程序集 窗口程序集_窗口1
   
5. .程序集变量 path, 文本型
   
6. 
   
7. .子程序 _按钮1_被单击
   
8. .局部变量 txtname, 文本型
   
9. .局部变量 txt, 文本型
   
10. .局部变量 str, 文本型
    
11. .局部变量 arrtxt, 文本型, , "0"
    
12. .局部变量 arrname, 文本型, , "0"
    
13. .局部变量 i, 整数型
    
14. 
    
15. path ＝ 目录_浏览 ()
    
16. txt ＝ 寻找文件 (“*.txt”, )
    
17. .循环判断首 ()
    
18.     str ＝ 寻找文件 (, )
    
19.     .如果真 (str ≠ “”)
    
20.         txt ＝ txt ＋ #换行符 ＋ str
    
21.     .如果真结束
    
22. 
    
23. .循环判断尾 (str ≠ “”)
    
24. 
    
25. arrtxt ＝ 分割文本 (txt, #换行符, )
    
26. .计次循环首 (取数组成员数 (arrtxt), i)
    
27.     arrname ＝ 分割文本 (arrtxt [i], “-”, )
    
28.     .如果真 (取数组成员数 (arrname) ＞ 1)
    
29.         txtname ＝ txtname ＋ #换行符 ＋ arrname [2]
    
30.     .如果真结束
    
31. 
    
32. .计次循环尾 ()
    
33. txtname ＝ 文本_去重复文本 (txtname, #换行符)
    
34. ' txtname ＝ 子文本替换 (txtname, “.txt”, , , , 真)
    
35. arrtxt ＝ 分割文本 (txtname, #换行符, )
    
36. 组合框1.清空 ()
    
37. .计次循环首 (取数组成员数 (arrtxt), i)
    
38.     .如果真 (删全部空 (arrtxt [i]) ≠ “”)
    
39.         组合框1.加入项目 (arrtxt [i], )
    
40.     .如果真结束
    
41. 
    
42. 
    
43. .计次循环尾 ()
    
44. 
    
45. .子程序 _组合框1_列表项被选择
    
46. .局部变量 txt, 文本型
    
47. 
    
48. 超级列表框1.全部删除 ()
    
49. txt ＝ 寻找文件 (“*” ＋ 组合框1.取项目文本 (组合框1.现行选中项), )
    
50. .判断循环首 (txt ≠ “”)
    
51.     超级列表框1.插入表项 (, 取文本左边 (txt, 8), , , , )
    
52.     txt ＝ 寻找文件 (, )
    
53. .判断循环尾 ()
    

复制代码

苦橙汁

http://pan.baidu.com/s/1nvpOoY1
看一下这个是不是
100多K的文件，上传还说服务不能上传这么大的文件

冯古屋

想做是自己做还是找别人做，搞得和下单子一样子，10JB。
思路就是文件_枚举所有的文件名
然后从文件名其实就是一个文本数组，
那么计次循环首
将单挑内容分割成几个部分
然后多个部分各自根据各自的要求进行筛选匹配。

易正易则

已经做好，论坛卡死，晚点发附近

易正易则

先看看视频,看看是不是这样,是的话,我附件放网盘,论坛现在不能上附件

视频地址: https://yunpan.cn/cRU5nU2Xb8229  访问密码 dc19

易正易则

再试试,看看能不能发附件

测试.zip (159.2 KB, 下载次数: 4)

2016-6-25 00:07 上传

点击文件名下载附件