再世情緣

@echo off &color 0a &setlocal enabledelayedexpansion
pushd "%cd%"
for /f "delims=" %%A in ('dir /s /b /a -d "*.ksc" 2^>nul') do (
	set "nm=%%~fA" & set "kscnm=%%~nA"
	cd.>"!nm!.txt"
	for /f "usebackq eol=/ tokens=1,2* delims=:" %%a in ("%%~fA") do (
		if "#%%a#" EQU "#karaoke.internalnumber #" (
			(echo.%%a:=!kscnm! ;)>>"!nm!.txt"
		) else (
			if "#%%a#" EQU "#karaoke.CommonVideo #" (
				(echo.%%a:='!kscnm!';)>>"!nm!.txt"
			) else (
				if "%%b" EQU "" ((echo.%%a)>>"!nm!.txt") else ((echo.%%a:%%b)>>"!nm!.txt")
			)
		)
	)
	move /y "!nm!.txt" "!nm!" >nul 2>nul
)
pause.
复制代码

放在ksc文件夹里运行即可

再世情緣

@echo off &color 0a &setlocal enabledelayedexpansion
pushd "%cd%"
for /f "delims=" %%A in ('dir /s /b /a -d "*.ksc" 2^>nul') do (
	set "nm=%%~fA" & set "kscnm=%%~nA"
	cd.>"!nm!.txt"
	for /f "usebackq tokens=1,2* delims=:" %%a in ("%%~fA") do (
		set "ln0=%%a:%%b"
		if "!ln0:~-1!" EQU ":" (set "ln0=%%a")
		if "!ln0:~,2!" EQU "//" (
			echo.!ln0! |findstr "歌曲附加信息(便于检索)" >nul &&(echo.!ln0!)>>"!nm!.txt"
		) else (
			if "#%%a#" EQU "#karaoke.internalnumber #" (
				(echo.%%a:=!kscnm! ;)>>"!nm!.txt"
			) else (
				if "#%%a#" EQU "#karaoke.CommonVideo #" (
					(echo.%%a:='!kscnm!';)>>"!nm!.txt"
				) else (
					(echo.!ln0!)>>"!nm!.txt"
				)
			)
		)
	)
	move /y "!nm!.txt" "!nm!" >nul 2>nul
)
pause.
复制代码