Question

批处理+多个txt文件每一行自动增加内容

随便一个文件夹下面有N个txt文本文件，每个文本文件有N行，想要在每个文本文件的每一行前面加入同样的内容，文件夹下面所有txt文本文件要同时进行。
如(其中一个txt文件)：
aabbccc
dseeeee
sesseeee
sesssssssaa1445
333e
2222修改后：
你好aabbccc
你好dseeeee
你好sesseeee
你好sesssssssaa1445
你好333e
你好2222如上所述，我现在需要的是多个txt文件同时进行修改。
请帮帮忙，谢谢~！QQ：448288251

Answer 1

Dim FolderPath,Write,May
FolderPath="E:\txt" '文件夹所在路径
Write="你好" '要添加的字符串
May=Msgbox("是否保留原文件？",36,"询问")Set Fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFolder(FolderPath)
Set TxtPath = F.Files
For Each Every in TxtPath
IF LCase(Right(Every,3))="txt" Then '判断文件是否是TXT文本
Set Text_1=Fso.OpenTextFile(Every)
Set Text_2=Fso.CreateTextFile(Left(Every,Len(Every)-4)&"_VBS.txt")
Do Until Text_1.AtEndofStream
Text_2.WriteLine Write&Text_1.ReadLine '写入内容
Loop
Text_1.Close
Text_2.close
IF May=7 Then
Set Text_1=Fso.GetFile(Every)
Text_1.Delete
End IF
End IF
NextWScript.Quit