Удалить текст между слов Delphi XE - Общие вопросы Delphi

kladsss · 17.05.2018, 20:45

Ребята помогите решить такую задачу:

Есть текст, пример текста:
Primer test1 2020 test2 Primer test1 2040 test2 Primer
Primer test1 2070 test2 Primer test1 2080 test2 Primer test1 2090 test2 Primer test1 2010 test2 Primer

Удалить текст между словами - test1 и test2

То есть на выходе получиться:
Primer Primer Primer
Primer Primer Primer Primer Primer

П/C: Текст между словами test1 и test2 разный - в каждой строке. Постоянно повторяются только слова - между которыми нужно удалить текст (то есть test1 и test2).

min@y™ · 18.05.2018, 00:43

2018-05-18 00_42_21-_ Untitled - Notepad3 (Administrator).png

kladsss · 18.05.2018, 12:45

Цитата:

Сообщение от min@y™

Вложение 93050

Может и глупый вопрос: Но как подключить эту функцию к кнопке ? Я начинающий в этом деле, потому и спрашиваю. Заранее благодарен...

min@y™ · 18.05.2018, 12:48

Цитата:

Сообщение от kladsss

Может и глупый вопрос: Но как подключить эту функцию к кнопке ? Я начинающий в этом деле, потому и спрашиваю. Заранее благодарен...

из обработчика onclick вызвать. в чом проблема?

kladsss · 18.05.2018, 12:53

Цитата:

Сообщение от min@y™

из обработчика onclick вызвать. в чом проблема?

Стыдно в этом признаться, но по факту: Подскажите как сделать. Дело в том что я все время использовал простенькие процедуры для изучения. А функциями не пользовался.

kladsss · 18.05.2018, 13:13

Цитата:

Сообщение от min@y™

из обработчика onclick вызвать. в чом проблема?

Благодаря Вам разобрался. Спасибо.

min@y™ · 18.05.2018, 13:16

Цитата:

Сообщение от kladsss

Стыдно в этом признаться, но по факту: Подскажите как сделать. Дело в том что я все время использовал простенькие процедуры для изучения. А функциями не пользовался.

да йоптваю...
в любом учебнике всё это есть.

Код:

procedure TFormMain.ButtonFuckClick(Sender: TObject);
begin
  Edit.Text:= DeleteBetween(Edit.Text, 'test1', 'test2');
end;

Aleksandr H. · 18.05.2018, 13:26

для решения задания ТС, код еще в цикл надо вложить?

posEx

kladsss · 18.05.2018, 13:28

Цитата:

Сообщение от min@y™

да йоптваю...

Цитата:

Сообщение от Aleksandr H.

для решения задания ТС, код еще в цикл надо вложить?

Все, ребята - РАЗОБРАЛСЯ. Большое спасибо за помощь.!!!

Aleksandr H. · 18.05.2018, 16:24

Так поделись результатом какой результат

17.05.2018, 20:45	#1
kladsss Пользователь Регистрация: 22.10.2017 Сообщений: 50	Удалить текст между слов Delphi XE Ребята помогите решить такую задачу: Есть текст, пример текста: Primer test1 2020 test2 Primer test1 2040 test2 Primer Primer test1 2070 test2 Primer test1 2080 test2 Primer test1 2090 test2 Primer test1 2010 test2 Primer Удалить текст между словами - test1 и test2 То есть на выходе получиться: Primer Primer Primer Primer Primer Primer Primer Primer П/C: Текст между словами test1 и test2 разный - в каждой строке. Постоянно повторяются только слова - между которыми нужно удалить текст (то есть test1 и test2).

18.05.2018, 00:43	#2
min@y™ Цифровой кот Старожил Регистрация: 29.08.2014 Сообщений: 7,629	2018-05-18 00_42_21-_ Untitled - Notepad3 (Administrator).png Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

18.05.2018, 13:26	#8
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	для решения задания ТС, код еще в цикл надо вложить? posEx Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

18.05.2018, 16:24	#10
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	Так поделись результатом какой результат Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удалить текст между словом и ; на конце	Karyuudo	PHP	2	16.04.2013 15:59
Удалить в нём лишние пробелы, оставить только по одному пробелу между слов	linnik	Помощь студентам	1	10.11.2012 14:56
Удалить между текст, preg_replace	xatrix	PHP	0	16.07.2012 14:34
Дан текст из слов...(delphi)	konj	Помощь студентам	3	20.12.2011 20:27
Удалить текст между двух слов	Polotenchik	Microsoft Office Word	5	12.06.2011 11:01