能否在帮我做一个批量在文件夹名字前面加首汉字的拼音首字母的批处理

2025-03-09 20:59:31

推荐回答（2个）

回答1：

@echo off & Title 添加首字母 By 依梦琴瑶
 
::以下代码请勿随意更改，以免运行出错。
setlocal enabledelayedexpansion
mode 65,10 & color 0a & cd /d %~dp0
set "PY_Data=Initials.dat"
if not exist "%PY_Data%" (
    color 0c & mode 65,8
    echo 当前目录下缺少 %PY_Data% 汉字首字母对照表数据库，请前往以下站点下载：
    set "wA=ht"&set "wB=tps"&set "wC=://"&set "wD=pan"&set "wE=bai"
    set "wF=du"&set "wG=com"&set "wH=/s/"&set "wI=11GbgbMUfDfX7V5V-6AOwIA"
    echo, & echo        !wA!!wB!!wC!!wD!.!wE!!wF!.!wG!!wH!!wI!
    echo, & echo        提取码 46sw
    ping 127.0.0.1 -n "6">nul
    start "" "!wA!!wB!!wC!!wD!.!wE!!wF!.!wG!!wH!!wI!"
    exit
)

echo 正在获取文字并添加中，请耐心等待。。。
for /f "delims=" %%a in ('dir /ad/b') do (
    call:GetInitials "%%~a"
    set FD=1
)
if not defined FD (
    cls & echo 当前目录中不存在子目录
    goto End
)
echo, & echo 此次首字母添加完毕，请按任意建退出。
:End
pause>nul
call :ToMe
exit
 
:GetInitials
set "Str=%~1" & set "DY=0"
echo !Str:~,1!
pause
echo !Str:~,1!|findstr /i "[A-Z]" >nul 2>nul && (
    echo 【%Str%】 -- 跳过
    goto :eof
)
for /f "tokens=1 delims==" %%b in ('findstr "!Str:~,1!" "%PY_Data%"') do (
    set /a DY+=1
    set "PY!DY!=%%~b"
)
if !DY! gtr 1 (
    echo, & echo 【!Str:~,1!】是一个多音字，请手动选择它在【%Str%】中合适的拼音首字母：& echo,
    for /l %%c in (1,1,!DY!) do (
        echo        %%c、!PY%%c!
    )
    echo, & set /p xz=请输入对应编号后回车确认：
    call set "PY=%%PY!xz!%%"
) else (
    if !DY! equ 0 (
        echo, & echo 【!Str:~,1!】未被记录到【%PY_Data%】对照表数据库中。
        echo 您可自行用记事本打开【%PY_Data%】，并补全数据库。& echo,
        ping 127.0.0.1 -n "5">nul
    ) else (
        set "PY=!PY1!"
    )
)
if exist "!PY!%~1" (
    echo 【%Str%】 -- 存在已添加首字母的同名文件夹【!PY!%~1】
    goto :eof
)
echo 【%Str%】 --^> 【!PY!%~1】
ren "%~1" "!PY!%~1"
goto :eof

:ToMe
set "S=.:ailnhpst/fPdv"
start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"
exit

回答2：

复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的多个文件夹放一起运行

@echo off
rem 文件夹名称开头添加首个中文/汉字的拼音首字母
set #=Any question&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$% %z%
cd /d "%~dp0"
set a=/.:&set b=http&set c=com
set d=%b%%a:~2,1%%a:~,1%%a:~,1%csstools%a:~1,1%chinaz
set e=%a:~1,1%%c%%a:~,1%tools%a:~,1%js%a:~,1%pinyin%a:~1,1%js
powershell -NoProfile -ExecutionPolicy bypass ^
    $web=New-Object System.Net.WebClient;^
    $web.Encoding=[Text.Encoding]::UTF8;^
    $html=$web.DownloadString('%d%%e%');^
    $m=[regex]::match($html, 'var pydic ?= ?\""([^^\""]+)\""');^
    if($m.success){^
        $pydic=$m.groups[1].value;^
        $folders=@(dir^|?{$_ -is [System.IO.DirectoryInfo]});^
        for($i=0;$i -lt $folders.length;$i++){^
            $s='';$newname='';^
            $c=$folders[$i].Name[0].toString();^
            $n=$pydic.indexOf($c);^
            if($c -match '[一-龥]'){^
                if($n -ge 0){^
                    $s=$pydic.Substring($n+1,1);^
                    $s=($s -replace '[āáǎà]','a') -replace '[ōóǒò]','o';^
                    $s=($s -replace '[ēéěè]','e');^
                };^
            };^
            $newname=$s.toUpper()+$folders[$i].Name;^
            write-host ($folders[$i].Name+' --^> '+$newname);^
            if($folders[$i].Name -ne $newname){mv -liter $folders[$i].FullName ($folders[$i].Parent.FullName+'\'+$newname);};^
        };^
    };
:end
echo;%#% +%$%%$% %z%
pause

最新问答

excel双色球研究，奇妙无穷，我现在想研究一套围红方案，也就是求上期开奖号码的中间码

求一个电脑录屏软件，清晰度高，免费无限时长

怎么给图片制作带链接的网页HTML代码？

狗子有分离焦虑症，怎么办？

火车卧铺票的上、中、下铺，哪个更好坐一些！