精易论坛

标题: 求大神帮我写下~！ [打印本页]

作者: 小虾米20 时间: 2013-11-25 20:59
标题: 求大神帮我写下~！
麻烦大神，帮我写下~！程序是这样设计的，自己把文件地址输入文件目录，比如我文件地址里有30个文件，分别是案例1~30，在多开输入那里输入数量，然后点击一键启动，就会打开地址你的案例，输的的几个就打开几个。谢谢大神了

QQ图片20131125202217.jpg (14.79 KB, 下载次数: 1)

作者: 君不见 时间: 2013-11-25 20:59

[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
你这样不科学因为你对需要打开的东西没有限制你输入5 打开i前面5个输入10 打开前面10个

作者: 小虾米20 时间: 2013-11-25 21:07

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

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

作者: 梦游仙 时间: 2013-11-25 21:15
计次循环来运行你想要

作者: 波哥野结衣 时间: 2013-11-25 21:19
计次循环不就行了

作者: 小虾米20 时间: 2013-11-25 21:22

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

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

作者: 小虾米20 时间: 2013-11-25 21:23

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

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

作者: 小虾米20 时间: 2013-11-25 21:59

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

按钮重复啊~！

撒.jpg (12.49 KB, 下载次数: 0)

作者: 君不见 时间: 2013-11-25 22:06

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

浏览文件夹.rar (1.91 KB, 下载次数: 3)
郁闷代码我就发了1下怎么变重复了这是e源码

作者: 小虾米20 时间: 2013-11-25 22:16

君不见发表于 2013-11-25 22:06
郁闷代码我就发了1下怎么变重复了这是e源码

大神如果是这种程序呢~！不是TXT我该然后改~！真是太谢谢你了~！好人做到底吧

按时的.jpg (3.41 KB, 下载次数: 0)

按时的器.jpg (30.89 KB, 下载次数: 0)

作者: 君不见 时间: 2013-11-25 22:29
发个案例吧你那玩意光看图还真不明白怎么处理

作者: 小虾米20 时间: 2013-11-25 22:35

君不见发表于 2013-11-25 22:29
发个案例吧你那玩意光看图还真不明白怎么处理

能在加个按钮~！以下全关闭打开的文件吗

案例1.zip

579.43 KB, 下载次数: 2

作者: 君不见 时间: 2013-11-25 22:41

小虾米20 发表于 2013-11-25 22:35
能在加个按钮~！以下全关闭打开的文件吗

看不懂你那玩意也不敢运行既然后缀是exe 你自己改下就好

作者: 小虾米20 时间: 2013-11-25 22:46

君不见发表于 2013-11-25 22:41
看不懂你那玩意也不敢运行既然后缀是exe 你自己改下就好

改啥地方？没事的就是一个手机浏览器

作者: 君不见 时间: 2013-11-25 22:53

小虾米20 发表于 2013-11-25 22:46
改啥地方？没事的就是一个手机浏览器

文件_枚举 (lj, “*.txt”, 文本, 真)改成
文件_枚举 (lj, “*.exe”, 文本, 真)

前提是你把这些东西放在一个目录而这个目录又不存在别的不是案例的exe

作者: 小虾米20 时间: 2013-11-25 23:07

君不见发表于 2013-11-25 22:53
文件_枚举 (lj, “*.txt”, 文本, 真)改成
文件_枚举 (lj, “*.exe”, 文本, 真)

不是EXE啊~！只是一些快捷方式
我该成exe没有这些文件

作者: 君不见 时间: 2013-11-25 23:11

小虾米20 发表于 2013-11-25 23:07
不是EXE啊~！只是一些快捷方式
我该成exe没有这些文件

你给我发的是exe

作者: 小虾米20 时间: 2013-11-25 23:15

君不见发表于 2013-11-25 23:11
你给我发的是exe

我弄好了~！该成了.lnk ,谢谢你哈~！能加个按钮3 就是说吧打开的全关了不

作者: 陈锐宇 时间: 2013-11-25 23:25

不懂

作者: 君不见 时间: 2013-11-25 23:29

小虾米20 发表于 2013-11-25 23:15
我弄好了~！该成了.lnk ,谢谢你哈~！能加个按钮3 就是说吧打开的全关了不

..版本 2

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

.计次循环首 (到整数 (编辑框2.内容), n)
进程_结束 (进程_名取ID (“notepad.exe”))

.计次循环尾 ()
打开任务管理器看你的玩意的进程然后替换notepad.exe
需要精益模块

作者: 小虾米20 时间: 2013-11-26 00:00

君不见发表于 2013-11-25 23:29
..版本 2

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

.版本 2
.支持库 eAPI

.子程序 _按钮3_被单击
.局部变量所有进程, 进程信息, , "0"
.局部变量 i, 整数型

所有进程＝取系统进程列表 ()
.计次循环首 (取数组下标 (所有进程, ), i)
.如果真 (到小写 (所有进程 .进程名称) ＝ “chrome.exe”)
终止进程 (所有进程 .进程标识符)
.如果真结束

.计次循环尾 ()
我是这样写的~！能用~！真是太感谢你了

作者: 点不着的香烟 时间: 2013-11-26 08:41
新手跟着学习下
作者: 小虾米20 时间: 2013-11-26 22:05

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

大神我的这个怎么少了3行字·！要怎么弄出来~！

QQ图片20131126213411.jpg (44.76 KB, 下载次数: 1)

下载附件

2013-11-26 22:04 上传

是.jpg (50.03 KB, 下载次数: 1)

下载附件

2013-11-26 22:04 上传

作者: 君不见 时间: 2013-11-26 22:19
没有少啊那只是展开收缩
作者: 小虾米20 时间: 2013-11-26 22:25

君不见发表于 2013-11-26 22:19
没有少啊那只是展开收缩

点展开收缩液没有啊

欢迎光临精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4