Как порезать TXT с объектами на отдельные объекты?

[ovod]

Коллеги!
Когда-то мне попадалась тулза, которая среди прочего умела разрезать один большой txt файл, в который выгружены объекты Navision, на "много маленьких медвежат" - файликов типа T27.txt, T32.txt, в каждом - по одному объекту.
Что это была за тулза, я забыл. Не напомните?

[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 --------------------------------

[Kirvisniemi]

Немного более цивилизованный вариант

[ovod]

Спасибо, коллеги!

А вообще, симптоматично
Так вот и живем: кропаем какие-то поделки, хорошо когда делимся. От множества вырытых туннулей почва под Ла-Маншем приобретает очень плодородные свойства. Особенно будучи удобренной большим количеством CAL'а.

Поделка, думаю, заслуживает того, чтобы выложить ее в Downloads.

[mazzy]

Цитата:

Сообщение от ovod

Поделка, думаю, заслуживает того, чтобы выложить ее в Downloads.

Точно! И отмечена респектом.
Спасибо, tyrex.