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
复制代码

aloha20200628

回复 3# gaoyh2008

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

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
复制代码