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

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,"提示"
'请在测试后使用

1.在word中打开这个文件,
2.执行编辑菜单下的查找替换命令---查找内容框中输入:点高级,选特殊字符,选段落标记.----然后在替换为框中输入段落标记(照上面办法)我爱你---确认.

上面的思路是将文本中所有回车符替换成回车符+我爱你就达到你的要求了,

如果成功的话我也试试

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