Копирование текста из RichEdit в EXCEL построчно с сохранением формата - Общие вопросы Delphi

okunevskiy · 09.03.2016, 14:46

Доброго времени суток!
Помогите, пожалуйста, решить следующую проблему:

Необходимо в формализованном тексте в RichEdit найти определенное уникальное слово ('FIR/UIR') и скопировать весь текст после него в EXCEL с сохранением формата. Пример текста:
-----------------------------------------
FIR/UIR Enroute Charge Report...

From UKDD to EPWA
Flv 320 Weight 22000 kgs 26FEB2016

Route
UKDD PEKI2U PEKIT L980 USTIL N191 LIMVI LIMV4U EPWA

Eurocontrol RSO Summary

Country Distance Unit Rate Charge (тут в виде таблицы)
EP 241 33.13 52.70

Total 241 km 52.70 EUR 58.81 USD

---------------------------------------------------------------

Думаю, что нужно копировать каждую строку отдельно в каждую строку ECXEL, чтобы сохранить первичный вид. Использования данных из текста не будет.

Подскажите, как определить номер строки с искомым словом? Пробовал function FINDTEXT, она находит только номер символа.

Очень надеюсь на Вашу помощь. Заранее спасибо.

Аватар · 09.03.2016, 14:59

Код:

SendMessage(RichEdit.Handle,EM_LINEFROMCHAR,ИндексСимвола,0)

okunevskiy · 09.03.2016, 16:04

А не могли бы Вы написать как вывести номер строки в переменную типа integer.
Буду очень благодарен
Поджимают сроки, позже обязательно разберусь с данной функцией!

09.03.2016, 14:46	#1
okunevskiy Новичок Джуниор Регистрация: 09.03.2016 Сообщений: 2	Копирование текста из RichEdit в EXCEL построчно с сохранением формата Доброго времени суток! Помогите, пожалуйста, решить следующую проблему: Необходимо в формализованном тексте в RichEdit найти определенное уникальное слово ('FIR/UIR') и скопировать весь текст после него в EXCEL с сохранением формата. Пример текста: ----------------------------------------- FIR/UIR Enroute Charge Report... From UKDD to EPWA Flv 320 Weight 22000 kgs 26FEB2016 Route UKDD PEKI2U PEKIT L980 USTIL N191 LIMVI LIMV4U EPWA Eurocontrol RSO Summary Country Distance Unit Rate Charge (тут в виде таблицы) EP 241 33.13 52.70 Total 241 km 52.70 EUR 58.81 USD --------------------------------------------------------------- Думаю, что нужно копировать каждую строку отдельно в каждую строку ECXEL, чтобы сохранить первичный вид. Использования данных из текста не будет. Подскажите, как определить номер строки с искомым словом? Пробовал function FINDTEXT, она находит только номер символа. Очень надеюсь на Вашу помощь. Заранее спасибо.

09.03.2016, 14:59	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `SendMessage(RichEdit.Handle,EM_LINEFROMCHAR,ИндексСимвола,0)` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вывод построчно в Excel	Slide95ru	Общие вопросы C/C++	1	27.05.2015 14:09
Сравнение двух таблиц построчно, копирование совпадений на новый лист с выделением отличий	rudenko_p	Microsoft Office Excel	2	21.11.2011 12:33
Загрузка в RichEdit текста из файла, и получение его из RichEdit	Byurrer	Общие вопросы C/C++	1	09.04.2011 10:17
копирование текста из Edit в RichEdit	Rebel123	Общие вопросы Delphi	16	21.09.2009 15:49
Сохранение текста (RichEdit) без формата	Air	Помощь студентам	2	06.08.2008 17:50

09.03.2016, 16:04	#3
okunevskiy Новичок Джуниор Регистрация: 09.03.2016 Сообщений: 2	А не могли бы Вы написать как вывести номер строки в переменную типа integer. Буду очень благодарен Поджимают сроки, позже обязательно разберусь с данной функцией!