Обработка txt файла

&НаСервере
Процедура СформироватьНаСервере()
	
	// проверим наличие файла выбранном каталоге
	КаталогГдеИскать = ВыборКаталогаЗагрузки;
	МассивНайденныхФайлов = НайтиФайлы(КаталогГдеИскать, "*.txt");
	
	Если МассивНайденныхФайлов.Количество() < 0 Тогда //каталог пустой
		Сообщить("Каталог пустой.");
		Возврат;
	ИначеЕсли МассивНайденныхФайлов.Количество() > 1 Тогда //в каталоге файлов больше одного
		Сообщить("В выбранном каталоге слишком много файлов.");
		Возврат;
	Иначе 
		Сообщить("Файл найден, загружаем.");
	КонецЕсли;
	
	Разделитель = ";";
	
	//прочитаем файл TXT
	ФайлТХТ = Новый ТекстовыйДокумент;
	
	ФайлТХТ_ПолноеИмя = МассивНайденныхФайлов[0].ПолноеИмя;//полное имя файла
	
	ФайлТХТ.Прочитать(ФайлТХТ_ПолноеИмя);
	
	ФайлТХТ_КоличествоСтрок = ФайлТХТ.КоличествоСтрок();
	
	Для СчетчикСтрок = 1 По ФайлТХТ_КоличествоСтрок Цикл //переберем все строки TXT
		
		ФайлТХТ_ТекущаяСтрока = ФайлТХТ.ПолучитьСтроку(СчетчикСтрок);
		ФайлТХТ_ТекущаяСтрокаРазделенная = СтрРазделить(ФайлТХТ_ТекущаяСтрока, Разделитель, Истина);
		
		//на форме создана ТаблицаЗначений "ФайлТХТ_ТЗ"
		//заполним ФайлТХТ_ТЗ
		СтрТЗФайлТХТ_ТЗ = ФайлТХТ_ТЗ.Добавить();
		СтрТЗФайлТХТ_ТЗ.Артикул       = ФайлТХТ_ТекущаяСтрокаРазделенная[0];
		СтрТЗФайлТХТ_ТЗ.Номенклатура  = ФайлТХТ_ТекущаяСтрокаРазделенная[1];
		СтрТЗФайлТХТ_ТЗ.ШК            = ФайлТХТ_ТекущаяСтрокаРазделенная[2];
		СтрТЗФайлТХТ_ТЗ.ЦенаРозничная = ФайлТХТ_ТекущаяСтрокаРазделенная[3];
		СтрТЗФайлТХТ_ТЗ.ЕдИзм         = ФайлТХТ_ТекущаяСтрокаРазделенная[4];
		СтрТЗФайлТХТ_ТЗ.СтавкаНДС     = ФайлТХТ_ТекущаяСтрокаРазделенная[5];
		СтрТЗФайлТХТ_ТЗ.ВесШт         = ФайлТХТ_ТекущаяСтрокаРазделенная[6];
		
	КонецЦикла;
	
	//запрос по артикулу
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	спрНоменклатура.Ссылка КАК Номенклатура,
		|	спрНоменклатура.Артикул КАК Артикул,
		|	ЦеныНоменклатурыСрезПоследних.Цена КАК Цена,
		|	Штрихкоды.Штрихкод КАК Штрихкод
		|ИЗ
		|	Справочник.Номенклатура КАК спрНоменклатура
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&ТекущаяДата, ) КАК ЦеныНоменклатурыСрезПоследних
		|		ПО спрНоменклатура.Ссылка = ЦеныНоменклатурыСрезПоследних.Номенклатура.Ссылка
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
		|		ПО спрНоменклатура.Ссылка = Штрихкоды.Владелец.Ссылка
		|ГДЕ
		|	спрНоменклатура.Артикул = &Артикул
		|	И ЦеныНоменклатурыСрезПоследних.ВидЦены = &ВидЦены";
	
	//Запрос.УстановитьПараметр("Артикул", файлАртикул);
	Запрос.УстановитьПараметр("ВидЦены", Справочники.ВидыЦен.НайтиПоНаименованию("Розничная"));
	Запрос.УстановитьПараметр("ТекущаяДата", КонецДня(ДатаРозничнойЦены));
	
	Для каждого СтрФайлТХТ_ТЗ Из ФайлТХТ_ТЗ Цикл //переберем все строки ТЗ
		
		Запрос.УстановитьПараметр("Артикул", СтрФайлТХТ_ТЗ.Артикул);
		РезультатЗапросаПоАртикулу = Запрос.Выполнить();
		
		ТЗ_Артикул = РезультатЗапросаПоАртикулу.Выбрать();
		
		Пока ТЗ_Артикул.Следующий() Цикл
			
			//обработка как мне надо
			//НО ОЧЕНЬ ДОЛГО!!!!			
			
		КонецЦикла;
		
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура Сформировать(Команда)
	СформироватьНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ВыборКаталога(Команда)
	Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
	ДиалогВыбораФайла = Новый ДиалогВыбораФайла(Режим);
	ДиалогВыбораФайла.Каталог = "";
	ДиалогВыбораФайла.МножественныйВыбор = Ложь;
	ДиалогВыбораФайла.Заголовок = "Выберите каталог";
	
	Если ДиалогВыбораФайла.Выбрать() Тогда
		ВыборКаталогаЗагрузки = ДиалогВыбораФайла.Каталог;	
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ДатаРозничнойЦены = КонецДня(ТекущаяДата());
КонецПроцедуры

Процедура ПодобратьСсылкиНоменклатурыПоАртикулам(Таблица, ИмяКолонкиАртикула, ИмяКолонкиСсылки) Экспорт
		
	Артикулы = Таблица.ВыгрузитьКолонку(ИмяКолонкиАртикула);
	
	Запрос = Новый Запрос;
	
	Запрос.Текст = 
	
	"ВЫБРАТЬ РАЗЛИЧНЫЕ
	|	НоменклатураСпр.Артикул КАК Артикул,
	|	НоменклатураСпр.Ссылка КАК Номенклатура,
	|	ЕСТЬNULL(НоменклатураСпр.ПометкаУдаления, ЛОЖЬ) КАК ПометкаУдаления
	|ИЗ
	|	Справочник.Номенклатура КАК НоменклатураСпр
	|ГДЕ
	|	НоменклатураСпр.Артикул В(&Артикулы)
	|
	|УПОРЯДОЧИТЬ ПО
	|	Артикул,
	|	ПометкаУдаления"
	;
	
	Запрос.УстановитьПараметр("Артикулы", Артикулы);
	
	ТаблицаНоменклатуры = Запрос.Выполнить().Выгрузить();
	
	Для Каждого Стр Из Таблица Цикл
		Если ЗначениеЗаполнено(Стр[ИмяКолонкиСсылки]) ИЛИ Не ЗначениеЗаполнено(Стр[ИмяКолонкиАртикула]) Тогда
			Продолжить;	
		КонецЕсли;
		
		ПараметрыОтбораТаблицыНоменклатур = Новый Структура("Артикул", Стр[ИмяКолонкиАртикула]);
		
		ОтборТаблицыНоменклатур = ТаблицаНоменклатуры.НайтиСтроки(ПараметрыОтбораТаблицыНоменклатур);
		
		Если ОтборТаблицыНоменклатур.Количество() > 0 Тогда
			Номенклатура = ОтборТаблицыНоменклатур[0].Номенклатура;
		Иначе
			Номенклатура = ПредопределенноеЗначение("Справочник.Номенклатура.ПустаяСсылка");
		КонецЕсли;
		
		Если Не ЗначениеЗаполнено(Номенклатура) Тогда
			Номенклатура = ПредопределенноеЗначение("Справочник.Номенклатура.ПустаяСсылка");	
		КонецЕсли;	
		
		ПараметрыОтбораИсходнойТаблицы = Новый Структура(ИмяКолонкиАртикула, Стр[ИмяКолонкиАртикула]);
		
		ОтборИсходнойТаблицы = Таблица.НайтиСтроки(ПараметрыОтбораИсходнойТаблицы);
		
		Для Каждого СтрОтбора Из ОтборИсходнойТаблицы Цикл		
			СтрОтбора[ИмяКолонкиСсылки] = Номенклатура;		
		КонецЦикла;	
		
	КонецЦикла;
	
КонецПроцедуры