Вывести каждую строку текста (+ первую строку) в свой собственный .txt файл VBS-Script

Question

Мне нужен сценарий VBS для вывода первой строки текста вместе с другой строкой текста для файла data.txt.

пример моего файла text.txt

line1 + line2 для1.txt line1 + line3 to 2.txt line1 + line4 to 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 .На этой странице показан пример кода для открытия и записи в файл: Работа с файлами