523066680

建议
        把 文字说明简洁化，排版 然后一次说明
      然后像输入参数一样，把所有决策一次输入。

选项上建议改成 Y / N 形式，方便输入。

假如是一步步的，我觉得顺序也应该稍微改改~  俺有事先忙去了哈……
虽然你的id上有jay字眼……

523066680

呼，昨晚试着整理了楼主的要求文字，因为感觉按题目做出来的批处理也不会很好用。
所以就做不下去了……

建议楼主进入本论坛的其中一个群(首页有个栏目会介绍批处理群)
找找群里的共享资料，学学然后，试着做，有攻不透的地方可以在群里或论坛询问。


我的网盘 最后一个目录里面也有批处理资料  http://523066680.ys168.com

   (>教程\批处理)

[ 本帖最后由 523066680 于 2009-7-25 09:11 编辑 ]

523066680

楼主对信息进行了整理，看得出来很有诚意，发到我的短信息里来了
我现在代发上来。由于我暂时没有编写的环境条件，望有时间的朋友可以帮帮忙

功能就是：
1、能给指定的文件进行重命名（如果用户输入的地址为文件夹，那将重命名文件夹下所有文件）
2、重命名之后，能生成重命名名单。为了防止出错，给用户反悔的机会，会生成还原原文件名。

我要的效果：给所有文件或者文件末尾加个字母s，2。可以随便命名任何后缀名的文件，并且我只要1bak加文件名~nbak加文件名就可以了，比如1.txt，2.txt,3.txt批处理后为1bak1.txt 2bak2.txt 3bak3.txt，批处理背景颜色为绿色。



这个代码的实际用途：用来帮助别人的  重命名文件的  我是主管 很多时候公司的电脑都叫我帮他们看下电脑，最近有了这个批处理就能提高维护电脑的效率，节省不必要的时间浪费，请大家帮帮忙——

[ 本帖最后由 523066680 于 2009-7-26 08:39 编辑 ]

523066680

这个"广告"只算为了学习～  一般而言论坛严禁 卖东西的广告

我正在做了，如果我觉得我做的可以，就会拿上来。

523066680

为了操作，批处理方式打包发上来了
执行以下批处理(在windows下适用)  将生成smalltool文件夹
然后工具rn.bat放在里面
   执行rn.bat的某个后，该文件夹生成back.bat文件，如果需要还原
操作，则双击back.bat 暂时只支持一次操作恢复。
   如果要实现多个恢复，得费些功夫了……

恢复功能暂时之回复

::打包:if_exist 打包工具http://bbs.bathome.net/viewthread.php?tid=2618
@set file="rn.bat" 
@echo off
if not exist smalltool md smalltool
for %%a in (%file%) do (call :setup %%~a)
exit
:setup
set "act="
for /f "delims= eol=" %%a in (%~nx0) do (
  if "%%a"=="::%* end" (goto :eof)
  if defined act echo,%%a>>"smalltool\%*"
  if "%%a"=="::%*" errcommand>"smalltool\%*" 2>nul&set act=act
)
::rn.bat
@echo off &setlocal enabledelayedexpansion
title 批量重命名工具
echo, &echo,  请输入将执行批量重命名操作的路径,如: F:\tempfolder\
echo, &echo,  注:  输入路径不需要加双引号,由批处理做统一处理.
echo,
:a
  set /p inp="请输入操作路径:"
if not exist "%inp%" (echo, -输入不正确&echo, &goto :a)
if not "%inp:~-1%"=="\" (set inp=%inp%\)
:b
  set /p inp2="请输入将要批量重命名的文件的格式（如: txt）:"
if not exist "%inp%*.%inp2%" (echo, 不存在该格式 &echo, &goto :b)
:c
  echo,@echo off>back.bat
  echo,&echo, 1  批量把%inp% 目录下的 %inp2%文件按pak1~pakn 顺序重命名
  echo,&echo, 2  批量给文件后缀加s
  echo,
  set /p inp3="请选择操作模式:"
  if "%inp3%"=="1" (goto :listname)
  if "%inp3%"=="2" (goto :adds) else (echo, -请正确输入 &goto :c)
:listname
set /a n=1
ren "%inp%*.%inp2%" *.x_x
::上面这句ren是为了避免偶尔出现的细节上的冲突
for /f "tokens=*" %%a in ('dir "%inp%*.x_x" /b') do (
   echo,ren "%inp%pak!n!.%inp2%" "%%a">>back.bat
   ren "%inp%%%a" pak!n!.%inp2%
   set /a n+=1
)
echo,ren "%inp%*.x_x" *.%inp2%>>back.bat
goto :over
:adds
ren "%inp%*.%inp2%" *.%inp2%s
echo,ren "%inp%*.%inp2%s" *.%inp2%>>back.bat
goto :over
:over
echo,任务结束。Press any key to exit...
pause>nul &exit
::rn.bat end
复制代码

[ 本帖最后由 523066680 于 2009-7-26 16:46 编辑 ]

523066680

楼主的这个帖子的题目要改改，类似：批量重命名和恢复操作

原题目别人一看“批处理如何重命名文件或者文件夹” ，不就是直接ren?

523066680

已经对出现的失误进行了修改，做个评审吧~。
改颜色的话就自己来啦……

[ 本帖最后由 523066680 于 2009-7-26 16:53 编辑 ]

523066680

按你的要求，实现了可选择多个恢复的功能

下面代码执行生成 smalltool 文件夹  里面有 rn.bat 和 Returnx.bat

执行 rn.bat 后  生成backz.cmd  
再次rn.bat的话 原来的back批处理会被加上编号，然后生成新的 backz.cmd
backz.cmd都是刚生成的。rn.bat会在back批处理首行写入时间和操作信息。
      这个时候如果要恢复，可以打开Returnx.bat  
它会列出每个back批处理对应的时间和当时选择的操作数，这个时候自己根据信息选择
一个Back文件名，输入。
      通过Returnx.bat 执行 back 操作，会对应的删除那个back文件。
      每次执行rn.bat的时候都会对back文件名做整理使其按顺序排好名字

@set file="rn.bat" "Returnx.bat" 
@echo off
for %%a in (%file%) do (call :setup %%~a)
exit
:setup
if not exist smalltool md smalltool
set "act="
for /f "delims= eol=" %%a in (%~nx0) do (
  if "%%a"=="::%* end" (goto :eof)
  if defined act echo,%%a>>"smalltool\%*"
  if "%%a"=="::%*" errcommand>"smalltool\%*" 2>nul&set act=act
)
::Returnx.bat
@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('dir back* /b') do (
  set /p now=<%%a
  echo, %%~na -- !now!
)
set /p cho="输入对应的还原批处理脚本名称（无需格式）:"
call %cho%.cmd
del %cho%.cmd
echo,执行完成
pause

::Returnx.bat end
::rn.bat
@echo off &setlocal enabledelayedexpansion
title 批量重命名工具
echo, &echo,  请输入将执行批量重命名操作的路径,如: F:\tempfolder\
echo, &echo,  注:  输入路径不需要加双引号,由批处理做统一处理.
echo,
:a
  set /p in="请输入操作路径:"
if not exist "%in%" (echo, -输入不正确&echo, &goto :a)
if not "%in:~-1%"=="\" (set in=%in%\)
:b
  set /p in2="请输入将要批量重命名的文件的格式（如: txt）:"
if not exist "%in%*.%in2%" (echo, 不存在该格式 &echo, &goto :b)
:
set bk=1
:sortback
if exist back* (set "inp=%~dp0" &set "inp2=cmd" &set "spc=back" &call :listname ::)
set inp=%in%
set inp2=%in2%

:
   echo,&echo, 1  批量把%inp% 目录下的 %inp2%文件按pak1~pakn 顺序重命名
   echo,&echo, 2  批量给文件后缀加s
   echo,
:
  :c
  set /p inp3="请选择操作模式:"
  echo,::%date% , %time% , %inp% 选择的操作 %inp3% >backz.cmd
  if "%inp3%"=="1" (goto :listname)
  if "%inp3%"=="2" (goto :adds) else (echo, -请正确输入 &goto :c)

:listname
if "%1"=="" (set spc=pak)
set /a n=1
ren "%inp%*.%inp2%" *.x_x
::上面这句ren是为了避免偶尔出现的细节上的冲突
for /f "tokens=*" %%a in ('dir "%inp%*.x_x" /b') do (
%1 echo,ren "%inp%%spc%!n!.%inp2%" "%%a">>backz.cmd
   ren "%inp%%%a" %spc%!n!.%inp2%
   set /a n+=1
)
%1 echo,ren "%inp%*.x_x" *.%inp2%>>backz.cmd
if "%1"=="::" (goto :eof)
goto :over
:
:adds
ren "%inp%*.%inp2%" *.%inp2%s
echo,ren "%inp%*.%inp2%s" *.%inp2%>>backz.cmd
goto :over
:
:over
echo,任务结束。Press any key to exit...
pause>nul &exit

::rn.bat end
复制代码

[ 本帖最后由 523066680 于 2009-7-26 19:02 编辑 ]

523066680

我算是仁至义尽了，楼主可不要有下个帖子这样，我会抓狂。

说明要排版好，重点要抓好，重要细节要说明。不要等别人写得老久，又提出"新的要求"


还有，如果还有类似的请求，请自己学好，做的过程有问题再来问，不是每个人都愿意这么费力帮忙。
我第一次像尽义务一样帮到这个程度。真的要用批处理，请自己学好它。

                                                           
                                                                                                        ----看在jay的份上

[ 本帖最后由 523066680 于 2009-7-26 19:09 编辑 ]

523066680

我这边执行14楼的代码没有任何错误。

请把原来的smalltool删除  保存14楼代码的时候请用这个名字 parcel.bat
再执行看看
另外，如果你说的是parcel.bat自动退出，这个parcel本身就是个包裹，分解后就是要自动退出的。

下面我上传了一个 smalltool.rar

523066680

现在感觉欣慰多了~
昨天因为在这件事上花的时间较多,后来又要修改所以耐心消磨掉了
发了点火不好意思……