[文本处理] 批处理如何批量修改文本内容

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.tag('音量', '54');】改成【karaoke.tag('音量', '160');】


多个文件如下：


//             本信息来自 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('音量', '60');
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';

Demon

变相广告

apang

回复 3# hold2012


    vbs跟你有仇哈？

hold2012

回复 2# apang


    VBS也可以修改的，有没可以写BAT的呢

apang

试试vbs

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File in FSO.GetFolder(".").Files
   Ext = FSO.GetExtensionName(File)
   If LCase(Ext) = "ksc" Then
      RegEx FSO.OpenTextFile(File).ReadAll
   End If
Next

MsgBox "OK"

Sub RegEx(Text)
   Set re = New RegExp
   re.Pattern = "('音量'.*?)('.*')"
   re.Global = True
   FSO.CreateTextFile(File,True).Write re.Replace(Text,"$1'160'")
End Sub
复制代码