RTF в TEXT

← →
Matteus_ (2006-02-27 14:34) [0]

Народ, подскажите функцию(юнит, класс) конвертации в RTF-формат в PlainText. Просто текст, без служебных тегов.

Умоляю, TRichEdit не предлагать.

← →
Matteus_ (2006-02-27 14:35) [1]

Ухх.., следует читать как:

Народ, подскажите функцию(юнит, класс) конвертации данных из RTF-формата в PlainText. Просто в текст, без служебных тегов.

Умоляю, TRichEdit не предлагать

← →
Matteus_ (2006-02-28 07:50) [2]

Перенесли в "Начинающим" ...
Ну что ж, вопрос до сих пор в силе.

← →
Dmitrij_K (2006-02-28 08:35) [3]

Меня тоже такой вопрос очень интересует

← →
Matteus_ (2006-03-01 11:21) [4]

Вижу, не одному мне это интересно. Вопрос в силе, поднимю ветку

← →
umbra © (2006-03-01 11:53) [5]

TRichEdit

← →
umbra © (2006-03-01 12:23) [6]

да, погорячился я, TRichEdit в тест не сохраняет. Пошу прощения

← →
Matteus_ (2006-03-01 12:38) [7]

2 umbra © (01.03.06 12:23) [6]

Отчего же, сохраняет. Пусть и опосредовано через .Lines.text.
Но я просил его не предлагать. Необходим функционал без использования классов-наследников от TWinControl.
Так что снова жду, как начинающий, помощи :)

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

← →
Matteus_ (2006-03-01 13:21) [9]

если уж совсем лень использовать TRichEdit, то можно так извернуться:

var v : variant; Strings : TStringList; Strings := TStringList.create; v := CreateOleObject("Word.application"); v.Documents.add("C:\Proba.rtf"); v.Selection.SetRange(0, $7FFFFFFF); Strings.Text := v.Selection.text; v.Application.Quit(false, false, false); Strings.SaveToFile("C:\Proba.txt");

:)

RTF в TEXT Найти похожие ветки