Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> конвертирование doc файлов в txt 
:(
    Опции темы
ShamanVoodoo
Дата 23.3.2008, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 17.10.2007
Где: Сергиев Посад

Репутация: нет
Всего: -3
Как конвертировать документ MS Office в формате *.doc в обычный текстовый файл *.txt?
PM MAIL ICQ   Вверх
Albinos_x
Дата 23.3.2008, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
открыть и сделать SaveAs
параметр FileFormat задать равным wdFormatText


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
kemiisto
Дата 23.3.2008, 15:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 1
Всего: 160
Код

procedure TForm2.Button1Click(Sender: TObject);
var
  WordApp: Variant;
  DocName, TxtName: string;
begin
  WordApp := CreateOleObject('Word.Application');
  DocName := ExtractFilePath(Application.ExeName) + '1.doc';
  TxtName := ChangeFileExt(DocName, '.txt');
  WordApp.Documents.Open(DocName);
  WordApp.ActiveDocument.SaveAs(FileName := TxtName, FileFormat := 2);
  WordApp.ActiveDocument.Close;
  WordApp.Quit;
  WordApp := UnAssigned;
end;


Присоединённый файл ( Кол-во скачиваний: 40 )
Присоединённый файл  word.zip 12,73 Kb


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
ShamanVoodoo
Дата 23.3.2008, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 17.10.2007
Где: Сергиев Посад

Репутация: нет
Всего: -3
о! огромное спасибо) пойду пробовать!
PM MAIL ICQ   Вверх
nath44
Дата 3.11.2010, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.11.2010

Репутация: нет
Всего: нет
КАКИМ ПАСКАЛЕМ ТАКУЮ КРАСОТУ ОТКРЫТЬ НЕ ПОСОВЕТУЕТЕ?
а то мой ругаетсо

Это сообщение отредактировал(а) nath44 - 3.11.2010, 17:52
PM MAIL   Вверх
Данкинг
Дата 3.11.2010, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130
Цитата(nath44 @ 3.11.2010,  17:51)
КАКИМ ПАСКАЛЕМ ТАКУЮ КРАСОТУ ОТКРЫТЬ НЕ ПОСОВЕТУЕТЕ?
а то мой ругаетсо

Сильно сомневаюсь, что сиё можно сделать на Паскале. Это под Дельфи код.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Alexeyt
Дата 9.11.2010, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: 1
Всего: 2
Возьми конвертер doc-txt. Есть такие. Например xdoc2txt (H. Ishida).
PM WWW   Вверх
Данкинг
Дата 9.11.2010, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130
Alexeyt, это же самое можно и обычным "Вордом" сделать. smile Ну, разумеется, при установленном "офисе". А тут именно код для паскаля требуется. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0457 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.