将每行文本（+第一行）输出到自己的.txt文件VBS-Script

Question

我需要一个VBS脚本来输出第一行文本以及文件data.txt的另一行文本。

我的text.txt文件的例子

line1 + line2到1.txt line1 + line3到2.txt line1 + line4到3.txt

提前致谢， 最好的祝福， 乔

Answer 1

自从我使用VBS以来很长一段时间

Set fso = CreateObject("Scripting.FileSystemObject")
set src = fso.OpenTextFile("test.txt",1)
lines = split(src.readall,vbcrlf)

for i = 1 to ubound(lines)
 set dst = fso.CreateTextFile( i & ".txt", true)
 dst.writeline lines(0)
 dst.writeline lines(i)
 dst.close
next

Answer 2

您可以使用FileSystemObject写入文件。此页面显示了一些用于打开和写入文件的示例代码：Working with Files