[文件操作] 求助批处理重命名文件名保留文件夹名和中文字符

gaoyh2008

需要将文件夹内的多个子文件重命名，规则是只保留子文件名称中的中文字符后在前面加上文件夹的名称做前缀作为新的子文件名称  如：文件夹名+保留下来的中文字符。希望大神出手相助给个BAT处理，谢谢！

aloha20200628

当前目录及其子目录中所有包含中文字符(中文标点等特殊符号除外)的文件名更名为 “所在目录名+被提取的中文字符”，文件名中未含中文字符则不予更名

@echo off &setlocal enabledelayedexpansion
for /f "delims=" %%F in ('dir/b/s/a-d') do (
	set "nH=" & (call :getHZ "%%~nF" nH)
	if defined nH for %%P in ("%%~pF.") do (echo,ren "%%~F" "%%~nP+!nH!%%~xF")
)
exit/b
:getHZ
	set "$s=%~1"&set "_s="
	for /L %%n in (0 1 260) do (
	   set "c=!$s:~%%n,1!" &if "!c!"=="" set "%~2=!_s!" &exit/b
	   if "!c!" gtr "Z" set "_s=!_s!!c!"
	)
	exit/b
复制代码

gaoyh2008

回复 2# aloha20200628


    谢谢大神，但似乎不成功，我没有任何基础，您能帮忙再看看吗？

gaoyh2008

回复 2# aloha20200628


    将文件夹内的所有文件名前面的数字及字母除掉并在前面加上文件夹名称，如3005-85001 侧裙  ，3005-85001 左前边裙 依次重新命名

aloha20200628

回复 3# gaoyh2008

“似乎不成功”是啥意思？ 是提取汉字错误还是未能提取汉字？还是其他什么...?
再明确一下》2楼代码存为 test.bat 须放在被处理文件的目录中运行！

Batcher

回复 4# gaoyh2008


请编辑顶楼帖子内容，给一个真实的例子说明一下你的需求吧，比如操作之前是怎样的，操作之后变成啥样？
否则大家帮你写的代码也许可以处理假设的需求，但是无法处理你真实的需求。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

77七

回复 3# gaoyh2008

试试
   2楼代码第6行改为

pause & exit/b
复制代码

显示内容正确再把第4行的 echo, 删掉，再执行一次

无任何基础，pause很重要

aloha20200628

回复 3# gaoyh2008

抱歉！居然只发了一个预览版代码
感谢7楼提点
实用版代码如下...

@echo off &setlocal enabledelayedexpansion
for /f "delims=" %%F in ('dir/b/s/a-d') do (
	set "nH=" & (call :getHZ "%%~nF" nH)
	if defined nH for %%P in ("%%~pF.") do (ren "%%~F" "%%~nP+!nH!%%~xF")
)
pause&exit/b
:getHZ
	set "$s=%~1"&set "_s="
	for /L %%n in (0 1 260) do (
	   set "c=!$s:~%%n,1!" &if "!c!"=="" set "%~2=!_s!" &exit/b
	   if "!c!" gtr "Z" set "_s=!_s!!c!"
	)
	exit/b
复制代码