[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 WHY 于 2024-2-2 11:30 编辑
  1. @if(0)==(0) echo off
  2. pushd "D:\Test"
  3. for /f "tokens=1*delims=|" %%i in ('dir /b *_*.pdf ^| cscript -nologo -e:jscript "%~f0"')do (
  4.     echo ren "%%i" "%%j"
  5. )
  6. pause & exit
  7. @end
  8. var max = 0, arr = [];
  9. var reg = /_([0-9]+)(?=\....$)/;
  10. while (!WSH.StdIn.AtEndOfStream) {
  11.     var file = WSH.StdIn.ReadLine();
  12.     var m = file.match(reg);
  13.     if (!m) continue;
  14.     if (max < m[1].length) max = m[1].length;
  15.     arr.push(file);
  16. }
  17. var zero = new Array(max).join('0');
  18. var reg1 = new RegExp('_[0-9]{' + max + '}(?=\....$)');
  19. for (var i = 0; i < arr.length; i++) {
  20.     if (arr[i].match(reg1)) continue;
  21.     var newFile = arr[i].replace(
  22.         reg,
  23.         function(s0,s1){return '_' + (zero + s1).slice(-max)}
  24.     )
  25.     WSH.Echo(arr[i] + '|' + newFile);
  26. }
复制代码

TOP

回复 15# WHY

看我12楼第四个例子,
  1. (echo,a&echo,b)>1.txt
  2. 61 0D 0A 62 0D 0A
复制代码
虽然控制台显示
  1. (echo,a & echo,b ) > 1.txt
复制代码
但输出并没有空格。
  1. @echo off >&3 3>1.txt
  2. echo,a&echo,b
复制代码
这样也是,只有通过管道才会有空格。

TOP

回复 17# buyiyang
多翻一翻老帖:
http://www.bathome.net/viewthread.php?tid=7629
示例:
(echo test)|findstr /c:" "
效果:显示test,findstr认为前面的命令输出含有空格
注释:CMD的预处理在分析语句时,会在)和|这些有特殊意义的转义字符前后插入空格,同时剪除多余的空格。
        而当)和|一同出现时,CMD的预处理没有把这些空格从命令行中全部过滤掉,而会遗漏一个空格到echo命令中。
        而echo命令则把这个空格连通之前文本一同输出到管道后命令findstr中,所以导致findstr匹配出含空格行。
链接:http://www.bathome.net/viewthrea ... amp;page=3#pid50356
        http://www.bathome.net/viewthrea ... amp;page=4#pid28166
1

评分人数

TOP

如果序号不连续也可以这样,不过要搜索2次文件,效率上稍差:
  1. @echo off
  2. set n=0
  3. setlocal enabledelayedexpansion
  4. for /f "tokens=2 delims=_" %%i in ('dir /b /a-d *_*.pdf') do (
  5.     if %%~ni gtr !n! set n=%%~ni
  6. )
  7. for /l %%i in (1,1,9) do set n=!n:%%i=0!
  8. set n=1!n!
  9. for /f "tokens=1* delims=_" %%i in ('dir /b /a-d *_*.pdf') do (
  10.     set m=%%~nj
  11.     set /a m+=n
  12.     ren "%%i_%%j" "%%i_!m:~1!%%~xj"
  13. )
  14. pause
复制代码
5楼代码有一处笔误,已修改。

TOP

回复 1# qd2024
可借助第3方工具gawk(http://bcn.bathome.net/tool/4.1.0/gawk.exe)来解决
  1. @rem 拆分文件补全序号位数,位数修改(-v"N=03")即可,如4位则改为(-v"N=04"),类推...
  2. @echo off&cd /d "%~dp0"
  3. dir /b *.pdf|gawk -v"N=03" -F"[_.]" "{o=$0;$2=sprintf(\"%%\"N\"d\",$2);print \"move /Y \\\"\" o \"\\\" \\\"\" $1 \"_\" $2 \".\" $3 \"\\\"\"}"|cmd.exe
复制代码

TOP

本帖最后由 qd2024 于 2024-2-1 11:26 编辑

回复 9# aloha20200628


   

师兄 用第一种方法 怎样才能把文件名前面的序号补齐数位,文件名左端第1个“.”做为分界点,前后的序号,都依据文件总数在不足位的数的前面补“0” ,  使序号的位置与总数位数一致,最后删除“.”和前面的序号,如下图


谢谢

TOP

学习了大家的解法
批处理比较麻烦

不是从1到n情况下,
  1. $folder = "1"
  2. $file = Get-ChildItem -path $folder -Filter "*.pdf" | Sort-Object { ($_.BaseName -replace "^.+_") -as [int] }
  3. $lenMax = ( ( $file | ForEach-Object { ( ($_.BaseName -replace "^.+_").tostring() ).length } ) | Sort-Object )[-1]
  4. $file | ForEach-Object {
  5. $arr = $_.basename -split "_"
  6. if ( $arr[1].length -lt $lenMax ) {
  7. $newName = $arr[0] + "_" + ( "{0:d$lenmax}" -f [int]$arr[1] ) + $_.extension
  8. Rename-Item $_.fullname -newname $newName
  9. }
  10. }
复制代码

TOP

关于 获取字符串长度,还有一个高效方法:
http://www.bathome.net/viewthrea ... AF%CA%FD&page=1

TOP

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

回复 21# qd2024

增加一个子过程/函数 cutP 用于截取文件名首部小数点后两个目标字段,以小数点后序号为准匹配最大长度。
  1. @echo off &setlocal enabledelayedexpansion
  2. dir /b/s/a-d "%~1\*.mp4">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" & for /f "tokens=1-2 delims=." %%1 in ("%%~nF") do (
  7.      (call :cutP "%%~2" %max% s1 s2) & set "q=!p!!s1!" & ren "%%~F" "!q:~-%max%!!s2!!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![^0-9]" "%~1">nul && goto[loop] || (set/a "%~2=k" & exit/b)
  13. :cutP // %1=nameF %2=max %3=s1 %4=s2
  14.   (set "s=%~1" & for /L %%n in (%~2,-1,0) do if "!s:~%%n,1!" geq "0" if "!s:~%%n,1!" leq "9" (
  15.      set/a "k=%%n+1" & for %%k in (!k!) do (set "%~3=!s:~,%%k!" & set "%~4=!s:~%%k!") & exit/b))
  16.   exit/b
复制代码

TOP

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


24楼代码已从调试版订正为实用版,其中目标文件类型根据21楼示例中的文件类型已调整为*.mp4

TOP

本帖最后由 WHY 于 2024-2-2 11:26 编辑

假设最大数字位数不超过30位,事实上,30位已经是天文数字。

用 Test-Path 速度太慢,改用正则判断。
  1. $srcPath = 'D:\Test\';
  2. $max = 0;
  3. $files = dir -Path $srcPath -Filter *_*.pdf;
  4. for ($i = 30; $i -ge 1; $i--) {
  5.     $reg = '_[0-9]{' + $i + '}$';
  6.     if (($files.BaseName -match $reg).Count -gt 0) {$max = $i; break;}
  7. }
  8. $reg = '_[0-9]{1,' + ($max-1) + '}$';
  9. $files | ?{$_.BaseName -match $reg} | ren -NewName {
  10.     $arr = $_.BaseName.Split('_');
  11.     $arr[-1] = $arr[-1].PadLeft($max, '0');
  12.     ($arr -join '_') + $_.Extension;
  13. } -whatIf
  14. pause
复制代码

TOP

本帖最后由 ppll2030 于 2024-2-2 13:33 编辑

回复 21# qd2024


    如果楼主的文件规律如此整齐可寻。那还是可以用五楼的代码修改一下变量即可得到想要的结果。
五楼楼主的代码我感觉很经典。执行效率也快。
我稍微改了一下。测试结果正确。楼主也可测试一下。
ps:根据大大的指导,再次修改,效果更佳。:lol
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for %%i in (1 10 100 1000 10000) do if exist %%i.*.pdf set n=%%i
  4. echo %n%
  5. set /a n*=10
  6. for /f "tokens=1-3 delims=." %%i in ('dir /b /a-d *.*.pdf') do (
  7.     set m=%%i
  8.     set str=%%j&set str=!str:*%%i=!
  9.     set /a m+=n
  10.     REM 执行更名请去除echo
  11.     echo ren "%%i.%%j.%%k" "!m:~1!!str!.%%k"
  12. )
  13. pause&exit
复制代码

TOP

回复 21# qd2024
前后数字都一样?不会出现“1.1 1.2 1.3...2.1 2.2...”等情况。

TOP

回复 27# ppll2030
第8行代码有时会误伤。
  1. set str=!str:%%i=!
复制代码
比如文件名前面序号是1,而文件名某处也包含1,就会出现问题。不如修改为:
  1. set str=!str:*%%i=!
复制代码
这样更加严谨一些。

TOP

回复 29# qixiaobin0715


    感谢指导。又学到一招。

TOP

返回列表