[文件操作] 批处理如何批量删除文件夹名中的汉字后，重名文件夹内容合并

172043209

【新问题】如下：
现在如果是文件夹中含子文件夹，同时删除后面的汉字后，前面的字符串的文件夹名可能一样，目前楼下【版主】和【taofan712】提供的程序的处理结果是在第二个文件名加了一个“_1”来区分，现在希望把有删除汉字后文件夹名重复的时候，就把文件夹的内容合并，请问怎么修改？

另外【taofan712】提供的处理子文件夹按照12楼的建议 将  第三行，dir /b /ad改为dir /b /ad /s    闪屏后没有结果？


下面是原帖内容
帮忙修改一下：批量删除文件夹名中后面的中字
我现在比如有一批文件夹名字是   101-jx23-2.0002 奶茶12比例    或者   C01-jx23-2.0002奶茶比例     现在想删除后面的汉子

@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir/ad/b *') do (
call :hz "%%~ni"
ren "%%i" "!fn!")
goto :eof
:hz
set fn=%~1
:begin
echo !fn:~-1,4!|findstr /i "^[a-z0-9]*$">nul || (set fn=!fn:~,-1!&goto begin)
复制代码

这里删除的却是小数点后内容：.0002奶茶比例



请大侠们帮忙修改一下？

llinnn

test.vbs
老刘1号 发表于 2017-5-28 23:33

在这个基础上再删除一下文件名结尾的特定一个字母要怎么添加呢？意思就是说每个文件的结尾都有一个固定的字母J，我也不保留，只保留数字，删除所有的汉字跟字母

pcl_test

回复 23# 172043209

@echo off
powershell ^
    ^<#去掉-r则不处理子文件夹#^>^
    dir . -r^|?{$_ -is [System.IO.DirectoryInfo]}^|^
    sort {$_.FullName.length} -desc^|%%{^
        $tmpname=($_.Name -replace '[\u4e00-\u9fa5]').trim();^
        write-host $_.FullName.replace('%~dp0','.\') -nonewline;^
        if($tmpname -and ($tmpname -ne $_.Name)){^
            $newname=$_.Parent.FullName+'\'+$tmpname;^
            if(Test-Path -LiteralPath $newname){^
                dir -LiteralPath $_.FullName^|%%{^
                    $subname=$newname+'\'+$_.Name;^
                    $n=0;^
                    while(Test-Path -LiteralPath $subname){^
                        $n++;^
                        if($_ -is [System.IO.DirectoryInfo]){^
                            $subname=$newname+'\'+$_.Name+'_'+$n;^
                        }else{^
                            $subname=$newname+'\'+$_.BaseName+'_'+$n+$_.Extension;^
                        };^
                    };^
                    mv -LiteralPath $_.FullName $subname;^
                };^
                del -LiteralPath $_.FullName -Force;^
                write-host (' --^> '+($newname.split('\')[-1])+' 重名项，合并处理') -ForegroundColor yellow;^
            }else{^
                mv -LiteralPath $_.FullName $newname;^
                write-host (' --^> '+($newname.split('\')[-1])) -ForegroundColor green;^
            };^
        }else{^
            write-host ' --^> 为纯汉字或不含汉字，不处理' -ForegroundColor red;^
        }^
    }
pause
复制代码

172043209

回复 24# taofan712
   
您好，这么早给我回复，谢谢了。条件是当删除文件夹名中汉字的时候，考虑到了不会有同名文件（如果合并文件夹时有同名文件可考虑在文件后面加序号，文件夹不用），对于子文件夹的问题，一般情况不会有很多层2-3，可能程序上会是一样的，是的，存在一个先处理子文件夹，再父文件夹，目前我需要处理用到的是bat程序放的文件夹再下面一层文件夹，如文件夹名123,123里面有多个文件夹1-a、1-b，...在这一级放置bat处理程序，处理各个1-a、1-b，...下面的文件夹名（这个时候的文件夹内就是文件了），先写完，随后测试。再次谢谢！马上测试。看到你在群里研究这个了。


刚测试了，拖入需要处理的文件夹，回车闪屏了？？请问怎么回事，我上传一个测试文件，还请taofan712检查一下！！

taofan712

@echo off
setlocal enabledelayedexpansion
echo;请将需要处理的文件夹拖放进本窗口
set /p folder=
for /f "delims=" %%i in ('dir /ad /s /b %folder%') do set/a n+=1&&set .!n!=%%~fi
(for /l %%n in (!n!,-1,1) do if defined .%%n echo;!.%%n!)>tmp.x
for /f "delims=" %%a in (tmp.x) do (
    cd /d "%%~fa"\..
    set "fn=%%~nxa"
    set "fnw=%%~nxa"
    for /f "tokens=1-5 delims=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-." %%1 in ("%%~nxa") do (
        if not "%%1%%2%%3%%4%%5"=="%%~nxa" (
            call :change "%%1" "%%2" "%%3" "%%4" "%%5" 
        ) else (
            call :chun
        )
    )
)
cd /d "%~dp0"&del /f /q tmp.x
echo;处理完毕&pause>nul&exit /b

:change
for %%b in (%~1 %~2 %~3 %~4 %~5) do set "fnw=!fnw:%%b=!"
set "fnw=!fnw: =!"
set /a m=1
if exist !fnw! (
    :judge
    if exist !fnw!_!m! (  
        set /a m+=1
        goto judge
    )
ren "!fn!" "!fnw!_!m!" 
goto :eof
)
ren "!fn!" "!fnw!"
goto :eof

:chun
set /a m=1
if exist chunhanzi (
    :panduan
    if exist chunhanzi_!m! (
        set /a m+=1
        goto panduan
    )
ren "!fn!" chunhanzi_!m!
goto :eof
)
ren "!fn!" chunhanzi
goto :eof
复制代码

172043209

现在如果是文件夹中含子文件夹，同时删除后面的汉字后，前面的字符串的文件夹名可能一样，程序的处理结果是在第二个文件名加了一个“_1”,我希望把有重复的时候，就把文件夹的内容合并，请问怎么修改？

按照12楼的建议 将  第三行，dir /b /ad改为dir /b /ad /s    闪屏后没有结果

172043209

要是再加上一个是否删除子文件夹名中汉字的提示就好了，y, 删除 or  N, 路过

谢谢版主及其他两位！！

pcl_test

回复 20# 老刘1号

就顶楼所描述的问题而言，干掉双字节字符妥妥的

老刘1号

回复 19# pcl_test


    原来unicode 4e00-9fa5是汉字的范围啊……
直接干掉所有双字节字符的路过……

pcl_test

@echo off
powershell ^
    ^<#去掉-r则不处理子文件夹#^>^
    dir . -r^|?{$_ -is [System.IO.DirectoryInfo]}^|^
    sort {$_.FullName.length} -desc^|%%{^
        $tmpname=($_.Name -replace '[\u4e00-\u9fa5]').trim();^
        write-host $_.FullName.replace('%~dp0','.\') -nonewline;^
        if($tmpname -and ($tmpname -ne $_.Name)){^
            $newname=$_.Parent.FullName+'\'+$tmpname;^
            $n=0;^
            while(Test-Path -LiteralPath $newname){^
                $n++;^
                $newname=$_.Parent.FullName+'\'+$tmpname+'_'+$n;^
            };^
            mv -LiteralPath $_.FullName $newname;^
            write-host (' --^> '+($newname.split('\')[-1])) -ForegroundColor green;^
        }else{^
            write-host ' --^> 为纯汉字或不含汉字，不处理' -ForegroundColor red;^
        }^
    }
pause
复制代码

172043209

回复 17# taofan712

测试没成功，提示：系统找不到指定文件

对当前同目录下的可执行，对于修改的文件夹下的子级文件夹还是不行，不知道原因在哪里？

taofan712

回复 16# 172043209

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /ad /s') do (
    set "fn=%%~nxa"
    set "fnw=%%~nxa"
    for /f "tokens=1-5 delims=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.- " %%1 in ("%%~nxa") do (
        if not "%%1%%2%%3%%4%%5"=="%%~a" (
            call :change %%1 %%2 %%3 %%4 %%5 
        ) else (
            ren "!fn!" chunhanzi 2>nul || ren "!fn!" chunhanzi_1
        )
    )
)
echo;处理完毕&pause>nul&exit /b

:change
for %%b in (%1 %2 %3 %4 %5) do set "fnw=!fnw:%%b=!"
set "fnw=!fnw: =!"
ren "!fn!" "!fnw!" 2>nul ||ren "!fn!" "!fnw!_1"
goto :eof
复制代码

172043209

回复 12# taofan712


    这样改后测试不成功（想删除当前文件夹下的子文件夹的文件名中后面的汉字），把原来的文件夹名前面加上了路径，变成了【CUsersAdministratorDesktop批量挂接数据处理新建文件夹C01-2019-JX13-2.00031979-JX13-2.0016切勿】

谢谢！

老刘1号

回复 14# 172043209


    ……尴尬了，原来是文件夹

172043209

回复 13# 老刘1号


    大侠，我测试了，你的是删除的文件，不是文件夹，备用，说不一定我也用的上的