谁能帮忙设计或找到这样一个小程序？？！！

free391

由于平时工作上的需要，想用程序来减少手工操作的工作量，谁能帮忙设计或找到能够实现下面功能的程序。
本人薪水一般，不能以现金答谢帮忙者，还望原谅！
为表心意，给帮忙设计程序的朋友准备了三对原装、全新的IBM小红点（分别是新款和旧款的）。如果还有其它不过分的要求也可提出。

程序实现的功能有两个：
（1） 定时扫描（比如每隔5分钟）文件夹A，如果发现A里面有文件（注意不包含A内子文件夹），就把这些文件压缩成ZIP压缩包，放到文件夹B内，同时将A内原先的文件移到文件夹C内。

（2） 定时扫描（比如每隔5分钟）文件夹D，如果发现D里面有ZIP压缩文件包（注意不包含D内子文件夹），就把文件解压缩到文件夹E内，同时将D内原先的压缩包移到文件夹F内。


―――――――――――――――――
以上要求程序能够开机自动运行。
要求各文件夹名称及位置能够自定义。
要求如果A内既有压缩的ZIP文件又同时有没压缩的文件，那么没压缩的文件实施上述操作功能，而压缩的文件不要求处理。同文件名自动进行覆盖。
要求A和B允许是相同的文件夹。

[ Last edited by free391 on 2005-4-14 at 23:59 ]

redblink

写个bat文件，在计划任务里加上应该就可以了

_1234

如果你不想每5分钟就看到一个黑屏幕一闪而过的话，还是用windows script吧。
给你写了一个javascript，再利用windows的计划任务就可以实现目的了。

附件解压后，将operations.job复制到windows\tasks，再适当编辑他的属性。

operations.js利用winrar压缩工具，假设你已经安装。
用notepad打开operations.js，参照格式适当编辑：

(1) WinRaR - winrar的安装目录。
(2) FolderA到FolderF对应你的文件夹A到F


附：operations.js (revised)

//-----------------------------------------------------------------------
// edit your settings here
//-----------------------------------------------------------------------
var WinRaR="C:\\program files\\winrar";

var FolderA="E:\\test1\\AA";
var FolderB="E:\\test1\\AA";
var FolderC="E:\\test1\\BB";

var FolderD="E:\\test1\\DD";
var FolderE="E:\\test1\\EE";
var FolderF="E:\\test1\\FF";
//-----------------------------------------------------------------------

var WinRaR="\"" + WinRaR + "\\rar.exe\" ";
var WshShell = new ActiveXObject("WScript.Shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");

WScript.Echo("Operation");

if(GetFileCount(FolderA))
{
        Operation_I ();
}

if(GetFileCount(FolderD))
{
        Operation_II();
}

//-----------------------------------------------------------------------
function GetFileCount(FolderX)
{
        var FileCount=0;
        var fc = new Enumerator(fso.GetFolder(FolderX).files);
        for (;!fc.atEnd();fc.moveNext(), FileCount++);
        return FileCount;
}

function Operation_I()
{
        var Cmd = WinRaR + "a -ag " + "\"" + FolderB + "\\" + "\" " + "\"" + FolderA + "\\*.*" + "\"";
        WshShell.Run(Cmd, 0, true);
        fso.MoveFile(FolderA + "\\*.*", FolderC);
}

function Operation_II()
{        
        var Cmd = WinRaR + "e " + "\"" + FolderD + "\\*.rar" + "\" " + "\"" + FolderE + "\"";       
        WshShell.Run(Cmd, 0, true);
        fso.MoveFile(FolderD + "\\*.rar", FolderF);
}

[ Last edited by _1234 on 2005-4-15 at 01:43 ]

zzz

楼上厉害，我也顺道下载研究一下

fixcom

哦，专门网果然厉害，藏龙卧虎啊，我也学习下

fjg

高手啊....
来学习学习...........

redblink

QUOTE:

Originally posted by _1234 at 2005-4-14 07:34 AM:
如果你不想每5分钟就看到一个黑屏幕一闪而过的话，还是用windows script吧。
给你写了一个javascript，再利用windows的计划任务就可以实现目的了。

附件解压后，将operations.job复制到windows\tasks，再适当 ...

可以在选项里最小化执行啦，bat还是最简单的方式。

free391

QUOTE:

Originally posted by _1234 at 2005-4-14 07:34:
如果你不想每5分钟就看到一个黑屏幕一闪而过的话，还是用windows script吧。
给你写了一个javascript，再利用windows的计划任务就可以实现目的了。

附件解压后，将operations.job复制到windows\tasks，再适当 ...

多谢大侠！
我下载了你的文件后，用notepad打开operations.js，参照格式进行编辑后，运行任务计划后还是不行。可能我对编程不懂，修改得不对！

这样吧，我举个例子，你替我更改一下。
我的压缩工具是WINZIP，具体位置是D:\Program Files\WinZip\WINZIP32.EXE
各文件夹分别是:
E:\TEST1\AA
E:\TEST1\AA
E:\TEST3\CC
E:\TEST4\DD
E:\TEST5\EE
E:\TEST6\FF

请帮忙将你的operations.js重新写一下！

另外，你的这种方法在简体和繁体的WIN98/2000/XP都能行得通吗？
还有，我在家里用的压缩工具是WINZIP，在公司用的压缩工具是ZipCentral，都可以吗？

最后，如果上面的前两个文件夹名字相同也可以吗？（比如，文件夹A和B的名字都是E:\TEST1\AA。）
再举例说：
如果上面E:\TEST1\AA中既有压缩的文件又有没压缩的文件（如T1.DAT，T2.ZIP，T1.ZIP), 我希望实现的功能是:对于没有压缩的T1.DAT文件，执行题目中的操作功能，而对于已经被压缩过的T2.ZIP和T1.ZIP则不予理睬。

不胜感谢高手指点！

sheds

俺是搞VC的,大家有什么需要可以找我,水平还行

free391

QUOTE:

Originally posted by redblink at 2005-4-14 12:14:

可以在选项里最小化执行啦，bat还是最简单的方式。

也非常感谢老兄！！

我对BAT和DOS命令知道一些，但不是很多。
请问BAT中压缩和解压缩的命令是什么呀？
最小化执行的选项在哪里？

如果有空的话，希望也帮忙设计一个。
有些要求请看第8贴。
感谢专门网的兄弟中。。。。。

free391

QUOTE:

Originally posted by sheds at 2005-4-14 23:49:
俺是搞VC的,大家有什么需要可以找我,水平还行

专门网果然人才济济！
看来一个普通的题目至少有3种思路。

这位老兄，你也露一手吧！

要求程序使用越傻瓜式越好。
（题目我后来加了补充）

记住，如果有界面语言最好用英文的，因为我们公司有些电脑用繁体操作系统的（WIN98/2000/XP）。

在此，先鞠一躬了！

_1234

1. 普通安装的winzip不支持命令行编程，非要用的话必须安装一个WinZip Command Line Support Add-On你查查winzip的help就知道了。或者http://www.winzip.com/wzcline.cgi.
所以建议使用WinRar (不幸的是winrar的命令行不支持.zip文件，所以只能用rar压缩格式)，或者你能找到其他的压缩工具，只要修改一下命令行参数就可以了

2. 目录的格式中要使用双反斜杠，例如winra的目录如果是C:\Program Files\Winrar
则应写成: var WinRaR="C:\\Program Files\\WinRar"; 文件夹A的目录改成
var FolderA="E:\\test1\\AA"，文件夹B的目录改成 var FolderB="E:\\test1\\AA"
(贴出来的operations.js已经修改)

3. 文件夹A和B可以相同， 要区分文件来决定是否压缩也是可以的，要更具压缩工具
来修改一下。

4. javascript和操作系统的语言无关

5. 如果有ZipCentral的说明书，修改一下命令行就可以调用他了。

总之，你现在先决定使用什么压缩工具，然后才好修改。

[ Last edited by _1234 on 2005-4-15 at 01:50 ]

kemi00

编程牛人啊

zmq

厉害 厉害 啊

free391

QUOTE:

Originally posted by _1234 at 2005-4-15 01:40:
1. 普通安装的winzip不支持命令行编程，非要用的话必须安装一个WinZip Command Line Support Add-On你查查winzip的help就知道了。或者http://www.winzip.com/wzcline.cgi.
所以建议使用WinRar (不幸 ...

非常感谢您的回答！！
不过，因为工作关系，我发给别人以及接收别人的压缩文件都是ZIP的，而不是RAR的。另外，我需要该软件在压缩工具WINZIP和ZipCentral下都能适用。我需要在WIN98/2000/XP下都能工作。
不管怎样我都非常感谢您！！！因为你让我看到了您的热心，以及您高超的能力！

请PM我地址，我寄给你小红点。邮费我出了。
不过请原谅，我只寄一对（共2个），希望您能允许我把其它2对留给这里的其它同样热心的网友！
假如您能帮我把它用BAT做出来，并且不会每5分钟就看到一个黑屏幕一闪而过，我再多给您一对。
说明一下，给小红点只是为了表达心意和钦佩之情，仅此而已！谢谢！

pegasusu

很喜欢专门网的这种风气

nico

见附件.
附件中 zip 文件中有三个文件.

1. pack.cmd
也就是脚本程序. 实现压缩, 解压, 移动文件等功能.

2. awk.exe 一个 unix 工具的 win 版本. 用于字符串处理.

3. 7za.exe 一个开源的压缩工具. 主页:
   http://www.7-zip.org/zh-cn/
7za.exe官方下载:
   http://prdownloads.sourceforge.net/sevenzip/7za312.zip

以人品担保附带的程序, 代码没有木马, 病毒等等对机器有害的程序

使用说明:
1. 将附件中的 zip 文件解压到 windows 安装目录. 请不要用其他目录. 因为代码中对这个目录进行了硬编码.
2. 运行 pack.cmd 即开始工作, 并设置 at 命令, 让其每 5 分钟执行一次.

备注:
使用 At 目录运行 bat 脚本. 因为 at 服务帐号默认以 system 用户执行, 并不会弹出 cmd 窗口. 所以不用担心每 5 分钟会有 cmd 查看一闪而过.

pack.cmd 源码:
:----------------------------------start here
: 注意:
: 1. 设置下列目录时, 目录名末尾不要带上 \
: 即, 应该设置成
:       set folderA=E:\TEST1\AA
: 而不是
:       set folderA=E:\TEST1\AA\
:
: 2. 请确保设置的所有目录均已创建.
: 3. 文件名中, 除了用于分割扩展名的 ".", 不能再有其他 "."
: 即, 不能有 abc.de.txt 这样的文件名
:-----------------------------------------------

set folderA=E:\TEST1\AA
set folderB=E:\TEST1\AA
set folderC=E:\TEST1\CC
set folderD=E:\TEST1\DD
set folderE=E:\TEST1\EE
set folderF=E:\TEST1\FF

:start
set folderB=%folderB:\=\\%
set folderE=%folderE:\=\\%

:part1
cd /d %folderA%
dir /a:-d /b |awk "BEGIN{FS=\".\"} !/\.zip/ {printf  \"7za a -tzip \042%folderB%\\%%s.zip\042 \042%%s\042\n\",  $1, $0}"|cmd
md %folderA%\__back
move /y %folderA%\*.zip %folderA%\__back\
move /y %folderA%\*.* %folderC%\
move /y %folderA%\__back\*.zip %folderA%\
rd %folderA%\__back

:part2
cd /d %folderD%
dir /b *.zip | awk "BEGIN{FS=\".\"} {printf \" 7za e -o\042%folderE%\042 \042%%s\042\n\", $0}"|cmd
move /y *.zip %folderF%\

:settimer
set winfolder=%windir:\=\\%
at /delete /y
echo %time%|awk "BEGIN{FS=\":\"}{printf \"at %%d:%%d %winfolder%\\pack.cmd\n\", $1, $2 + 5}"|cmd
:end

:----------------------------end here


另: 看完 4400 居然两点多了. 然后开始失眠.
正好最近在整脚本, 以及 at 什么的. 就写下了上面的文字. 见笑了.
也有些困了. 没太多测试. bug 难免. 见谅

free391

QUOTE:

Originally posted by nico at 2005-4-16 04:01:
见附件.
附件中 zip 文件中有三个文件.

1. pack.cmd
也就是脚本程序. 实现压缩, 解压, 移动文件等功能.

2. awk.exe 一个 unix 工具的 win 版本. 用于字符串处理.

3. 7za.exe 一个开源的压缩工具. 主 ...

非常好！我在WINDOWS XP上测试了一下，达到了效果。尽管我只是通过手工双击 PACK.CMD来实现的。

我对怎么使用“At 目录运行 bat 脚本”不懂，无法实现定时自动运行。不过没关系，我弄个快捷方式在桌面，双击时有个黑影闪过，算了，我克服一下就是了。

有机会我再在WIN98和WIN2000上再试一下，看看行否。  WIN2000上用时应该是把文件复制到WINNT目录吧？

另外，如果指定文件夹是网络上文件夹不知道有没有关系？（也就是其它网络电脑的文件夹，通过因设网络驱动器过来的。）

还有，PM我地址一下，给你寄小红点。
小红点的图请看：
http://www.thinkpad.cn/forum/vie ... E%DB%DA%B8%A3%CC%EF

nico

昨天敲的有些快了. 没有检查.
我说的是 at 命令运行脚本..
还有 "所以不用担心每 5 分钟会有 cmd 查看一闪而过"
应该是 "...不会有 cmd 窗口一闪而过"

其实只要你执行了一次 pack.cmd, 那么它就会在以后的每 5 分钟自动再次执行了.
也就是你想要实现的功能
所以你其实不用在桌面上建立快捷方式了.

win2000 的默认安装目录是 winnt. 所以 win2000 下应该把 zip 文件解压缩到 winnt 下.

win98 忘了是不是支持 at 命令. 所以可能不能用于 98 的系统. win2000 应该没有问题.

如果是其他机器的共享目录. 需要是网络映射盘.
打开 "我的电脑/高级/映射网络驱动器..." 来设置.

至于小红点. 地址已 PM. 谢谢. 呵呵.

nico

幸福来得太突然...

千言万语浓缩成三个字-------"多~谢~了"

一定再接再厉.拿更多的积分

mqkng

程序写好,看看PP界面,上传程序给你
大小:19KB,需要安装WINRAR 3.30以上版本(其他版本没有测试)

文件压缩与解压管理 V1.0说明

1、程序是应www.ibmnb.com 网友 free391 要求开发；  
2、需要WinRAR 3.30 以上版本支持，并请指定WinRAR 3.30 以上版本主程序所在目录位置,生成的文件是ZIP不是RAR哟；
3、其他按要求设置便可；
4、支持文件夹全部文件压缩,所有ZIP文件解压到指定目录,重名完全不提示覆盖，ＺＩＰ文件名按日期时间生成等；
5、绿色程序；

更多信息致电：  13608129686  mqkng@163.net

大小:19KB,需要安装WINRAR 3.30以上版本(其他版本没有测试)

WINRAR下载
http://home.bacocis.com/mqkng/WINRAR.RAR

专门网下载
http://www.ibmnb.com/viewth ... d=dTUUMI#pid2692408

直接下载
http://home.bacocis.com/mqkng/FileZipUN.RAR





试问你一下,,,你用这个程序主要做什么,我分析好像是股票类数据传送什么的

[ Last edited by mqkng on 2005-4-18 at 01:14 ]

_1234

不少人对这个问题感兴趣啊， 我自动放弃那个红点了.（其实也不是为了这个）
楼主送给别的XD吧。

另：楼上的图看不到

patrick13

看得我目瞪口呆

feilang

对我来看，天书？！

ivuyc

占个位,
想看看21楼是怎么做的..

cxmsw

专门网，我服了！！！

mqkng

楼主,今天花了近一天时间约15小时做好了,请测试,

不图啥子啊,就为网友解决问题哟,如果你感觉行,就说声"行"....

[ Last edited by mqkng on 2005-4-17 at 21:04 ]

mqkng

楼主,,关于AA内有ZIP文件时..本系统将全部压缩成新ZIP文件并移动到CC里,所以建议你在AA内不要存放ZIP文件,,如果要按你说的做,也很容易,只需在程序中加入代码判断就可,多些代码罢了,,我仔细分析你的要求后,应该不是必须的,所以你最好改正下你们在交换文件时对文件名命名的习惯吧,并严格执行......


想了下,,还是按你要求改下吧.....进行中

完成,,请楼主测试......


愿工作顺利

[ Last edited by mqkng on 2005-4-17 at 21:49 ]

fyxyz

牛人，虽然看不懂，但心里还是热乎乎的，因为我们每个人都会有些问题要解决，也许哪天就轮到你我了呢？

cayman

此帖堪称典范。找回了2年多前初来专门网的感觉。兄弟们真正强