如何批量在TXT文本每行前增加规则的数据?
比如:
[00.02.00]***********
[00.04.00]***********
[00.06.00]***********
…………
说明:我想在MP3上看电子书,但不支持TXT格式,只支持LRC歌词同步,每行8个字,我想把TXT每行前加上上述数据,改成LRC歌词格式,再建立一个空的音频,时间长短由TXT文本而定,然后再下载到MP3上,别的软件都全了,就差这个了,哪位高手有这个工具啊
参考答案:很好办,如果想用和我联系,最好加点分,哈:)
你是想在TXT文件的每行前面加上[00.02.00]是吗?
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
if wscript.arguments.count=0 then msgbox "请把你要处理的文件文件拖放到这个脚本上!",4096,"系统提示":wscript.quit
set file=fso.opentextfile(wscript.arguments(0),1)
s=replace(file.readall,vbcrlf,"")
file.close
i=2
do until left(s,8)=""
m="[00.0" & i & ".00]"
n=left(s,8):s=mid(s,9)
sn=sn & m & n & vbcrlf
i=i+2
loop
set file=fso.opentextfile(wscript.arguments(0),2)
file.write sn
file.close
msgbox "操作成功",48+4096,"系统提示"
把它复制到记事本,另存为aa.vbs(注意:请在测试后使用)