计次循环首 (10000, )这里怎么改成取完文件名就停止

清华博士

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
a	文本型

编辑框1.内容 ＝ “”
编辑框1.内容 ＝ 寻找文件 (取运行目录 () ＋ “\*.txt”, ) ' 目标目录后加*
调试输出 (编辑框1.内容)
计次循环首 (10000, )
a ＝ 寻找文件 (, )
如果 (a ≠ “”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ a
跳出循环 ()

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 a, 文本型<br /> <br /> 编辑框1.内容 ＝ “”<br /> 编辑框1.内容 ＝ 寻找文件 (取运行目录 () ＋ “\*.txt”, ) ' 目标目录后加*<br /> 调试输出 (编辑框1.内容)<br /> .计次循环首 (10000, )<br /> a ＝ 寻找文件 (, )<br /> .如果 (a ≠ “”)<br /> 编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ a<br /> .否则<br /> 跳出循环 ()<br /> .如果结束<br /> <br /> .计次循环尾 ()

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮2_被单击
   
5. .局部变量 a, 文本型
   
6. 
   
7. 编辑框1.内容 ＝ “”
   
8. 编辑框1.内容 ＝ 寻找文件 (取运行目录 () ＋ “\*.txt”, ) ' 目标目录后加*
   
9. 调试输出 (编辑框1.内容)
   
10. .计次循环首 (10000, )
    
11. a ＝ 寻找文件 (, )
    
12. .如果 (a ≠ “”)
    
13. 编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ a
    
14. .否则
    
15. 跳出循环 ()
    
16. .如果结束
    
17. 
    
18. .计次循环尾 ()
    
19. 
    

复制代码

在线等您的帮助

龍孞

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
a	文本型

编辑框1.内容 ＝ “”
a ＝ 寻找文件 (取运行目录 () ＋ “\*.txt”, )  ' 目标目录后加*
判断循环首 (a ≠ “”)
编辑框1.加入文本 (a ＋ #换行符 )
a ＝ 寻找文件 (, )
判断循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 a, 文本型<br /> <br /> 编辑框1.内容 ＝ “”<br /> a ＝ 寻找文件 (取运行目录 () ＋ “\*.txt”, )  ' 目标目录后加*<br /> .判断循环首 (a ≠ “”)<br />     编辑框1.加入文本 (a ＋ #换行符)<br />     a ＝ 寻找文件 (, )<br /> .判断循环尾 ()

清华博士

龍孞 发表于 2015-5-23 07:18
[e=4].版本 2

.子程序 _按钮2_被单击

非常感谢你的帮助！论坛有你才精彩！祝你永远好运！