Чтение PDF из 1с

	ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	ДиалогОткрытияФайла.Фильтр = НСтр("ru = ""Текст""; en = ""Text""")+"(*.pdf)|*.pdf";
	ДиалогОткрытияФайла.Заголовок = "Выберите файл";
	ДиалогОткрытияФайла.ПроверятьСуществованиеФайла = Истина;
	Если Не ДиалогОткрытияФайла.Выбрать() Тогда
		Возврат;
	КонецЕсли;
	ФайлPDF = ДиалогОткрытияФайла.ПолноеИмяФайла;
	
	КаталогВременныхФайлов = КаталогВременныхФайлов();
	
	ДанныеОДоставке=Новый ТаблицаЗначений;
	ДанныеОДоставке.Колонки.Добавить("ТипЗаявки");
	ДанныеОДоставке.Колонки.Добавить("НомерВКС");
	ДанныеОДоставке.Колонки.Добавить("НомерНаш");
	ДанныеОДоставке.Колонки.Добавить("Субагент");
	ДанныеОДоставке.Колонки.Добавить("Доставка");
	ДанныеОДоставке.Колонки.Добавить("Самовывоз");
	ДанныеОДоставке.Колонки.Добавить("Чек");
	ДанныеОДоставке.Колонки.Добавить("Компл");
	ДанныеОДоставке.Колонки.Добавить("Забор");
	ДанныеОДоставке.Колонки.Добавить("Подготовка");
	ДанныеОДоставке.Колонки.Добавить("ПолучиноОтКлиента");
	ДанныеОДоставке.Колонки.Добавить("ОбъявленнаяСтоиомсть");
	
	МакетУтилиты = ПолучитьМакет("pdftotext");
	Адрес = ПоместитьВоВременноеХранилище(МакетУтилиты, Новый УникальныйИдентификатор);
	ФайлУтилиты1 = КаталогВременныхФайлов + "pdftotext.exe";
	ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
	УдалитьИзВременногоХранилища(Адрес);
	ДанныеХранилища.Записать(ФайлУтилиты1);
	
	МакетУтилиты = ПолучитьМакет("hstart");
	Адрес = ПоместитьВоВременноеХранилище(МакетУтилиты, Новый УникальныйИдентификатор);
	ФайлУтилиты2 = КаталогВременныхФайлов + "hstart.exe";
	ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
	УдалитьИзВременногоХранилища(Адрес);
	ДанныеХранилища.Записать(ФайлУтилиты2);
	
	МакетУтилиты = ПолучитьМакет("xpdfrc");
	Адрес = ПоместитьВоВременноеХранилище(МакетУтилиты, Новый УникальныйИдентификатор);
	ФайлУтилиты3 = КаталогВременныхФайлов + "xpdfrc";
	ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
	УдалитьИзВременногоХранилища(Адрес);
	ДанныеХранилища.Записать(ФайлУтилиты3);
	
	ТекстКоманды = """" + КаталогВременныхФайлов + "hstart.exe"" /NOCONSOLE /WAIT ""pdftotext.exe -layout """ + ФайлPDF + """ """ + КаталогВременныхФайлов + "temp.txt""""";
	
	WshShell = Новый COMОбъект("WScript.Shell");
	WshShell.Run(ТекстКоманды, 5, 1);
	
	Текст = Новый ЧтениеТекста(КаталогВременныхФайлов+"temp.txt", КодировкаТекста.UTF8);
	Стр = Текст.ПрочитатьСтроку();
	ЕстьНачало=Ложь;
	Пока Стр <> Неопределено Цикл 
		Если НЕ ЕстьНачало Тогда 
			Пока Найти(Стр,"  ")>0 Цикл 
				Стр=СтрЗаменить(Стр,"  "," ");
			КонецЦикла;
			Если СокрЛП(стр)="1 2 3 4 5 6 7 8 9" Тогда 
				ЕстьНачало=Истина;
			КонецЕсли;
		ИНаче
			Если Найти(Стр,"Итого:")>0 Тогда 
				ЕстьНачало=Ложь;
				Продолжить;
			КонецЕсли;
			Стр=СокрЛП(Стр);
			Пока Найти(Стр,"  ")>0 Цикл 
				Стр=СтрЗаменить(Стр,"  "," ");
			КонецЦикла;
			ПервыйПробел=Найти(Стр," ");
			Если ПервыйПробел>0 Тогда 
				Попытка
					ЧИслостроки=Число(Сред(Стр,1,ПервыйПробел));
				Исключение
					ЧИслостроки=0;
				КонецПопытки;
				массивДанных=Новый Массив;
				Если ЧИслостроки>0 Тогда 
					массивДанных=РасшифроватьСтрокуВМассив(Стр);
				ИНаче
					массивДанных.Очистить();
				КонецЕсли;
				Если массивДанных.Количество()>7 Тогда 
					СтрокаВтаблице1С=ДанныеОДоставке.Добавить();
					СтрокаВтаблице1С.НомерВКС=СокрЛП(массивДанных[2]);
					СтрокаВтаблице1С.НомерНаш=СокрЛП(массивДанных[2]);
					СтрокаВтаблице1С.ТипЗаявки="заявка";
					СтрокаВтаблице1С.Доставка=Число(массивДанных[6]);
					СтрокаВтаблице1С.Чек=Число(массивДанных[7]);
					СтрокаВтаблице1С.ПолучиноОтКлиента=Число(массивДанных[5]);
					СтрокаВтаблице1С.ОбъявленнаяСтоиомсть=Число(массивДанных[4]);
				КонецЕсли;	
			КонецЕсли;	
		КонецЕсли;
		Стр = Текст.ПрочитатьСтроку();
	КонецЦикла;   
	Текст.Закрыть();
	УдалитьФайлы(КаталогВременныхФайлов + "temp.txt");
	УдалитьФайлы(КаталогВременныхФайлов + "pdftotext.exe");
	УдалитьФайлы(КаталогВременныхФайлов + "hstart.exe");
	УдалитьФайлы(КаталогВременныхФайлов + "xpdfrc");

ПутьКPDF2TXT = "C:\Program Files (x86)\PDF2TXT";
ПутьPDF = Элемент.ПолноеИмя;
pdf = ПутьPDF;
txt = СтрЗаменить(pdf,"pdf","txt");
Команд = ПутьКPDF2TXT+"\pdf2txt.exe " + pdf + " " + txt; 
ЗапуститьПриложение(Команд,,Истина);
ОбъектТ = Новый ИзвлечениеТекста(txt);
ТекстФ = ОбъектТ.ПолучитьТекст();