![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RTF в TEXT
Matteus_ © (2006-02-27 14:34:00)Народ, подскажите функцию(юнит, класс) конвертации в RTF-формат в PlainText. Просто текст, без служебных тегов.
Умоляю, TRichEdit не предлагать.
Serg1981 (2006-03-01 21:57:00) [1]если уж совсем лень использовать 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');
:)
Matteus_ (2006-03-01 13:21:00) [2]2 umbra © (01.03.06 12:41) [8]
вряд ли Вы ее дождетесь.
Надежда умирает последней! Время терпит :)
umbra (2006-03-01 12:41:00) [3]вряд ли Вы ее дождетесь. За время ожидания уже можно было прочесть спецификацию формата и написать собственный парсер. Тем более, что все тэги Вам не нужны
Matteus_ (2006-03-01 12:38:00) [4]2 umbra © (01.03.06 12:23) [6]
Отчего же, сохраняет. Пусть и опосредовано через .Lines.text.
Но я просил его не предлагать. Необходим функционал без использования классов-наследников от TWinControl.
Так что снова жду, как начинающий, помощи :)
umbra (2006-03-01 12:23:00) [5]да, погорячился я, TRichEdit в тест не сохраняет. Пошу прощения
umbra (2006-03-01 11:53:00) [6]
TRichEdit
Matteus_ (2006-03-01 11:21:00) [7]Вижу, не одному мне это интересно. Вопрос в силе, поднимю ветку
Dmitrij_K (2006-02-28 08:35:00) [8]Меня тоже такой вопрос очень интересует
Matteus_ (2006-02-28 07:50:00) [9]Перенесли в "Начинающим" ...
Ну что ж, вопрос до сих пор в силе.
Matteus_ (2006-02-27 14:35:00) [10]Ухх.., следует читать как:
Народ, подскажите функцию(юнит, класс) конвертации данных изRTF-формата вPlainText. Просто в текст, без служебных тегов.
Умоляю, TRichEdit не предлагать