[Kirvisniemi]

Не надо никакой тулзы.

Вот накропал:

начало 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 --------------------------------