[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] [分享]批处理截取文件夹名的一部分对其下文件重命名

【问题描述】
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

【解决方案】
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. for /f "delims=" %%i in ('dir /b /ad') do (
  5.     echo 正在处理文件夹:%%i
  6.     for /f "tokens=1-6 delims=-(" %%a in ("%%i") do (
  7.         set "FolderSuffix1=%%c-%%d-%%e-%%f"
  8.         set "FolderSuffix2=%%c-%%d"
  9.     )
  10.     pushd "%%i"
  11.     set "n=0"
  12.     for /f "delims=" %%j in ('dir /b /a-d *.txt') do (
  13.         set /a n+=1
  14.         if !n! equ 1 (
  15.             ren "%%j" "JG-Z-!FolderSuffix1!%%~xj"
  16.         ) else if !n! equ 2 (
  17.             ren "%%j" "YS-!FolderSuffix2!%%~xj"
  18.         ) else if !n! equ 3 (
  19.             ren "%%j" "WT-!FolderSuffix2!%%~xj"
  20.         ) else if !n! equ 4 (
  21.             ren "%%j" "邮件%%~xj"
  22.         )
  23.     )
  24.     popd
  25. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

WT这个没横杠
帮我改下,第一个文件的文件名直接复制文件夹的名不要后面括号那一截就行
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. for /f "delims=" %%i in ('dir /b /ad') do (
  5.     echo 正在处理文件夹:%%i
  6.     for /f "tokens=1-6 delims=-(" %%a in ("%%i") do (
  7.         set "FolderSuffix1=%%a-%%b-%%c-%%d-%%e-%%f"
  8.         set "FolderSuffix2=%%c-%%d"
  9.     )
  10.     pushd "%%i"
  11.     set "n=0"
  12.     for /f "delims=" %%j in ('dir /b /a-d *.txt') do (
  13.         set /a n+=1
  14.         if !n! equ 1 (
  15.             ren "%%j" "!FolderSuffix1!%%~xj"
  16.         ) else if !n! equ 2 (
  17.             ren "%%j" "YS-!FolderSuffix2!%%~xj"
  18.         ) else if !n! equ 3 (
  19.             ren "%%j" "WT!FolderSuffix2!%%~xj"
  20.         ) else if !n! equ 4 (
  21.             ren "%%j" "邮件%%~xj"
  22.         )
  23.     )
  24.     popd
  25. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表