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

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 06.02.2006, 16:04   #1  
ovod is offline
ovod
Участник
 
36 / 10 (1) +
Регистрация: 19.09.2003
Коллеги!
Когда-то мне попадалась тулза, которая среди прочего умела разрезать один большой txt файл, в который выгружены объекты Navision, на "много маленьких медвежат" - файликов типа T27.txt, T32.txt, в каждом - по одному объекту.
Что это была за тулза, я забыл. Не напомните?
Старый 06.02.2006, 16:49   #2  
Kirvisniemi is offline
Kirvisniemi
Moderator
 
342 / 12 (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 --------------------------------
Старый 06.02.2006, 18:03   #3  
Kirvisniemi is offline
Kirvisniemi
Moderator
 
342 / 12 (1) ++
Регистрация: 21.12.2004
Немного более цивилизованный вариант
Вложения
Тип файла: rar Navision_TXT_Splitter.rar (1.6 Кб, 188 просмотров)
Старый 07.02.2006, 11:16   #4  
ovod is offline
ovod
Участник
 
36 / 10 (1) +
Регистрация: 19.09.2003
Спасибо, коллеги!

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

Поделка, думаю, заслуживает того, чтобы выложить ее в Downloads.
Старый 07.02.2006, 18:23   #5  
mazzy is offline
mazzy
Участник
Аватар для mazzy
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии AXAWARD 2013
Лучший по профессии 2011
Лучший по профессии 2009
 
29,472 / 4477 (208) ++++++++++
Регистрация: 29.11.2001
Адрес: Москва
Записей в блоге: 10
Цитата:
Сообщение от ovod Посмотреть сообщение
Поделка, думаю, заслуживает того, чтобы выложить ее в Downloads.
Точно! И отмечена респектом.
Спасибо, tyrex.
__________________
полезное на axForum, github, vk, coub.
 

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

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

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

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

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 06:13.
Powered by vBulletin® v3.8.5. Перевод: zCarot
Контактная информация, Реклама.