组合框读取目录下TXT文档问题/附上例子

吾爱精益

组合框读取目录下TXT文档，例子已付上麻烦弄好传上来一下谢谢 读取TXT.zip (1.71 KB, 下载次数: 12)

2017-5-18 17:43 上传

点击文件名下载附件

不帅叔叔

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 a, 文本型
   
5. 
   
6. a ＝ 寻找文件 (取运行目录 () ＋ “\*.txt”, )
   
7. .判断循环首 (a ≠ “”)
   
8.     组合框1.加入项目 (a, )
   
9.     组合框1.现行选中项 ＝ 0
   
10.     a ＝ 寻找文件 (, )
    
11. .判断循环尾 ()
    
12. _组合框1_列表项被选择 ()
    
13. 
    
14. .子程序 _组合框1_列表项被选择
    
15. .局部变量 文件号, 整数型
    
16. 
    
17. 文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 组合框1.取项目文本 (组合框1.现行选中项), , )
    
18. 编辑框1.内容 ＝ 读入文本 (文件号, )
    

复制代码

532915135

读取TXT.zip (1.81 KB, 下载次数: 22)

2017-5-18 17:53 上传

点击文件名下载附件
自己测试

eooog

额...........

郝单纯💋

读取TXT.zip (166.62 KB, 下载次数: 17)

2017-5-18 17:53 上传

点击文件名下载附件
完美的解决了您的问题

小理想

这个。。好人就是多啊

不帅叔叔

补发一下文件，不用模块