Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];

Вниз

*.doc в *.txt, и снести форматирование!   Найти похожие ветки 

← →
pavel_ak   (2003-01-10 21:52) [0]

Как превратить *.doc документ в *.txt забив на форматирование! Спасибо!

---

← →
pavel_ak   (2003-01-10 22:42) [1]

Может непонятно выразился? Существует файл "1.doc". Как извлечь из него текстовую информацию, т.е. создать файл "1.txt", где содержится отт же текст, но без форматирования и т.п.???

---

← →
Song   (2003-01-11 07:37) [2]

Ну так.. либо OLE либо вручную, выбирай...

---

← →
alvin   (2003-01-11 10:43) [3]

Можно работать через WordApplication и использовать конверторы Word.

---

← →
pavel_ak   (2003-01-11 16:04) [4]

А может кто привести пример использования вышеперечисленного?

---

← →
TTCustomDelphiMaster   (2003-01-11 16:42) [5]

Пример работы с Word найдешь в сети (есть на королевстве дельфи). Для сохранения в текстовом формате используй метод ActiveWorkBook.SaveAs, второй параметр которого указывает формат файла (для текстового формата он равен 2).
PS: Еще есть компоненты для паботы с *.doc без Word"а. (ищи в сети).

---

← →
alvin   (2003-01-11 21:34) [6]

У меня где-то была программка таким образом переводящая в HTML, если найду - отпишу, или если есть необходимость вышлю исходники. Только я вроде писал под Delphi4

---

← →
alvin   (2003-01-11 23:00) [7]

Вот тут на ходу состряпал чего-то (вроде чего-то напортачил с сохранением, но главное суть передал):

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
index,i_txt,fileformat,fname,newname,savechanges:OleVariant;
mydoc:_Document;
begin
OpenDialog1.Execute;
fname:=OpenDialog1.FileName;
newname:="c:\example.txt";
Word:=TWordApplication.Create(nil);
try
//вообще надо посмотреть какие конвертеры имеются
for i:=1 to Word.FileConverters.Count do begin
index:=i;
ListBox1.Items.add(Word.FileConverters.Item(index).FormatName);
if Word.FileConverters.Item(index).ClassName="Text with Layout" then
//выбор можно также делать по расширению и названия
i_txt:=index;
end;
FileFormat:=Word.FileConverters.Item(i_txt).SaveFormat;
SaveChanges:=false;//это чтобы при закрытии не выскакивал запрос на сохранение
//открываешь файл MyDoc:=Word.Documents.Open(FName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

//сохраняешь в нужном формате

MyDoc.SaveAs(NewName,FileFormat,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
//закрываешь документ
MyDoc.Close(SaveChanges, EmptyParam,EmptyParam);
finally
Word.Quit;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c