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

[文件操作] 批处理怎样拆分文件,补全序号位数与最大值位数相同?

我经常会导出一些文件,以PDF为主,但不仅限于PDF,以“_”下划线为分界,前端为原文件文件名,后端为自然序号,对应原文件的页码,想统一导出文件,“_”下划线后端自然序号的位数,

当运行BAT时,先自动判断“_”下划线后序号的最大值,以确定序号的位数,如例图中是124,则所有“_”下划线后序号要补充为3位数,          若最大值为78则,所有“_”下划线后序号要补充为2位数,若最大值为1178则,所有“_”下划线后序号要补充为4位数,也就是最大值为几位,就把其他序号都补充到几位。

补充数位的结果是,在“_”下划线和原有序号之间插入相应个数的“0”.

谢谢
链接:https://pan.baidu.com/s/1o7aCmYyNIepGhqU0alKqfw?pwd=vt04
提取码:vt04
--来自百度网盘超级会员V10的分享


下面2张图片是 处理前 后的对比,
【处理前】


【处理后】

一个文件夹就一个序列?

TOP

本帖最后由 wanghan519 于 2024-1-31 08:34 编辑
  1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
  2. dir *.pdf | group {$_.Name -replace '_.*$'} | %{$m=0;$_.Group | sort {$_.Name.Length} -Descending | %{$a=$_.Name -split '[_.]';if($a[-2].Length -gt $m){$m=$a[-2].Length};rni $_.Name ($_.Name -replace '_(\d+)\.',"_$($a[-2].PadLeft($m,'0')).")}}
复制代码
写的比较啰嗦,凑活能用,回头再改

TOP

回复 2# newswan


    是的

TOP

本帖最后由 qixiaobin0715 于 2024-2-1 08:45 编辑

假设序号不超过5位数:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for %%i in (1 10 100 1000 10000) do if exist *_%%i.pdf set n=%%i
  4. set /a n*=10
  5. for /f "tokens=1* delims=_" %%i in ('dir /b /a-d *_*.pdf') do (
  6.     set m=%%~nj
  7.     set /a m+=n
  8.     ren "%%i_%%j" "%%i_!m:~1!%%~xj"
  9. )
  10. pause
复制代码
1

评分人数

TOP

本帖最后由 pd1 于 2024-1-31 09:45 编辑

我是直接看文件个数判断总位数的,如果你数字从1开始不间断的可以这样试试
  1. <# :
  2. @echo off
  3. powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
  4. pause
  5. #>
  6. $file=dir *.pdf
  7. $n=([string]$file.Length).Length
  8. $file|%{ren $_ ([regex]::Replace($_.name,'(?<=_)\d+',{param([string]$a) "{0:d${n}}" -f [int]$a}))}
复制代码

TOP

如果数字不连续或者不是从1开始  这样试试
  1. <# :
  2. @echo off
  3. powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
  4. pause
  5. #>
  6. $file=dir *.pdf
  7. $max=($file|%{[int]$_.BaseName.split("_")[1]}|Measure-Object -Maximum).Maximum
  8. $n=([string]$max).Length
  9. $file|%{ren $_ ([regex]::Replace($_.name,'(?<=_)\d+',{param([string]$a) "{0:d${n}}" -f [int]$a}))}
复制代码

TOP

回复 1# qd2024
  1. @echo off
  2. cd /d "%~dp0"
  3. setlocal enabledelayedexpansion
  4. set "MaxLen=0"
  5. for /f "tokens=2 delims=_" %%a in ('dir /b /a-d *_*.pdf') do (
  6.     for /f "skip=1 delims=:" %%i in ('^(echo "%%a"^&echo.^)^|findstr /o ".*"') do (
  7.         set /a StrLen=%%i-5-4
  8.     )
  9.     if !StrLen! gtr !MaxLen! (
  10.         set "MaxLen=!StrLen!"
  11.     )
  12. )
  13. set "MaxNum=1"
  14. for /l %%a in (1,1,!MaxLen!) do (
  15.     set /a MaxNum=MaxNum*10
  16. )
  17. for /f "tokens=1* delims=_" %%a in ('dir /b /a-d *_*.pdf') do (
  18.     set "FileNum=%%b"
  19.     set "FileNum=!MaxNum!!FileNum:~0,-4!"
  20.     ren "%%a_%%b" "%%a_!FileNum:~-3!%%~xb"
  21. )
复制代码
测试代码之前请做好备份

TOP

本帖最后由 aloha20200628 于 2024-2-1 19:35 编辑


用纯P拿下本帖的一个看点是如何准确简捷地获取文件名末尾的序号最大长度(无论序号连续与否),给一个请findstr出场的版本,其一是goto方案,是可控循环。其二是for/L方案,是不可控循环,只能预设上限。
第3行代码用了老帖中关于!v!续命传值给%v%的方法,此处用之为免其后截取变量字符串时不必调用for句式方可完成的开销。
代码可存为test.bat,将目标目录拖至脚本运行即可完成其中文件更名,如*_1.pdf 》*_001.pdf
  1. @echo off &setlocal enabledelayedexpansion
  2. dir /b/s/a-d "%~1\*.pdf">0.0 & (call :getMax 0.0 m)
  3. (endlocal & set "max=%m%") & setlocal enabledelayedexpansion
  4. for /L %%n in (1,1,%max%) do set "p=0!p!"
  5. for /f "delims=" %%F in (0.0) do (
  6.    set "xF=%%~xF"
  7.    for /f "tokens=1-2 delims=_" %%1 in ("%%~nF") do (set "q=!p!%%2" & ren "%%~F" "%%1_!q:~-%max%!!xF!")
  8. )
  9. del 0.0 & endlocal & exit/b
  10. :getMax // %1=listF %2=digits
  11.   :[loop]
  12.   set/a "k+=1" & set "n=!n![0-9]" & findstr "!n!\.pdf" %1>nul && goto[loop] || (set/a "%~2=k-1" & exit/b)
复制代码
随附 for/L 方案如下仅供参考
  1. :getMax // %1=listF %2=digits
  2.   for /L %%n in (0,1,9) do set "n=!n![0-9]" & findstr "!n!\.pdf" %1>nul || (set/a "%~2=%%n" & exit/b)
复制代码

TOP

回复 8# ShowCode


    请问这里"set /a StrLen=%%i-5-4"的 5 是怎么得来的?

TOP

回复 10# buyiyang


在CMD窗口里面执行这个命令应该能理解:
  1. (echo "ABC"&echo.)|findstr /o ".*"
复制代码
测试代码之前请做好备份

TOP

本帖最后由 buyiyang 于 2024-1-31 21:12 编辑

回复 11# ShowCode
执行
  1. (echo,a)>1.txt
复制代码
1.txt十六进制为:
  1. 61 0D 0A
复制代码
  1. echo,a|find /v "">1.txt
  2. 61 0D 0A
复制代码
  1. (echo,a)|find /v "">1.txt
  2. 61 20 0D 0A
复制代码
  1. (echo,a&echo,b)>1.txt
  2. 61 0D 0A 62 0D 0A
复制代码
  1. (echo,a&echo,b)|more>1.txt
  2. 61 20 0D 0A 62 20 0D 0A 0D 0A
复制代码
主要是疑惑为什么通过管道会多空格字符(20h)。

TOP

回复 10# buyiyang
我的理解是, “新建文档_” = 5    “.pdf” = 4

TOP

回复 13# ppll2030


    %%a已经是被"_"分割后的第二个数字字段了,findstr /o 通过偏移值获得%%a的长度,.pdf是4,另一个数字应该也是4(两个引号、回车、换行),
但(echo "%%a"&echo.)通过管道却多了一个空格,所以实际是5,我的问题是为什么会多空格。

TOP

回复 14# buyiyang


    这个可能跟 CMD 预处理机制本身有关。
  1. echo;a&echo;b
  2. pause
复制代码
保存为批处理,运行后可以看到预处理之后的样子:echo;a  & echo;b
echo;a后面为两个空格,多出了一个空格。CMD 它想这么解析,没办法。

TOP

返回列表