AXForum  
Вернуться   AXForum > Microsoft Dynamics NAV > NAV: Прочие вопросы
DAX
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 06.02.2006, 16:49   #1  
Kirvisniemi is offline
Kirvisniemi
Moderator
 
342 / 13 (1) ++
Регистрация: 21.12.2004
Не надо никакой тулзы.

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

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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 21:50.