Question

能否帮忙写个在某文本的内容里的每个字后面加上我想要的字的批处理（BAT） （文本有空格和一些特殊符号）

一大波伸手党袭卷而来，百度挺住啊
RT

还有个小问题，我把文件加入的注册表启动项那么我把加入注册表启动项原文件删除了注册表启动项是否失效了?

Answer 1

 
'把下面代码保存成.vbs后缀，放到有文本文件的那个文件夹里执行。
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
txtfile=InputBox("请输入txt文件名（不包括.txt后缀）","请输入文件名")
word=InputBox("请输入要添加的字符：","添加的字符")
Set fold=fso.OpenTextFile(txtfile+".txt",1,False)
Set fnew=fso.CreateTextFile("temp2.txt",False)
On Error Resume Next
fso.CopyFile txtfile&".txt",txtfile&"_backup.txt",false'事先备份下，'防止出错
Do Until fold.AtEndOfStream
char=fold.Read(1)
If char=Chr(10) Or char=Chr(13) Then
fnew.Write(char)
else
fnew.Write(char+word)
End If
Loop
fold.Close
fnew.Close
fso.CopyFile "temp2.txt",txtfile+".txt",True
fso.DeleteFile("temp2.txt")
MsgBox ("完成！   如无误可删除"+txtfile+"_backup.txt")
'注册表里的启动项只是个索引，跟快捷方式差不多，原来的文件必须存在才能有效