UC知道如何批量在TXT文本每行前增加规则的数据?
来源：百度知道 编辑：UC知道 时间：2024/05/19 20:27:10
比如：
[00.02.00]12345678
[00.04.00]12345678
[00.06.00]12345678
…………
说明：我想在MP3上看电子书，但不支持TXT格式，只支持LRC歌词同步，每行8个字，我想把TXT每行前加上上述数据，改成LRC歌词格式，再建立一个空的音频，时间长短由TXT文本而定，然后再下载到MP3上，别的软件都全了，就差这个了，哪位高手有这个工具啊
不是每行前都一样，是有规律的，下一行比上一行多2秒
[00.02.00]12345678
[00.04.00]12345678
[00.06.00]12345678
…………
说明：我想在MP3上看电子书，但不支持TXT格式，只支持LRC歌词同步，每行8个字，我想把TXT每行前加上上述数据，改成LRC歌词格式，再建立一个空的音频，时间长短由TXT文本而定，然后再下载到MP3上，别的软件都全了，就差这个了，哪位高手有这个工具啊
不是每行前都一样，是有规律的，下一行比上一行多2秒
很好办，如果想用和我联系，最好加点分，哈:)
你是想在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（注意：请在测试后使用）
jin_mz竟然是用的VBS, 高手啊哈.
我也自己写了一个. 是用VB6的. 假设要转换的文件是 C:\1.txt 转换后的结果存放在 C:\转换后.txt
路径可以自己改的.
Public Function AddTwoSeconds(ByVal strTime As String) As String
If Len(strTime) = 0 Then