set "ksc=20002361.ksc"
rem set "tksc=%ksc:~,-4%"
for /f "delims=" %%a in ("%ksc%") do set "name=%%~na"
sed -i "/^[ \t]*\/\//d;s/\(karaoke.CommonVideo :=\).*/\1'%name%';/;s/\(karaoke.internalnumber :=\).*/\1%name%;/" "%ksc%"
pause
复制代码

@echo off&title 文件处理【小程936 QQ1781047213】
echo 直接拖拽文件夹到本文件上方即可使用。
echo 20元求批处理ksc文件名 @sange1963
set ttt=%1
set tt=%2
if not DEFINED tt Setlocal enabledelayedexpansion
if not DEFINED ttt goto 7
(cd /d %1)||(echo cd-目录不存在&pause>nul&exit)
set /a ab=-2,ad=-1
:1
echo 处理中……
(for /f "delims=" %%i in ('dir /b /a-d /s *.ksc') do if not "%%i"=="" (set xn=%%~ni)&call :2 ) >nul 2>&1
echo 批量修改完成。&start "" %ttt%
pause>nul&exit
:2
for /f "delims=" %%z in (%xn%.ksc) do (set az=%%z)&call :小程936
(del %xn.ksc%)&ren %xn%.1 %xn%.ksc
goto :eof
:小程936
for /f "delims==" %%a in ("%az%") do (set aa=%%a)
for /f "tokens=3 delims=." %%a in ("%az%") do (set aaa=%%a)
>>%xn%.1 (if "%aa:~,2%" == "//" goto :eof
if "%aa%" == "karaoke.internalnumber :" (echo+karaoke.internalnumber :=%xn%;)&goto :eof
if "%aa%" == "karaoke.CommonVideo :" (echo+karaoke.CommonVideo :='%xn%.%aaa%)&goto :eof
(echo+%az%)&goto :eof)
goto :eof
:7
set /p ttt=
if not DEFINED ttt goto 7
call %0 %ttt% 1
exit
复制代码

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

@if (0)==(0) echo off
dir /b *.ksc | cscript //nologo //e:jscript "%~f0"
pause & exit
@end

var getContent = function(strFile){
    var n = strFile.replace(/(.+)\..+$/, '$1');
    var objFile = fso.OpenTextFile(strFile, 1);
    var s = objFile.ReadAll().replace(/^\/\/(?!\s*歌曲附加信息).*\n/mg, '');
    s = s.replace(/^(karaoke\.internalnumber *: *=)[^\r\n]*/im, '$1' + n + ';');
    s = s.replace(/^(karaoke\.CommonVideo *: *=)[^\r\n]*/im, "$1'" + n + "';");
    objFile.Close();
    fso.OpenTextFile(strFile, 2).Write(s);
}

var fso = new ActiveXObject('Scripting.FileSystemObject');
while(!WSH.StdIn.AtEndOfStream) { getContent( WSH.StdIn.ReadLine()); }
复制代码

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

@echo off & setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b *.ksc') do (
    (for /f "delims=" %%j in ('findstr /n .* "%%i"') do (
        set "s=%%j"
        set "s=!s:*:=!"
        for /f "tokens=1-3" %%i in ("!s!#") do set "s1=%%i%%j%%k"
        if /i "!s1:~0,24!" == "karaoke.internalnumber:=" (
            echo;karaoke.internalnumber :=%%~ni;
        ) else if /i "!s1:~0,21!" == "karaoke.CommonVideo:=" (
            echo;karaoke.CommonVideo :='%%~ni';
        ) else if "!s1:~0,8!" == "//歌曲附加信息" (
            echo;!s!
        ) else if not "!s1:~0,2!" == "//" echo;!s!
    ))>~tmp.$
    move ~tmp.$ "%%i"
)
pause
复制代码