[其他] 检测文件夹变化的批处理怎样合并？

Rank: 8 Rank: 8

帖子: 1348
积分: 5192
技术: 145
捐助: 501
注册时间: 2007-10-25

2楼

发表于 2008-6-11 23:13 | 只看该作者

　　为保险起见，请用文字告知你的意图，因为只看代码，难保不会出现理解上的偏差——如果代码本身有问题的话，更容易给数据带来灾难性的后果。

尺有所短寸有所长，学好批处理没商量；
考虑问题复杂化，解决问题简洁化。
心在天山，身老沧州。

hbb

Rank: 3 Rank: 3

帖子: 48
积分: 242
技术: 0
捐助: 0
注册时间: 2008-6-11

3楼

发表于 2008-6-11 23:15 | 只看该作者

我是做了个检测文件夹变化的批处理
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
if exist z:\ goto run
:映射
net use Z: /delete /yes
net use Z: \\192.168.0.11\d$\fax /yes "cmpadmin" /user:cmpadmin
if not exist z:\ goto 映射
:run
for /f "tokens=1,2,3* delims=- " %%a in ('date /t') do set dt=%%a-%%b-%%c
if not exist z:\%dt% md z:\%dt%
if not exist z:\*.txt goto time
mshta vbscript:createobject("sapi.spvoice").speak("fax comming")(window.close)
mshta vbscript:msgbox("传真来了！",64,"提示")(window.close)
for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) do start /wait z:\"%%a"
for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) do move z:\"%%a" z:\%dt%
:time
ping 127.0.1 /n 10>nul
goto begin

hbb

Rank: 3 Rank: 3

帖子: 48
积分: 242
技术: 0
捐助: 0
注册时间: 2008-6-11

4楼

发表于 2008-6-11 23:18 | 只看该作者

for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) do start /wait z:\"%%a"
for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) do move z:\"%%a" z:\%dt%
这两句我想合并为
for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) do start /wait z:\"%%a" do move z:\"%%a" z:\%dt%
但是执行不了

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

5楼

发表于 2008-6-11 23:21 | 只看该作者

这两句代码本身就问题，还是用文字说明你的意图吧。
否则错误的代码会把解题的人引到一个错误的方向。

技术问题请到论坛发帖求助！

hbb

Rank: 3 Rank: 3

帖子: 48
积分: 242
技术: 0
捐助: 0
注册时间: 2008-6-11

6楼

发表于 2008-6-11 23:27 | 只看该作者

for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) do start /wait z:\"%%a"
for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) do move z:\"%%a" z:\%dt%
这两句中我都取了%%e作为变量，我只想要把两句合成一句剩去for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do for %%a in (%%e) 这句话
老大帮忙看看，谢谢！

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

7楼

发表于 2008-6-11 23:35 | 只看该作者

代码本身就很不健康，既然你执意只要合并这两句，就按你的思路给你合并如下。
:

@echo off
for /f "tokens=1-5" %%a in ('dir z:\*.txt^|find "%dt%"') do (
   for %%i in (%%e) do (
      move "z:\%%i" "z:\%dt%"
      start /wait "" "z:\%dt%\%%i"
    )
)
pause
复制代码

技术问题请到论坛发帖求助！

hbb

Rank: 3 Rank: 3

帖子: 48
积分: 242
技术: 0
捐助: 0
注册时间: 2008-6-11

8楼

发表于 2008-6-11 23:43 | 只看该作者

ok，非常可以，谢谢！

hbb

Rank: 3 Rank: 3

帖子: 48
积分: 242
技术: 0
捐助: 0
注册时间: 2008-6-11

9楼

发表于 2008-6-11 23:53 | 只看该作者

巡查大人，按照您的意思代码应该怎样修改才健康？谢谢不吝赐教！

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

10楼

发表于 2008-6-12 00:01 | 只看该作者

都说了要你用文字表达，就你的代码看，第二个for就应该是多余的。。并且txt文件名都必须是以空格分为5列的。
但不知道你的txt文件名都有什么规律。所以只是估计。。。

[ 本帖最后由随风于 2008-6-12 00:04 编辑 ]

技术问题请到论坛发帖求助！

hbb

Rank: 3 Rank: 3

帖子: 48
积分: 242
技术: 0
捐助: 0
注册时间: 2008-6-11

11楼

发表于 2008-6-12 00:05 | 只看该作者

txt文件名的规则是按数字顺序排列的
您再帮我看看代码应该怎样修改或者精简吧！

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

12楼

发表于 2008-6-12 00:06 | 只看该作者

关看代码帮不到你，

技术问题请到论坛发帖求助！

hbb

Rank: 3 Rank: 3

帖子: 48
积分: 242
技术: 0
捐助: 0
注册时间: 2008-6-11

13楼

发表于 2008-6-12 00:08 | 只看该作者

呵呵，谢谢了，代码我修改了下
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
if exist z:\ goto run
:映射
net use Z: /delete /yes
net use Z: \\192.168.0.11\d$\fax /yes "cmpadmin" /user:cmpadmin
if not exist z:\ goto 映射
:run
for /f "tokens=1,2,3* delims=- " %%a in ('date /t') do set dt=%%a-%%b-%%c
if not exist z:\%dt% md z:\%dt%
if not exist z:\*.txt goto time
mshta vbscript:createobject("sapi.spvoice").speak("fax comming")(window.close)
mshta vbscript:msgbox("传真来了！",64,"提示")(window.close)
for /f "tokens=1,2,3,4,5" %%a in ('dir z:\*.txt^|find "%dt%"') do (
for %%a in (%%e) do (
start /wait z:\"%%a"
move z:\"%%a" z:\%dt%
)
)
:time
ping 127.0.1 /n 10>nul
goto begin