Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Окт

Конвертация RichText в PlainText

Posted by micher under Delphi

Как конвертировать *rtf и *doc документы в обычный текст?

spamer



FMsWord: WordApplication;
...
procedure TRichToPlainConverterThread.InitializeWordApp;

begin

  CoInitialize(nil);

  FMsWord := CoWordApplication.Create;

  try

    MsWord.Visible := False;

    MsWord.DisplayAlerts := wdAlertsNone;

  except

    FinalizationWordApp;

  end;

end;
procedure TRichToPlainConverterThread.FinalizationWordApp;

begin

  if MsWord = nil then

    Exit;

  try

    MsWord.Quit(wdDoNotSaveChanges, EmptyParam, EmptyParam);

  finally

    FMsWord := nil;

    CoUninitialize;

  end;

end;
procedure TRichToPlainConverterThread.Execute;

var

  i: Integer;

begin

  i := 0;

  try

    InitializeWordApp;

    while (not Terminated) and (i < RichTextFiles.Count) do

    begin

      try

        CurrentRichTextFile := RichTextFiles;

        CurrentPlainTextFile := DestinationPath + ChangeFileExt(ExtractFileName(CurrentRichTextFile), '.txt');
        MsWord.Documents.Open(CurrentRichTextFile, EmptyParam, EmptyParam, EmptyParam,

          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

        MsWord.ActiveDocument.SaveAs(CurrentPlainTextFile, wdFormatUnicodeText, EmptyParam,

          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

        PlainTextFiles.Add(CurrentPlainTextFile);

      finally

        MsWord.ActiveDocument.Close(wdDoNotSaveChanges, EmptyParam, EmptyParam);

        if not Terminated then

          Synchronize(DoConvertProgress);

        Inc(i);

      end;

    end;

  finally

    FinalizationWordApp;

    if not Terminated then

      Synchronize(DoConvertComplete);

    if not Terminated then

      PostMessage(MessageWindow, WM_RICH_TO_PLAIN_CONVERTER_THREAD_DONE, 0, 0);

  end;

end;