Не надо никакой тулзы.
Вот накропал:
начало 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
конец Splitter.vbs --------------------------------