[文本处理] 【已解决】批处理如何把多余字段删掉呢

hold2012

//             本信息来自 http:home-ktv.taobao.com
//    专业提供DVD歌库新歌下载、拷贝、娱乐场所解决方案。
//             QQ：398772392 TEL：15818758345

karaoke := CreateKaraokeObject;
karaoke.internalnumber := 944493;  // 歌曲编号
karaoke.rows := 2;
karaoke := CreateKaraokeObject;
karaoke.clear;


karaoke.tag('歌名', 'Closer(欣赏版)(大家唱KTV舞曲)');
karaoke.tag('缩写', 'C');
karaoke.tag('歌手', 'Ne Yo');
karaoke.tag('字数', '1');
karaoke.tag('语种', '英语');
karaoke.tag('歌类', '其他');
karaoke.tag('电影', 'false');
karaoke.tag('风格', 'DISCO');
karaoke.tag('流行', 'true');
karaoke.tag('音量', '54');
karaoke.tag('声道', '21');
karaoke.tag('FMP声道', '32');
karaoke.tag('语音', '0');
karaoke.tag('介质', '0');
karaoke.tag('时间', '2013-3-18');
karaoke.tag('歌星拼音', 'NY');
karaoke.tag('原音', '54');
karaoke.tag('伴音', '54');
karaoke.tag('歌词', ' ');
karaoke.tag('亮度', '0');
karaoke.tag('对比度', '0');
karaoke.tag('饱和度', '0');
karaoke.tag('标识', 'MTV');
karaoke.mtvmode :=true;
karaoke.videofilename := '';
karaoke.audiofilename := '*.wav';
karaoke.XSDVideoMode := 0;
karaoke.CommonVideo := 'Ne Yo-Closer(欣赏版)(欣赏版)-英语-944493.mpg';

能不能做个批处理，把多个文件夹下的KSC文件的这行【karaoke.CommonVideo := 'Ne Yo-Closer(欣赏版)(欣赏版)-英语-944493.mpg';】改成【karaoke.CommonVideo := '944493.mpg';】

多个文件如下：


//             本信息来自 http:home-ktv.taobao.com
//    专业提供DVD歌库新歌下载、拷贝、娱乐场所解决方案。
//             QQ：398772392 TEL：15818758345

karaoke := CreateKaraokeObject;
karaoke.internalnumber := 944500;  // 歌曲编号
karaoke.rows := 2;
karaoke := CreateKaraokeObject;
karaoke.clear;


karaoke.tag('歌名', 'Bumbunok(欣赏版)(大家唱KTV舞曲)');
karaoke.tag('缩写', 'B');
karaoke.tag('歌手', '佚名');
karaoke.tag('字数', '1');
karaoke.tag('语种', '英语');
karaoke.tag('歌类', '其他');
karaoke.tag('电影', 'false');
karaoke.tag('风格', 'DISCO');
karaoke.tag('流行', 'true');
karaoke.tag('音量', '54');
karaoke.tag('声道', '21');
karaoke.tag('FMP声道', '32');
karaoke.tag('语音', '0');
karaoke.tag('介质', '0');
karaoke.tag('时间', '2013-3-18');
karaoke.tag('歌星拼音', 'YM');
karaoke.tag('原音', '56');
karaoke.tag('伴音', '54');
karaoke.tag('歌词', ' ');
karaoke.tag('亮度', '0');
karaoke.tag('对比度', '0');
karaoke.tag('饱和度', '0');
karaoke.tag('标识', 'MTV');
karaoke.mtvmode :=true;
karaoke.videofilename := '';
karaoke.audiofilename := '*.wav';
karaoke.XSDVideoMode := 0;
karaoke.CommonVideo := '佚名-Bumbunok(欣赏版)(欣赏版)-英语-944500.mpg';

Marks

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /a-d *.ksc') do (
    (for /f "delims=" %%i in ('findstr /n .* "%%a"') do (
        set "str=%%i"
        if "!str:karaoke.CommonVideo=!" neq "!str!" (
            for /f "tokens=1,2*delims='" %%j in ("!str:-=/!") do (
                set "str=%%j'%%~nxk'%%l"
            )
        )
        echo;!str:*:=!
    ))>$$.tmp
    move $$.tmp "%%a"
)
复制代码

BAT-VBS

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /s /b *.KSC') do (
    (for /f "usebackq tokens=1-2 delims==" %%b in ("%%a") do (
        if "%%c" equ "" (
            echo %%b
        ) else if "%%b" equ "karaoke.CommonVideo :" (
            set str=%%c
            set "str=!str:*-=!"
            set "str=!str:*-=!"
            set "str=!str:*-=!"
            echo %%b= '!str!
        ) else (
            echo %%b=%%c
        )
    ))>"%%a.dat"
    move /y "%%~na.dat" "%%a"
)
复制代码