Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/85: Рейтинг темы: голосов - 85, средняя оценка - 4.55
Славик___077
21 / 21 / 4
Регистрация: 30.01.2011
Сообщений: 119
1

Чтение из файлов doc и docx

25.03.2012, 20:43. Просмотров 15487. Ответов 19
Метки нет (Все метки)

подскажите как можно прочитать текст из этих файлов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2012, 20:43
Ответы с готовыми решениями:

Открытие Doc, Docx документов в мемо
Всем привет, открываю вордовские документы в мемо, а там не понятными символами...

Компоненты для просмотра форматов: PDF, Djvu, Doc (Docx), TIFF
Люди пожалуйста подкиньте мне компоненты для просмотра таких фопматов: -PDF...

Открытие DOC файлов
надо открыть файл допустим priem.doc в под папке программы doc пишу следующее:...

Как узнать тип шифрования файлов doc и xls?
Кто может помочь откликнитесь) Нарезали мне такую задачу: есть массив...

Просмотр текстовых файлов формата *.rtf, *.doc, *.txt
В общем открыть для просмотра текстовые файлы формата *.rtf, *.doc, *.txt без...

19
DFF11F
29 / 24 / 1
Регистрация: 24.03.2012
Сообщений: 127
25.03.2012, 20:50 2
Цитата Сообщение от Славик___077 Посмотреть сообщение
подскажите как можно прочитать текст из этих файлов.

При помощи обычных ракетов Microsoft Office, а именно с помощью редактора Microsoft Word, docx - читает Microsoft Word начиная с 2007, если на более ранние версии не стаивть специальные плагины.
0
Славик___077
21 / 21 / 4
Регистрация: 30.01.2011
Сообщений: 119
25.03.2012, 20:52  [ТС] 3
DFF11F, ты не понял.
мне надо чтобы через свою программу можно было извлекать текст из этих файлов
0
DFF11F
29 / 24 / 1
Регистрация: 24.03.2012
Сообщений: 127
25.03.2012, 21:12 4
Цитата Сообщение от Славик___077 Посмотреть сообщение
DFF11F, ты не понял.
мне надо чтобы через свою программу можно было извлекать текст из этих файлов
Сам текст можно извлечь Adobe Finereader. Нормальные версии начинаются с 8

Добавлено через 43 секунды
Распознает с нескольких языков ))))

Добавлено через 36 секунд
Даже плохие фото можно обрабатывать, в больших количествах
0
anonimus
2154 / 1244 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
25.03.2012, 21:12 5
http://www.delphi.int.ru/articles/11/
1
DFF11F
29 / 24 / 1
Регистрация: 24.03.2012
Сообщений: 127
25.03.2012, 21:12 6
Грузи, распознавай, копируй и в любой текстовый редактор
0
Mawrat
12827 / 5735 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
25.03.2012, 22:19 7
Лучший ответ Сообщение было отмечено Joey как решение

Решение

Открыть файл MS Word, прочитать текст документа и записать его в TMemo:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc : Variant;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( Application.ExeName );
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
  //Пытаемся запустить MS Word и получить ссылку на объект Application.
  //- Это корневой объект в объектной структуре MS Word.
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;
  
  //Если требуется, делаем видимым окно MS Word.
  wdApp.Visible := True;
  //Ссылка на коллекцию документов.
  wdDocs := wdApp.Documents;
  //Попытка открыть выбранный файл и получить ссылку на объект документа.
  wdDoc := wdDocs.Open(FileName:=Od.FileName);
 
  //Читаем текст документа и записываем его в Мемо.
  Memo1.Text := wdDoc.Range.Text;
 
  //Закрываем MS Word.
  //wdApp.Quit;
end;
5
Славик___077
21 / 21 / 4
Регистрация: 30.01.2011
Сообщений: 119
25.03.2012, 22:46  [ТС] 8
Mawrat, спасибо, работает!
0
t1m0n
625 / 403 / 27
Регистрация: 03.11.2009
Сообщений: 1,836
26.03.2012, 00:17 9
ищи компоненты для работы с этими файлами,
docx - это zip архив с xml


Не по теме:

Цитата Сообщение от DFF11F Посмотреть сообщение
Сам текст можно извлечь Adobe Finereader. Нормальные версии начинаются с 8
когда это Adobe купила Finereader?

2
DFF11F
29 / 24 / 1
Регистрация: 24.03.2012
Сообщений: 127
26.03.2012, 10:15 10
Мой косяк))) заработался ABBYY, конечно!
0
ББК
35 / 35 / 8
Регистрация: 10.11.2011
Сообщений: 94
31.03.2012, 12:10 11
Славик___077, вот написал непольшую программу которая открывает только DOCX уже без word'a: если надо могу скинуть исходники.
0
Вложения
Тип файла: rar DOCX.rar (256.2 Кб, 597 просмотров)
t1m0n
625 / 403 / 27
Регистрация: 03.11.2009
Сообщений: 1,836
02.04.2012, 01:28 12
Цитата Сообщение от ББК Посмотреть сообщение
Славик___077, вот написал непольшую программу которая открывает только DOCX уже без word'a: если надо могу скинуть исходники.
долго думала и ничего не открыла
0
ББК
35 / 35 / 8
Регистрация: 10.11.2011
Сообщений: 94
02.04.2012, 16:19 13
t1m0n, а что за файл вы пытались открыть???
0
Славик___077
21 / 21 / 4
Регистрация: 30.01.2011
Сообщений: 119
02.04.2012, 20:50  [ТС] 14
Подскажите еще пожалуйста как можно прочесть файл *.odt от OpenOffice. я так понимаю надо заменить параметр Word.Application на чё-то другое. подскажите...
0
ilkos
0 / 0 / 0
Регистрация: 12.04.2012
Сообщений: 1
15.04.2012, 13:09 15
ББК, привет. Можешь исходники скинуть?
0
ББК
35 / 35 / 8
Регистрация: 10.11.2011
Сообщений: 94
15.04.2012, 14:28 16
ilkos, требуется чтобы был установлен ZipForge
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
procedure TForm1.Button1Click(Sender: TObject);
var
 rus : string;
 tempS : string;
 N : PChar;
 dfm : TStringlist;
begin
 if Form1.OpenDialog1.Execute then
 begin
  Form1.ZipForge1.FileName := Form1.OpenDialog1.FileName;
 try
  Form1.ZipForge1.OpenArchive;
 except
  begin
   ShowMessage('Error');
   exit;
  end;
  end;
  Form1.ZipForge1.BaseDir := ExtractFilePath(Application.ExeName);
  Form1.ZipForge1.ExtractFiles('word\document.xml');
  Form1.ZipForge1.CloseArchive;
 
    dfm := TStringList.Create;
  try
    dfm.LoadFromFile(ExtractFilePath(Application.ExeName)+'word\document.xml');
  except
   begin
    dfm.Free;
    ShowMessage('не DOCX');
    exit;
   end;
  end;
           rus := UTF8ToANSI(dfm.Text);
           dfm.Free;
            DeleteFile(ExtractFilePath(Application.ExeName)+'word\document.xml');
            RmDir(ExtractFilePath(Application.ExeName)+'word\');
           Form1.Memo1.Text := GetTextDocs(rus);
 
 
 end;
end;
 
function TForm1.GetTextDocs(text: string): string;
var
 i, j : integer;
 
begin
 
 while (true) do
 begin
 
 i := pos('<', text);
 if i < 1 then break;
  j := pos('>', text);
  if j < 1 then break;
 
  delete(text, i, (j-i)+1);
 
 
 end;
  GetTextDocs := text;
end;
1
Фальцлюфт
17 / 17 / 1
Регистрация: 22.02.2012
Сообщений: 116
24.03.2013, 13:44 17
а как это можно перевести на С# или vb.NET?
0
каййй
0 / 0 / 0
Регистрация: 08.05.2017
Сообщений: 1
08.05.2017, 01:51 18
Если остался,кинь пожалуйста!
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,080
08.05.2017, 07:55 19
каййй, вы к кому обращаетесь? И по какому поводу? Что именно вам нужно скинуть?
0
Laou
1 / 1 / 0
Регистрация: 27.12.2017
Сообщений: 15
20.02.2018, 23:14 20
дай бог тебе здоровья
0
20.02.2018, 23:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2018, 23:14

Чтение файлов
Здравствуйте, как сделать так, чтобы программа выводила на экран строки их...

Чтение списка файлов
Здравствуйте, помогите пожалуйста написать функцию, которая выполняет чтение...

Создание меню, чтение файлов
Составить проект Delphi в виде программы, содержащей меню пользователя, панель...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru