中国DOS联盟

Originally posted by linjie at 2006-12-14 05:01:
拖放文件夹 然后执行 会假死

1  @echo off

2  set /p msg=请输入要重命名的路径:

3  set msg=%msg:"=%

4  set /p word=请输入要复制的文件扩展名:

5  set word=%word:"=%

6  set /p msg2=请输入新的文件夹位置及文件夹的名字(可以不存在):

7  set msg2=%msg2:"=%

8  set /p word2=请输入新的文件扩展名:

9  set word2=%word2:"=%

10 if not exist %msg2%\ md %msg2%\

11 setlocal enabledelayedexpansion

12 dir /b/on "%msg%\"*."%word%" >%msg2%\txt.lst

13 for /f %%i in (%msg2%\txt.lst) do (

14        set /a num+=1

15        set name=00!num!

16        copy %msg%\"%%i" %msg2%\!name:~-3!%.!word2!

17     )

18 )

19 del %msg2%\txt.lst

Originally posted by lotus516 at 2006-12-14 08:01:
忍不住想说,第一个简单重命名代码也太复杂了吧!!给一个我的批量COPY并重命名!!

1  @echo off

2  set /p msg=请输入要重命名的路径:

3  set msg=%msg:"= ... 

Originally posted by a9319751 at 2006-12-4 03:36 PM:
C:\Documents and Settings\Administrator>pren
GNU Pren beat1.3
Usage: pren

Startup:
/h, --help print this help.
/s, --short TV p ...

@ECHO OFF

SETLOCAL ENABLEDELAYEDEXPANSION

SET YEAR=%DATE:~0,4%&SET MONTH=%DATE:~5,2%&SET DAY=%DATE:~8,2%

CALL :ALG MONTH %MONTH%&&CALL :ALG DAY %DAY%



:TOP

CLS

SET /P BIRTHDAY=When's your birthday?(Month And Day):

ECHO %BIRTHDAY%|FINDSTR /R "^**">nul||GOTO TOP

FOR /F "tokens=1,2 delims=.:;-/" %%i IN ("%BIRTHDAY%") DO CALL :ALG BM %%i&CALL :ALG BD %%j

IF NOT %BM% GTR 0 (GOTO TOP) ELSE IF %BM% GTR 12 GOTO TOP

IF NOT %BD% GTR 0 (GOTO TOP) ELSE IF %BD% GTR 31 GOTO TOP

FOR /L %%i IN (1,1,12) DO (

       if %%i geq 8 (set d1=30&&set d2=31) else set d1=31&&set d2=30

       set /a st=%%i%%2

       if !st! equ 0 (set M%%i=!d2!) else set M%%i=!d1!)

SET /A LM=(%YEAR%-2000)%%4

IF NOT %LM% EQU 0 (SET M2=28) ELSE SET M2=29

IF %BM% GTR %MONTH% SET GO=GTR

IF %BM% EQU %MONTH% SET GO=EQU

IF %BM% LSS %MONTH% SET /A NEWYEAR=%YEAR%+1&&SET GO=LSS

GOTO %GO%



:GTR

SET /A MsgM=%BM%-%MONTH%-1

SET /A MsgD=!M%MONTH%!-%DAY%+%BD%

FOR /L %%i IN (%MONTH%,1,%BM%) DO SET /A DALL=!DALL!+M%%i

SET /A DALL=%DALL%+%MsgD%-M%MONTH%-M%BM%

GOTO MSG



:EQU

SET /A MsgM=0

IF %BD% GTR %DAY% SET /A MsgD=%BD%-%DAY%&&GOTO MSG

IF %BD% EQU %DAY% SET MsgD=0&&GOTO MSG

IF %BD% LSS %DAY% SET /A NERA=%DAY%-%BD%&&GOTO LSS



:LSS

SET /A OsgM=12-%MONTH%

SET /A OsgD=!M%MONTH%!-%DAY%

FOR /L %%i IN (%MONTH%,1,12) DO SET /A OALL=!OALL!+M%%i

SET /A OALL=%OALL%+%OsgD%-M%MONTH%

SET /A LM=(%NEWYEAR%-2000)%%4

IF NOT %LM% EQU 0 (SET M2=28) ELSE SET M2=29

SET /A NsgM=%BM%

SET /A NsgD=%BD%

FOR /L %%i IN (1,1,%BM%) DO SET /A NALL=!NALL!+M%%i

SET /A NALL=%NALL%+%BD%-M%BM%

SET /A MsgM=%OsgM%+%NsgM%-1

SET /A MsgD=%OsgD%+%NsgD%

SET /A DALL=%OALL%+%NALL%

GOTO MSG



:MSG

SET GT=0

IF %MsgD% GTR 31 SET /A MsgM=%MsgM%+1&&SET /A MsgD=%MsgD%-31

IF NOT "%NERA%" == "" (SET MSG1=  你在%NERA%天前刚过完生日!) ELSE SET MSG1=.

IF NOT "%MsgM%" == "0" (SET MSG2=  未来的生日在预计的%MsgM%个月) ELSE SET MSG2=  未来的生日在预计的

IF NOT "%MsgD%" == "0" (SET MSG3=%MsgD%天后!) ELSE SET MSG2=             &&SET MSG3=祝你生日快乐&&SET GT=5

IF NOT "%DALL%" == "" (SET MSG4=  距你生日共还有%DALL%天!) ELSE SET MSG4=.



:CON

IF NOT "%GT%" == "0" mode con cols=41 lines=7&&CLS&&SET /A GT=%GT%-1&&ECHO          Happy birthday to you

ECHO ========================================

ECHO%MSG1%

ECHO%MSG2%%MSG3%

ECHO%MSG4%

ECHO ========================================

IF NOT "%GT%" == "0" (

COLOR FC

ping 127.1 -n 1>nul 2>nul

COLOR CF

ping 127.1 -n 1>nul 2>nul

GOTO CON

)



:END

PAUSE>nul

GOTO :EOF



:ALG

SET CHKALG=%2

ECHO %CHKALG%|findstr /b "0">nul&&SET %1=%CHKALG:~1%||SET %1=%CHKALG%

GOTO :EOF

Originally posted by lxmxn at 2006-12-29 01:02 AM:

　　set /a 会识别等号后面的数字，如果等号后面第一个字符为0，就会认为是八进制数，如果等号后面前两个字符为0x，就会认为是十六 ...

Originally posted by a9319751 at 2006-12-5 03:02 PM:


谢谢你的建议
新版已经支持路径设置
增加了更改扩展名
忽略了文件夹