[文本处理] [已解决]求助批处理查找多音字替换对应拼音及拼音缩写的方法

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit

$1='BirdNamePYSX.txt'
$2='DuoYinZi.txt'

$f=@'
$b=$_ -split '，'
$c=$b[1]-split ' '
0..($b[0].length-1)|%{$h[$b[0][$_]]=$c[$_]}
'@

$a=gc $1
$h=@{}
$a|%{
    iex $f
    $arr+=,$b[0]
}

gc $2|%{iex $f}

$arr|%{
    $a=$_
    $b=$c=''
    $d=@()
    0..($a.length-1)|%{
	$b+=$a[$_]
	$c+=([string]$h[$a[$_]][0]).toupper()
        $e=$h[$a[$_]]
	$d+=,($e.substring(0,1).toupper()+$e.substring(1))
    }
'{0}，{2}，{1}' -f $b,$c,($d -join ' ').trim()
}
复制代码

@echo off
rem 批处理和文本全部保存为utf-8编码格式
chcp 65001 >nul
cd /d "%~dp0"
setlocal enabledelayedexpansion
for /f "useback tokens=1-3 delims=，" %%a in ("DuoYinZi.txt") do (
	set b0=%%b
	set b1=!b0:~0,1!
	for %%x in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
		set b1=!b1:%%x=%%x!
	)
	set _%%a=!b1!!b0:~1!
)
set n=-1
(for /f "useback tokens=1-3 delims=，" %%a in ("BirdNamePYSX.txt") do (
	set a=%%a
	setlocal
	for %%x in (%%b) do (
		set /a n+=1
		set #!n!=%%x
	)
	for /l %%l in (0,1,!n!) do (
		set t=!a:~%%l,1!
		if defined _!t! (
			call set u=%%_!t!%%
		) else (
			set u=!#%%l!
		)
		set c=!c!!u:~0,1!
		set "b=!b!!u! "
	)
	echo !a!，!b!，!c!
	endlocal
))>BirdNamePYSX_2.txt
endlocal
pause
复制代码

rem 第二步
set "OutputName=output.mp4"
for %%i in (*.wav) do (
    set "InputWav=%%i"
)
for %%i in (*.mp4) do (
    set "InputMp4=%%i"
)

for /f "tokens=2-5 delims=:., " %%a in ('ffmpeg.exe -i "%InputWav%" 2^>^&1 ^| find "Duration:"') do (
    call :Time2SS %%a %%b %%c %%d
)
set "SecondWav=%CS%"
for /f "tokens=2-5 delims=:., " %%a in ('ffmpeg.exe -i "%InputMp4%" 2^>^&1 ^| find "Duration:"') do (
    call :Time2SS %%a %%b %%c %%d
)
set "SecondMp4=%CS%"

set "VideoFactor=%SecondWav%/%SecondMp4%"
set "AudioFactor=%SecondMp4%/%SecondWav%"

ffmpeg.exe -i "%InputMp4%" -vf "setpts=%VideoFactor%*PTS" -af "atempo=%AudioFactor%" "%OutputName%"
goto :eof

:Time2SS
set /a HH=1%1-100,MM=1%2-100,SS=1%3-100
set "CS=(%HH%*3600+%MM%*60+%3.%4)"
goto :eof

想执行第三步
复制代码

@echo off
rem 批处理和文本全部保存为utf-8编码格式
chcp 65001 >nul
cd /d "%~dp0"
for /f "useback tokens=1-3 delims=，" %%a in ("DuoYinZi.txt") do (
	set _%%a=%%b
)
set n=-1
(for /f "useback tokens=1-3 delims=，" %%a in ("BirdNamePYSX.txt") do (
	set a=%%a
	setlocal enabledelayedexpansion
	for %%x in (%%b) do (
		set /a n+=1
		set #!n!=%%x
	)
	for /l %%l in (0,1,!n!) do (
		set t=!a:~%%l,1!
		if defined _!t! (
			call set u=%%_!t!%%
		) else (
			set u=!#%%l!
		)
		set c=!c!!u:~0,1!
		set "b=!b!!u! "
	)
	for %%x in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
		set c=!c:%%x=%%x!
	)
	echo !a!，!b!，!c!
	endlocal
))>BirdNamePYSX_2.txt
endlocal
pause
复制代码

@echo off
set /p input=请输入拼音:
set "input=%input: =%"
if "%input%"=="" (echo,输入为空&exit)
call :dict
setlocal enabledelayedexpansion
call :split "!%input:~0,1%!"
echo,%result%
pause

:split
if /i "%~1"=="" goto :eof
set "qstring=%~1"
for /l %%a in (5,-1,0) do if not "!input:~%%a,1!"=="" (
    set /a in=%%a+1
    call set "py=%%input:~0,!in!%%"
    goto :next
)
:next
if /i "!qstring:%py% =!"=="%qstring%" (
    set "py=%py:~0,-1%"
    goto :next) else (
    set "result=!result! %py%"
    set "input=!input:%py%=!"
    if "!input!"=="" goto :eof
    call :split "%%!input:~0,1!%%"
    )
goto :eof


:dict
set "a=a ai an ang ao "
set "b=ba bai ban bang bao bei ben beng bi bian biao bie bin bing bo bu "
set "c=ca cai can cang cao ce ceng cha chai chan chang chao che chen cheng chi chong chou chu chuai chuan chuang chui chun chuo ci cong cou cu cuan cui cun cuo "
set "d=da dai dan dang dao de deng di dian diao die ding diu dong dou du duan dui dun duo "
set "e=e en er "
set "f=fa fan fang fei fen feng fo fou fu "
set "g=ga gai gan gang gao ge gei gen geng gong gou gu gua guai guan guang gui gun guo "
set "h=ha hai han hang hao he hei hen heng hong hou hu hua huai huan huang hui hun huo "
set "j=ji jia jian jiang jiao jie jin jing jiong jiu ju juan jue jun "
set "k=ka kai kan kang kao ke ken keng kong kou ku kua kuai kuan kuang kui kun kuo "
set "l=la lai lan lang lao le lei leng li lia lian liang liao lie lin ling liu long lou lu lv luan lue lun luo "
set "m=ma mai man mang mao me mei men meng mi mian miao mie min ming miu mo mou mu "
set "n=na nai nan nang nao ne nei nen neng ni nian niang niao nie nin ning niu nong nu nv nuan nue nuo "
set "o=o ou "
set "p=pa pai pan pang pao pei pen peng pi pian piao pie pin ping po pu "
set "q=qi qia qian qiang qiao qie qin qing qiong qiu qu quan que qun "
set "r=ran rang rao re ren reng ri rong rou ru ruan rui run ruo "
set "s=sa sai san sang sao se sen seng sha shai shan shang shao she shen sheng shi shou shu shua shuai shuan shuang shui shun shuo si song sou su suan sui sun suo "
set "t=ta tai tan tang tao te teng ti tian tiao tie ting tong tou tu tuan tui tun tuo "
set "w=wa wai wan wang wei wen weng wo wu "
set "x=xi xia xian xiang xiao xie xin xing xiong xiu xu xuan xue xun "
set "y=ya yan yang yao ye yi yin ying yo yong you yu yuan yue yun "
set "z=za zai zan zang zao ze zei zen zeng zha zhai zhan zhang zhao zhe zhen zheng zhi zhong zhou zhu zhua zhuai zhuan zhuang zhui zhun zhuo zi zong zou zu zuan zui zun zuo "
复制代码

setlocal enabledelayedexpansion
set str=HWGS
set letters=A B C D ... Z
for %%i in (!letters!) do set str=!str:%%i=%%i !
for %%i in (!str!) do set /a n+=1
复制代码