如何在TXT文本每行前批量加上~我爱你!

如何在TXT文本每行前批量加上~我爱你!

比如~~~
我爱你~123456
我爱你~231232
我爱你~234324
我爱你~234324

后面怎么加也请VB高手告诉下~~
比如:
123456我爱你~
231232我爱你~
234324我爱你~
234324我爱你~
高手能不能给我写个VBS啊~~~~~~~谢谢了啊word 不怎么好用啊!!!!!!!!!!!!

set fso=createobject("scripting.filesystemobject")
n=inputbox("请输入你要加上的话","提示","我爱你~")
set file=fso.opentextfile("a.txt",1)
do while file.atendofstream<>true
line=file.readline
h=n & line '这里的n和line掉换就是前后的关系
s=s & h & vbcrlf
loop
file.close
set file=fso.opentextfile("a.txt",2)
file.write s
file.close
msgbox "插入" & n & "成功",0,"提示"
'请在测试后使用

加我爱你干什么?????

很好办，如果想用和我联系，最好加点分，哈:) 你是想在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（注意：请在测试后使用）

1.在word中打开这个文件, 2.执行编辑菜单下的查找替换命令---查找内容框中输入:点高级,选特殊字符,选段落标记.----然后在替换为框中输入段落标记(照上面办法)我爱你---确认. 上面的思路是将文本中所有回车符替换成回车符+我爱你就达到你的要求了,