批处理修改文件名称 值得学习

@echo off
 
::--------------------------------------------------------------------------------------------------------用户参数赋值----------------------
 
::是否删除原有任务(注意:如果设为Y后,会删除系统的所有计划任务,请谨慎设定)
set pDelFlag=N
::请设定关机延迟小时数
set pDefHour=1
::请设定关机延迟分钟数
set pDefMinute=0
 
::--------------------------------------------------------------------------------------------------------系统参数赋值----------------------
 
set xpProgName=文件批量改名程序
set xpFileName=ChgName.bat
set xpAuthor=Taoether
set xpProgVer=1.0.0.1
set xpSupport=http://www.taoyoyo.net/ttt/post/458.html
set xpEmail=taoether@gmail.com
set xpMode=A
set xpDebug_Flag=0
::设置颜色方案
::xpColorDef--程序默认颜色配置 3e
::xpColorErr--程序错误时颜色配置 84, e4
::xpColorOth-- 其它颜色,比如帮助,版本信息 3f
::xpColor1,xpColor2--各程序自定义颜色
::默认方案--------3e,84,3f
set xpColorDef=30
set xpColorErr=84
set xpColorOth=3f
set xpColor1=30
set xpColor2=f4
goto lblInitialize 
 
::--------------------------------------------------------------------------------------------------------程序说明-------------------------
::此段为注释:
::批量改名程序,可以批量将文件名修改为文件日期+文件名
::需要加参数:1,文件;2,源目录;3,目标目录;4,是否带原文件名;5,指定文件名 
::不能在同一目录操作,有可能会重复修改……
 
::如:ChgName *.jpg D:\MyTemp\PHOTO d:\photo --将D:\MyTemp\PHOTO下*.jpg修改名字,保存到d:\photo\*.jpg
 
::--------------------------------------------------------------------------------------------------------系统初始化-------------------------
:lblInitialize 
goto lblStart
 
::--------------------------------------------------------------------------------------------------------环境设定子程序--------------------
:prSetDisplay
    ::cls
    color %1
    ::mode con lines=%2 cols=%3
    title 欢迎使用 %xpProgName%/%xpFileName%_V%xpProgVer% [By %xpAuthor%]    
    echo.
    echo     【欢迎使用 %xpProgName%/%xpFileName%_V%xpProgVer% By %xpAuthor%】
    Rem echo 欢迎使用!xpAuthor!编制的!xpProgName!(!xpFileName!) !xpProgName!_V!xpProgVer!
    echo.
    ::echo     当前程序运行模式=[%xpMode%]
goto :eof
 
::--------------------------------------------------------------------------------------------------------程序判断-------------------------
:lblStart
 
    if /I "%1"=="Version" goto lblVer
    if /I "%1"=="Ver" goto lblVer
    if /I "%1"=="V" goto lblVer
    if /I {%1}=={Help} goto lblhelp
    if /I "%1"=="H" goto lblhelp
    if /I {%1}=={H} goto lblhelp
    if /I {%1}=={?} goto lblhelp

    if {%1}=={} goto lblError
    if {%2}=={} goto lblError
    if {%3}=={} goto lblError
    if {%2}=={%3} goto lblError
    if not exist %2 goto lblError
    
goto lblMain
 
::--------------------------------------------------------------------------------------------------------帮助-------------------------
:lblhelp 
    Call :prSetDisplay %xpColorOth% 45 76
    echo.
    echo Help:
    echo -----------------------------------------
    echo  此程序可以批量修改文件名,默认将文件名修改为[文件日期时间+序号];也可以指定文件名,文件名修改为[指定文件名+序号];同时,也可保留原文件名。   
   ::批量改名程序,可以批量将文件名修改为文件日期+文件名
   ::需要加参数:1,文件;2,源目录;3,目标目录;4,是否带原文件名【】〖〗
 
    echo.
    echo  【用法】 %xpFileName% [参数1:文件] [参数2:源目录] [参数3:目标目录] [参数4:是否保留原文件名] [参数5:指定文件名]
    echo. 
    echo  【说明】
    echo    参数1:要修改名称的文件,支持通配符,如*.jpg、10*.jpg
    echo    参数2:源目录--要改名文件的所在目录
    echo    参数3:目标目录--改名后文件存放的目录,如果没有此目录,程序会自动创建目录
    echo    参数4:是否保留原文件名--非必要参数:设置此参数=Y时,保留原文件名(此时命名中不加序号);此参数=N时,不保留原文件名,此时命名中会添加序号。
    echo    参数5:设置特定文件名--非必要参数:设置此参数时,以[参数5+序号/原文件名]命名;不设置时,以[文件的日期时间+序号/原文件名]命名。
    echo.
    echo  【注意】
    echo    1,参数1~3为必填参数,不能为空! 
    echo    2, 目录最后必须带斜杠"\"
    echo    3,源目录和目标目录不能为同一目录
    echo    4, 目标目录如果不存在时,程序会自动创建目录
    echo.
    echo  【此外】
    echo    参数1=Version,显示程序版本   (Version=Ver=V)
    echo    参数1=Help,显示程序帮助      (Help=H=?)
    echo.
    echo  【示例】
    echo     %xpFileName% *.jpg d:\photo\ d:\new\
    echo       处理文件夹d:\photo\中的*.jpg文件,复制到目录d:\new\中,不保留原文件名,按[文件的日期时间+序号]命名。
    echo     %xpFileName% *.jpg d:\photo\ d:\new\ Y
    echo       处理文件夹d:\photo\中的*.jpg文件,复制到目录d:\new\中,保留原文件名,按[文件的日期时间+原文件名]命名。
    echo     %xpFileName% 10*.jpg d:\photo\ d:\new\ N 20100910
    echo       处理文件夹d:\photo\中的10*.jpg文件,复制到目录d:\new\中,不保留原文件名,按[20100910+序号]命名。
    echo     %xpFileName% 10*.jpg d:\photo\ d:\new\ Y 20100910
    echo       处理文件夹d:\photo\中的10*.jpg文件,复制到目录d:\new\中,保留原文件名,按[20100910+原文件名]命名。
    echo.
    echo  【相关说明】 %xpSupport%
    echo  【技术支持】 %xpEmail%
    echo -----------------------------------------
    call :lblAd
goto lblEnd
 
::--------------------------------------------------------------------------------------------------------版本-------------------------
:lblVer
    Call :prSetDisplay %xpColorOth% 45 76
    echo.
    rem 重要声明:
    rem 本程序由陶永利编写,您可以任意传播,但请不要删除以下信息!
    rem 如用于商业用途,请与作者联系。
    echo     Version:
    echo     ------------------------------
    echo        Program: %xpProgName% / %xpFileName%
    echo        Author: %xpAuthor%
    echo        Version: %xpProgVer%
    echo        IssueTime: 20100526
    echo        UpdateTime: 
    echo        Email: %xpEmail%
    echo        Blog: http://www.taoyoyo.net/ttt/
    echo        HomePage: http://www.taoyoyo.net/
    echo     ------------------------------
    echo.
    echo     Version Log:
    echo     -----------------------------------------
    echo      Ver.   Date.     Log.
    echo     -----------------------------------------
    echo     V1000  20100526  New program issue.
    echo     V1001  20101010  Optimize program
    echo. 
    echo     ...
    echo     -----------------------------------------
    echo 相关说明:%xpSupport%
    echo 技术支持:%xpEmail%
    Call :lblAd
goto lblEnd
 
::--------------------------------------------------------------------------------------------------------错误处理-------------------------
:lblError
    Call :prSetDisplay %xpColorErr% 15 76
    echo.
        ::echo  【相关说明】 %xpSupport%
        ::echo  【技术支持】 %xpEmail%
        ::echo    --相关说明: %xpSupport%  技术支持: %xpEmail% 
        ::echo    --相关说明: %xpSupport%  技术支持: %xpEmail% 
    echo  【程序错误】
    echo.
    if {%1}=={} (
        echo    参数不足!
        echo.
        echo    此命令需要三个必选参数:
        echo        [参数1:文件]
        echo        [参数2:源目录]
        echo        [参数3:目标目录]
        echo    还有一个选填参数:
        echo        [参数4:是否保留原文件名]
        echo        [参数5:指定文件名]
        echo.
        echo    请键入[%xpFileName% H]查看帮助信息
        echo.        
        echo    --相关说明: %xpSupport%
        echo    --技术支持: %xpEmail% 
        goto lblEnd
        )
    if {%2}=={} (
        echo    参数不足!
        echo.
        echo    此命令需要三个必选参数:
        echo        [参数1:文件]
        echo        [参数2:源目录]
        echo        [参数3:目标目录]
        echo    还有一个选填参数:
        echo        [参数4:是否保留原文件名]
        echo        [参数5:指定文件名]
        echo.
        echo    请键入[%xpFileName% H]查看帮助信息
        echo.
        echo    --相关说明: %xpSupport%
        echo    --技术支持: %xpEmail% 
        goto lblEnd
        )
    if {%3}=={} (
        echo    参数不足!
        echo.
        echo    此命令需要三个必选参数:
        echo        [参数1:文件]
        echo        [参数2:源目录]
        echo        [参数3:目标目录]
        echo    还有一个选填参数:
        echo        [参数4:是否保留原文件名]
        echo        [参数5:指定文件名]
        echo.
        echo    请键入[%xpFileName% H]查看帮助信息
        echo.
        echo    --相关说明: %xpSupport%
        echo    --技术支持: %xpEmail% 
        goto lblEnd
        )
    if /I {%2}=={%3} (
        echo    参数错误!
        echo.
        echo    源目录和目标目录相同,这样会导致重复命名,请修改参数。
        echo.
        echo    请键入[%xpFileName% H]查看帮助信息
        echo.
        echo    --相关说明: %xpSupport%
        echo    --技术支持: %xpEmail% 
        goto lblEnd
        )
    if not exist %2 (
        echo    源目录错误!
        echo.
        echo    源目录[%2]不存在,请检查后重新输入。
        echo.
        echo    请键入[%xpFileName% H]查看帮助信息
        echo.
        echo    --相关说明: %xpSupport%
        echo    --技术支持: %xpEmail%
        goto lblEnd
        )
    )    
           
    echo.
    
goto lblEnd
 
::--------------------------------------------------------------------------------------------------------广告-------------------------
:lblAd
    echo.
    ::echo ----------
    echo 【一点广告】
    ::echo ----------
    echo     本资料由悠悠网, TTT BLOG提供,欢迎访问!
    echo     [悠悠网] http://www.taoyoyo.net/
    echo     [TTT BLOG] http://www.taoyoyo.net/ttt/
    echo     联系我们:taoether@gmail.com
goto :eof
 
======下面是广告时间~~======
 
本资料由悠悠网提供,欢迎访问悠悠网:http://www.taoyoyo.net/
 
悠悠网,精心为大家收集整理精品网络资源!
 
欢迎进入--
  [猫腻小说] http://www.taoyoyo.net/maoni/ 
    专门收集整理猫腻的作品,保证原汁原味,有前后题记,更新时间,全部手工编辑整理,便于阅读和收藏,并开通wap功能(手机阅读),以及邮件,RSS订
 
阅功能!
  [猫腻论坛] http://www.taoyoyo.net/mao/ 
    这里是猫腻书迷的家,是由猫腻书迷自发组织的论坛,专门讨论猫腻的小说,并收集猫大的各种新闻,作品!
  [经典小游戏] http://www.taoyoyo.net/mgame/
    收集整理经典的小游戏,绝对经典,不经典不收集,可以下载,可以在线玩,并有游戏说明,攻略,心得!
  [我的资源] http://www.taoyoyo.net/cpost/res/res_home.ASP
    收集整理经典的小说、学习资料、精品软件等。
  [TTT BLOG] http://www.taoyoyo.net/ttt/ 
    我的博客,生活点滴,心得体会,希望与更多的朋友分享!(关注oracle,delphi,java,Linux,unix,以及网站知识!)
  [YOYO BLOG] http://www.taoyoyo.net/yoyo/ 
    女儿的博客,记录我的宝贝女儿的生活点滴,瞬间,留下美好的回忆!
 
  [悠悠文摘] http://www.taoyoyo.net/lib/ 
    悠悠周刊网站,精心收集整理精品文摘,并发行免费电子杂志<悠悠周刊>
 
联系我们:taoether@gmail.com

::--------------------------------------------------------------------------------------------------------临时保存代码-------------------------
    ::保留原文件名
    ::copy %%i %3!pFNewName!_%%~nxi
    ::不保留原文件名 
    ::copy %%i %3!pFNewName!%%~xi
for /r %2 %%i in (%1) do (
    set pFTime=%%~ti  
    set pFNewName=!pFTime:~0,4!!pFTime:~5,2!!pFTime:~8,2!_!pFTime:~11,2!!pFTime:~14,2!
    set /a pNo=!pNo!+1
    if /I "%4"=="Y" (
        copy %%i %3!pFNewName!_%%~nxi
        echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_%%~nxi
       )
    if /I not "%4"=="Y" (
        copy %%i %3!pFNewName!_!pNo!%%~xi
        echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_!pNo!%%~xi
       )    
) 

::--------------------------------------------------------------------------------------------------------主程序-------------------------
:lblMain
 
  Call :prSetDisplay %xpColorDef%  
 
@echo off
setlocal enabledelayedexpansion
echo.
::echo    参数:%1 ,%2 ,%3 , %4
echo    将目录[%2]中的文件%1,复制到目录[%3]中,并修改文件名……
echo.
echo ---处理如下---
echo.
::如果目标目录不存在时,创建
if not exist %3 (
    echo    目标目录[%3]不存在,正在创建……
    md %3 
    echo    --目标目录创建成功!
    echo.
)    
set pNo=0
for /r %2 %%i in (%1) do (
    set pFTime=%%~ti
    if /I {%5}=={} (
        ::以文件的日期时间命名
        set pFNewName=!pFTime:~0,4!!pFTime:~5,2!!pFTime:~8,2!_!pFTime:~11,2!!pFTime:~14,2!
    ) else (
        ::以任意名称命名
        set pFNewName=%5
    )
    set /a pNo=!pNo!+1
    if /I "%4"=="Y" (
        copy %%i %3!pFNewName!_%%~nxi
        echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_%%~nxi
    ) else (
        copy %%i %3!pFNewName!_!pNo!%%~xi
        echo !pNo! %%~nxi - %%~ti 更名为 !pFNewName!_!pNo!%%~xi
    )    
)
 
goto lblEnd
 

::--------------------------------------------------------------------------------------------------------程序结束------------------------- 
:lblEnd
echo.
pause

 

  调试再调试,不完美不罢休……太浪费时间了!
 
  终于完成了,自认为功能很强大,而且很完美了~~想到的功能都加上了,想到的错误也都排除了……
 
  虽然是为了修改相片作的,但绝对适用于修改任何文件……欢迎使用,欢迎指正!
   
  主要功能介绍:
 
  此程序会批量命名指定文件夹中的指定文件(文件支持通配符),执行时会将文件复制到指定目录下进行修改名称。
 
  1,默认情况下,重命名为:[文件日期时间+序号]
  2,也可以保留原文件名,这时不带序号:[文件日期时间+原文件名]
  3,也可指定文件名,此时文件重命名为:[指定文件名+序号]或[指定文件名+原文件名]
  4,以上情况用5个参数控制,使用起来还算方便。
  5,加入帮助功能,而且一改再改,为的是让别人上手就能明白,充分使用此程序。
  6,加入排错功能,一般错误都有提示。
 
  下载地址:http://down.qiannao.com/space/file/taoether/-4e0a-4f20-5206-4eab/-8f6f-4ef6-5de5-5177/ChgName.rar/.page

===================
     程序帮助
===================

    【欢迎使用 文件批量改名程序/ChgName.bat_V1.0.0.1 By Taoether】
Help:
-----------------------------------------
 此程序可以批量修改文件名,默认将文件名修改为[文件日期时间+序号];也可以指定文件名,文件名修改为[指定文件名+序号];同时,也可保留原文件名。

 【用法】 ChgName.bat [参数1:文件] [参数2:源目录] [参数3:目标目录] [参数4:是否保留原文件名] [参数5:指定文件名]

 【说明】
   参数1:要修改名称的文件,支持通配符,如*.jpg、10*.jpg
   参数2:源目录--要改名文件的所在目录
   参数3:目标目录--改名后文件存放的目录,如果没有此目录,程序会自动创建目录
   参数4:是否保留原文件名--非必要参数:设置此参数=Y时,保留原文件名(此时命名中不加序号);此参数=N时,不保留原文件名,此时命名中会添加序号。
   参数5:设置特定文件名--非必要参数:设置此参数时,以[参数5+序号/原文件名]命名;不设置时,以[文件的日期时间+序号/原文件名]命名。

 【注意】
   1,参数1~3为必填参数,不能为空!
   2, 目录最后必须带斜杠"\"
   3,源目录和目标目录不能为同一目录
   4, 目标目录如果不存在时,程序会自动创建目录

 【此外】
   参数1=Version,显示程序版本   (Version=Ver=V)
   参数1=Help,显示程序帮助      (Help=H=?)

 【示例】
    ChgName.bat *.jpg d:\photo\ d:\new\
      处理文件夹d:\photo\中的*.jpg文件,复制到目录d:\new\中,不保留原文件名,按[文件的日期时间+序号]命名。
    ChgName.bat *.jpg d:\photo\ d:\new\ Y
      处理文件夹d:\photo\中的*.jpg文件,复制到目录d:\new\中,保留原文件名,按[文件的日期时间+原文件名]命名。
    ChgName.bat 10*.jpg d:\photo\ d:\new\ N 20100910
      处理文件夹d:\photo\中的10*.jpg文件,复制到目录d:\new\中,不保留原文件名,按[20100910+序号]命名。
    ChgName.bat 10*.jpg d:\photo\ d:\new\ Y 20100910
      处理文件夹d:\photo\中的10*.jpg文件,复制到目录d:\new\中,保留原文件名,按[20100910+原文件名]命名。

 【相关说明】 http://www.taoyoyo.net/ttt/post/458.html
 【技术支持】 taoether@gmail.com
-----------------------------------------

本资料由悠悠网提供,欢迎访问悠悠网:http://www.taoyoyo.net/
 
悠悠网,精心为大家收集整理精品网络资源!
 
欢迎进入--
  [TTT BLOG] http://www.taoyoyo.net/ttt/ 
    我的博客,生活点滴,心得体会,希望与更多的朋友分享!(关注oracle,delphi,java,Linux,unix,以及网站知识!)
  [YOYO BLOG] http://www.taoyoyo.net/yoyo/ 
    女儿的博客,记录我的宝贝女儿的生活点滴,瞬间,留下美好的回忆!
  [悠悠文摘] http://www.taoyoyo.net/lib/ 
    悠悠周刊网站,精心收集整理精品文摘,并发行免费电子杂志<悠悠周刊>
  [猫腻小说] http://www.taoyoyo.net/maoni/ 
    专门收集整理猫腻的作品,保证原汁原味,有前后题记,更新时间,全部手工编辑整理,便于阅读和收藏,并开通wap功能(手机阅读),以及邮件,RSS订阅功能!
  [猫腻论坛] http://www.taoyoyo.net/mao/ 
    这里是猫腻书迷的家,是由猫腻书迷自发组织的论坛,专门讨论猫腻的小说,并收集猫大的各种新闻,作品!
  [我的资源] http://www.taoyoyo.net/cpost/res/res_home.ASP
    收集精典的学习资料,视频,游戏,小说等资料

 
联系我们:taoether@gmail.com

 

posted on 2015-10-22 23:22  imsoft  阅读(1089)  评论(0编辑  收藏  举报

导航