|
![]() |
#1 |
Moderator
|
Не надо никакой тулзы.
Вот накропал: начало Splitter.vbs ------------------------------- Код: const INPUTFILE = "123123.txt" Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Dim line Set fso = CreateObject("Scripting.FileSystemObject") Set fsout = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(INPUTFILE, ForReading, True) Do While f.AtEndOfStream = False line = f.ReadLine if left(line,7)="OBJECT " then Set fout = fsout.OpenTextFile(left(line,17)+".txt", ForWriting, True) end if fout.WriteLine(line) if left(line,1)="} " then fout.Close end if loop f.Close |
|