求大神帮我写下~！

小虾米20 · 发表于 2013-11-25 20:59:28

麻烦大神，帮我写下~！程序是这样设计的，自己把文件地址输入文件目录，比如我文件地址里有30个文件，分别是案例1~30，在多开输入那里输入数量，然后点击一键启动，就会打开地址你的案例，输的的几个就打开几个。谢谢大神了

君不见 · 发表于 2013-11-25 20:59:29

[e]
.版本 2
.支持库 shell
.支持库 spec

.程序集窗口程序集1
.程序集变量 lj, 文本型
.程序集变量文本, 文本型, , "0"
.程序集变量 n, 整数型

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

lj ＝浏览文件夹 (“”, )
.如果真 (lj ≠ “”)
编辑框1.内容＝ lj
.如果真结束

文件_枚举 (lj, “*.txt”, 文本, 真) ' 这里的txt是你的文件类型后缀
标签1.标题＝ “你选择的目录下总共有” ＋到文本 (取数组成员数 (文本)) ＋ “个符合要求的文件”

.子程序文件_枚举, 整数型, , 枚举某个目录下的指定类型文件；成功返回文件数量；
.参数欲寻找的目录, 文本型, , 文件目录
.参数欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*，或*.txt只找txt文件
.参数文件数组, 文本型, 数组, 用于装载文件数组的变量；把寻找到的文件都放在这个数组里，并返回；
.参数是否带路径, 逻辑型, , 默认为假；真=带目录路径，如C:\012.txt；假=不带，如 012.txt；
.局部变量局_文件名, 文本型
.局部变量局_目录, 文本型

局_目录＝欲寻找的目录
.如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录＝局_目录＋ “\”
.如果真结束
局_文件名＝寻找文件 (局_目录＋欲寻找的文件名, )
.判断循环首 (局_文件名 ≠ “”)
.如果 (是否带路径)
加入成员 (文件数组, 局_目录＋局_文件名)
.否则
加入成员 (文件数组, 局_文件名)
.如果结束
处理事件 ()
局_文件名＝寻找文件 (, )
.判断循环尾 ()
返回 (取数组成员数 (文件数组))

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

.如果真 (文本 [1] ≠ “”)
.计次循环首 (到整数 (编辑框2.内容), n)
执行 (, 文本 [n], , , )

.计次循环尾 ()
.如果真结束
调试输出 (文本)

[/e]

君不见 · 发表于 2013-11-25 21:03:51

你这样不科学因为你对需要打开的东西没有限制你输入5 打开i前面5个输入10 打开前面10个

小虾米20 · 发表于 2013-11-25 21:07:31

君不见发表于 2013-11-25 21:03
你这样不科学因为你对需要打开的东西没有限制你输入5 打开i前面5个输入10 打开前面10个

对啊~！输入5就打开案例1~5 ，输入10就打开案例1~10

梦游仙 · 发表于 2013-11-25 21:15:46

计次循环来运行你想要

波哥野结衣 · 发表于 2013-11-25 21:19:14

计次循环不就行了

小虾米20 · 发表于 2013-11-25 21:22:55

梦游仙发表于 2013-11-25 21:15
计次循环来运行你想要

能帮我做下源码给我吗？我是小白~！一点都不懂，只会做界面，里面的东西都不会~谢谢大神，上天保佑你！！！

小虾米20 · 发表于 2013-11-25 21:23:20

若雨若风发表于 2013-11-25 21:19
计次循环不就行了

能帮我做下源码给我吗？我是小白~！一点都不懂，只会做界面，里面的东西都不会~谢谢大神，上天保佑你！！！

小虾米20 · 发表于 2013-11-25 21:59:34

君不见发表于 2013-11-25 21:44
[e]
.版本 2
.支持库 shell

按钮重复啊~！

君不见 · 发表于 2013-11-25 22:06:42

小虾米20 发表于 2013-11-25 21:59
按钮重复啊~！

浏览文件夹.rar (1.91 KB, 下载次数: 3)

		自动登录	找回密码
密码			注册

[已解决] 求大神帮我写下~！

最佳答案

点评

评分

点评

点评

点评

点评

点评