Question

怎么在txt文本中每行末尾添加字符

如txt文本内容:
11111
22222
33333
我想在每行后面添加a /b
如下
11111a /b
22222a /b
33333a /b
请高手解决 急
谢谢
贴出vbs批量在每行前面添加字符的代码，求高手告诉我怎么改成批量加到每行末尾
'=================================================================
set arg=WScript.Arguments
if arg.count=0 then
msgbox "Usage:"&vbcrlf&vbcrlf&" 不要直接运行这个脚本，把需要进行字符串替换的一个或多个文件拖曳到这个脚本文件上来就可以了。"
wscript.quit
end if
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("请输入在行前添加的字符：")
do
fw.writeline(data&fr.readline)
loop until fr.atendofstream
fr.close
fw.close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
do
fw.writeline(fr.readline)
loop until fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
复制以上内容保存为vbs文件，把你的想要修改的文档拖到此vbs文件，你就可以输入要添加的字符了，输入完毕确认即可，打开你的文档，你会发现你的每一行前都添加了你刚才输入的数据。

Answer 1

如果你只是要完成添加字母的工作，建议你用excel完成。
将txt导入excel，在后一列输入要添加的内容。用&操作符合并两列。再导出到txt文件。

如果要修改代码
把fw.writeline(data&fr.readline)

改成fw.writeline(fr.readline&data)