Имя: Пароль:
1C
 
Какие штатные\нештатные средства чтения файлов rtf есть?
0 Мимохожий Однако
 
10.04.10
08:33
Потребовалось прочитать несколько файлов с накладными, а потом загрузить в заявку покупателя. V7Plus.dll может читать rtf-файл?
1 ДенисЧ
 
10.04.10
08:45
rtf - это текстовый файл. читай и разбирай...
2 Мимохожий Однако
 
10.04.10
08:53
(1)Спасибо. Все проще, чем кажется. :-)
3 ДенисЧ
 
10.04.10
08:53
(2) Угу. Ты сначала посмотри на спеки ртфов... Потом надейся :-)
4 Мимохожий Однако
 
10.04.10
09:24
(3)Ну вот.. напугал :-) . что такое "спеки"?
5 ДенисЧ
 
10.04.10
09:26
(4) specs aka specifications
6 Мимохожий Однако
 
10.04.10
09:34
ок
7 Мимохожий Однако
 
10.04.10
09:39
Может кто примерчик подкинет?
8 Мимохожий Однако
 
10.04.10
10:32
Пока остановился на том, что пересохраняю файл в обычный текстовый формат, а потом читаю
9 ДенисЧ
 
10.04.10
10:34
Делай открыть в ворде, а дальше уже привычными средствами :-)
10 zak555
 
10.04.10
10:34
11 Мимохожий Однако
 
14.04.10
00:00
Пытаюсь прочитать файл из Ворда. Ругается, что не может открыть шаблон. А я и не собираюсь открывать шаблон. Может с параметрами напутал?
Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяНачКаталога,ЗаголовокОкна,Фильтр,Расширение,20) = 1 Тогда
       Если ТипФайла ="ртф" Тогда
           MSWord = Создатьобъект("Word.Application");
           Попытка
               MSWord.Documents.Open(ИмяФайла);
               //MSWord.Visible=1;
               //Возврат;
               //Открыть
           Исключение
               Предупреждение("Не удалось открыть шаблон "+ИмяФайла
               + РазделительСтрок + ОписаниеОшибки());
               Возврат;
           Конецпопытки;
12 Мимохожий Однако
 
14.04.10
00:01
+(11) Расширение у файла rtf. Например, "заказ№12.rtf"
13 Torquader
 
14.04.10
00:31
+мозги в подарок ^-^
Откуда взялось "ТипФайла" ?
Почему передали в Word только имя файла без каталога ?
Здесь можно написать что-то более стоящее:
Предупреждение("Не удалось открыть шаблон " => Предупреждение("Word нас не понял")
Кроме того, у функции Open есть параметры, где явно надо указать, что открываем RTF, чтобы не было потом грустно, когда RTF откроют как текст.
14 Мимохожий Однако
 
14.04.10
06:13
(13) Переменная типФайла взято из обработки. К сабжу отношения имеет мало. Про параметры фунции Open  можешь сообщить подробнее и с примером?
15 Мимохожий Однако
 
14.04.10
09:01
Как вариант мне нужен код, чтобы открыть файл с расширением rtf и Сохранить Как обычный текст с расширением txt.
16 OFF
 
14.04.10
09:15
Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   // Создание объекта MS Word    
   Word = Новый COMОбъект("Word.Application");
   
   // Установка видимости приложения    
   Word.Visible = Ложь;
   
   // Добавление нового документа в приложение    
   Word.Documents.Open("C:\111.rtf",0,0);
   
   // Получение активного документа    
   Word.Documents.Item(1).Activate();
   
   // Сохранение документа    
   Word.ActiveDocument.SaveAs("C:\111.txt", 2,,,,,,,,,,1251);
   
   // Закрытие документа    
   Word.ActiveDocument.Close();
   
   // Закрытие приложения    
   Word.Quit();

КонецПроцедуры
для 77 перепишешь думаю
17 Fragster
 
гуру
14.04.10
09:22
18 Мимохожий Однако
 
16.04.10
07:43
(16) Строка
// Сохранение документа    

   Word.ActiveDocument.SaveAs("C:\111.txt", 2,,,,,,,,,,1251);
К сожалению, сохраняет в текстовый файл, но не в обычном текстовом формате. Внутри остаются служебные символы от rtf-формата.

я записал макрос в Word
       ActiveDocument.SaveAs FileName:="Заказ N 58197.txt", FileFormat:= _
           wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
           WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
           False, Encoding:=1251, InsertLineBreaks:=False, AllowSubstitutions:=False _
           , LineEnding:=wdCRLF

Не могу сообразить как воткнуть получившиеся параметры в параметры 1С
19 OFF
 
16.04.10
07:46
(18) бряк поинт на ActiveDocument.SaveAs и смотри чему равно числовое значение параметров
20 Мимохожий Однако
 
16.04.10
07:48
попробовал
//MSWord.ActiveDocument.SaveAs(ИмяТекКопии,2,,,1,,,,,,,1251,,,);
//ошибка Типы не совпадают
21 OFF
 
16.04.10
07:58
(20) MSWord.ActiveDocument.SaveAs(ИмяТекКопии,2,,,1,,,,,,,1251,,,);
все работает, ЧЯДНТ?
Есть подозрение на "ИмяТекКопии"
22 Мимохожий Однако
 
16.04.10
08:01
ИмяТекКопии = "НужноеИмя.txt"
Может быть, убрать расширение из него?
23 Мимохожий Однако
 
16.04.10
08:18
(21) Ошибка: типы не совпадают.
взял код
MSWord.ActiveDocument.SaveAs("C:\111.txt", 2,,,,,,,,,,1251);
24 Мимохожий Однако
 
16.04.10
08:30
MSWord.ActiveDocument.SaveAs(ИмяТекКопии,2);
этот код заработал
(13)(21)Спасибо за помощь.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший