77七

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

77七

回复 6# thp2008


   已在4楼修改。

77七

回复 8# thp2008


  

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