(
0) вот мой кусок
// Извлечь текст из файла Doc и возвратить его в виде строки.
Функция ИзвлечьТекстИзФайлаDoc(ПутьКФайлу, Отказ)
ИзвлеченныйТекст = "";
#Если Не ВебКлиент Тогда
ВременныйDocФайл = ПолучитьИмяВременногоФайла("doc");
КопироватьФайл(ПутьКФайлу, ВременныйDocФайл);
ВременныйТексДокумент = ПолучитьИмяВременногоФайла();
ТекстДокумента = новый ТекстовыйДокумент;
Попытка
СтрокаКонсольнойКоманды = "antiword " + ВременныйDocФайл + " > " + ВременныйТексДокумент;
ЗапуститьПриложение(СтрокаКонсольнойКоманды);
Sleep(2);
Исключение
Отказ = Истина;
ИзвлеченныйТекст = "";
КонецПопытки;
Попытка
ТекстДокумента.Прочитать(ВременныйТексДокумент);
ИзвлеченныйТекст = ТекстДокумента.ПолучитьТекст();
Исключение
Отказ = Истина;
ИзвлеченныйТекст = "";
КонецПопытки;
#КонецЕсли
УдалитьФайлы(ВременныйDocФайл);
УдалитьФайлы(ВременныйТексДокумент);
Возврат ИзвлеченныйТекст;
КонецФункции
// Извлечь текст из файла XLS и возвратить его в виде строки.
Функция ИзвлечьТекстИзФайлаXLS(ПутьКФайлу, Отказ)
ИзвлеченныйТекст = "";
#Если Не ВебКлиент Тогда
ВременныйXLSФайл = ПолучитьИмяВременногоФайла("xls");
КопироватьФайл(ПутьКФайлу, ВременныйXLSФайл);
ВременныйТексДокумент = ПолучитьИмяВременногоФайла();
ТабличныйДокумент = Новый ТабличныйДокумент;
ТекстДокумента = новый ТекстовыйДокумент;
Попытка
ТабличныйДокумент.Прочитать(ВременныйXLSФайл, СпособЧтенияЗначенийТабличногоДокумента.Текст);// СпособЧтенияЗначенийТабличногоДокумента - новый параметр платформы 8.3.6. Второе значение "Текст".
ТабличныйДокумент.Записать(ВременныйТексДокумент, ТипФайлаТабличногоДокумента.TXT);
ТекстДокумента.Прочитать(ВременныйТексДокумент);
ИзвлеченныйТекст = ТекстДокумента.ПолучитьТекст();
Исключение
Сообщить(ОписаниеОшибки(), СтатусСообщения.Внимание);
КонецПопытки;
УдалитьФайлы(ВременныйXLSФайл);
УдалитьФайлы(ВременныйТексДокумент);
#КонецЕсли
Возврат ИзвлеченныйТекст;
КонецФункции
//задержка
Процедура Sleep(Сек) Экспорт
Нач=ТекущаяДата();
Пока ТекущаяДата() - Нач < Сек Цикл
КонецЦикла;
КонецПроцедуры
