WHY

@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()); }
复制代码

WHY

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

WHY

2016-6-19
sange1963 2016-6-19 17:39
您好，我是在批处理论坛里求改ksc文件的，麻烦你加我QQ358502338

WHY 2016-6-19 19:31
我不用QQ，有问题可以站内短信联系，或直接在帖子里回复

2016-6-20
sange1963 2016-6-20 17:22
老师，你发的那个批处理文件可以删除那个广告信息也可以转换为数字，但是把最后一排的mpg除掉了，最后排应该这样karaoke.CommonVideo := '200001234.mpg';还有等于号后面是有空格的。麻烦你加我QQ嘛，我把原始文件发给你看看，谢谢您了。

我不用QQ，也从未想过要安装QQ，可以把附件发到这里