![]() |
![]() |
![]() |
|
Какие штатные\нештатные средства чтения файлов 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)Спасибо за помощь. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |