Обработка текстового файла в 8.2 приводит к зависанию

[Элексир]

Доброй ночи Уважаемые. Столкнулся с такой проблемой.
Выгрузил в текст справочник базы 7ки.  Некоторые реквизиты пустые. соответственно имеются пустые строки. Получилось около 50 000 строк. При обработке все это зависает .
При Этом если выгружать не все реквизиты справочника 7ки. а только половину то все нормально обрабатывается

[Kivals]

Ищи ошибку в алгоритме - 50 тыс. строк это не мого для 8.Х
Вставь вывод в статус-бар номер обрабатываемой строки.

[Элексир]

Kivals, а как вставить вывод в статусную строку?
Состояние() в управляемом приложение не обрабатывается.

[Kivals]

Глобальный контекст (Global context)
Состояние (Status)
...
Доступность:
Тонкий клиент, веб-клиент, толстый клиент.

Если у тебя обработка на сервере - тогда тебе периодически (каждые ХХХ строк) нужно возвращать управление клиенту, выводить состояние и продолжать дальше на сервере со следующей строки

[Элексир]

Код:

ф = Новый ТекстовыйДокумент;
ф.Прочитать(путь);
Спр = Справочники.Номенклатура;
НовГруппа = Спр.СоздатьГруппу();
НовГруппа.Код=ф.ПолучитьСтроку(1);
новГруппа.Наименование=ф.ПолучитьСтроку(2);
НовГруппа.Записать();
слик = НовГруппа.Ссылка;
ном =2;
КонДок = ф.КоличествоСтрок();
пока ном<>КонДок цикл
Состояние(ном);
ном = ном+1;
ЛС = ф.ПолучитьСтроку(ном);
ном = ном+1;
Наим= ф.ПолучитьСтроку(ном);
наб.Код =ЛС;
наб.Наименование=Наим;
наб.Родитель=слик;
наб.Записать();
КонецЦикла;

Kivals, этот код приводит к ошибке. и каким образом возвращать управление клиенту?

[Kivals]

Этот код не понятно где выполняется. Нужно полное объявление процедуры с директивой (если мы говорим про управляемое приложение 8.2):

Код:

&НаКлиенте
Процедура СписокРолиСнятьФлажки(Команда)
	...
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	...
КонецПроцедуры

[Элексир]

Код:

&НаСервере
Процедура ОбработСпр()
ф = Новый ТекстовыйДокумент;
ф.Прочитать(путь);
Спр = Справочники.Номенклатура;
НовГруппа = Спр.СоздатьГруппу();
НовГруппа.Код=ф.ПолучитьСтроку(1);
новГруппа.Наименование=ф.ПолучитьСтроку(2);
НовГруппа.Записать();
слик = НовГруппа.Ссылка;
ном =2;
КонДок = ф.КоличествоСтрок();
пока ном<>КонДок цикл
Состояние(ном);
ном = ном+1;
ЛС = ф.ПолучитьСтроку(ном);
ном = ном+1;
Наим= ф.ПолучитьСтроку(ном);
наб.Код =ЛС;
наб.Наименование=Наим;
наб.Родитель=слик;
наб.Записать();
КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура Команда1(Команда)
ОбработСпр();
КонецПроцедуры

[Kivals]

Код:

&НаСервере
Функция ОбработСпр(Ном=0)
	ф = Новый ТекстовыйДокумент;
	ф.Прочитать(Путь);
	Спр = Справочники.Номенклатура;
	Если Ном=0 Тогда
		НовГруппа = Спр.СоздатьГруппу();
		НовГруппа.Код=ф.ПолучитьСтроку(1);
		новГруппа.Наименование=ф.ПолучитьСтроку(2);
		НовГруппа.Записать();
		слик = НовГруппа.Ссылка;
		Ном=2;
	КонецЕсли;
	КонДок = ф.КоличествоСтрок();
	Пока Ном<КонДок Цикл // Вот здесь наверное и ошибка: в случае когда количество строк непарное
		//Состояние(ном); На сервере не работает
		ном = ном+1;
		ЛС = ф.ПолучитьСтроку(ном);
		ном = ном+1;
		Наим= ф.ПолучитьСтроку(ном);
		наб.Код =ЛС;
		наб.Наименование=Наим;
		наб.Родитель=слик;
		наб.Записать();
		Если Ном%100=0 Тогда Возврат 0; КонецЕсли;
	КонецЦикла;
	Возврат 1;
КонецФункции

&НаКлиенте
Процедура Команда1(Команда)
	Ном=0;
	Пока ОбработСпр(Ном)=0 Цикл
		Состояние(Ном); // На клиенте!
	КонецЦикла;
КонецПроцедуры

[Элексир]

Kivals, когда выгружаю справочник полностью получается так что две последние строки пустые.
замерил количество строк с помощью notepad++. он показывает на одну строку больше чем считает
ф.количество строк (). думаю что мне надо заместо пустых строк вставлять какой нить символ например "0". так скорее всего излечится. Только непонятно почему 8ка не может верно подсчитать количество строк.

[Kivals]

Я бы одну запись писал в одну строку, а разделял табуляцией

[Элексир]

Kivals, спасибо все заработало.

[Элексир]

Kivals, хочу спросить после обработки файла просмотрел что получилось так там некоторые элементы не входят в созданную группу хотя и подчиняются по владельцу. Можно ли это как-то исправить? или вручную через переместить в группу?

[Kivals]

У меня небольшая ошибка в коде - я группу создавал (инициализировал) только при первом вызове ОбработСпр(). Соответственно при следующих вызовах надо искать ее по наименованию/коду в первых строках

[Элексир]

Kivals, еще раз Спасибо!!!