Поиск неявно заданного слова в Memo

@Mr. T · Регистрация: 10.09.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте, подскажите, пожалуйста, как реализовать такое:
В Memo есть строки, некоторые из них имеют примерно такой вид: <h3>1. Text</h3>. Мне нужно узнать номер перед Text. Как это лучше сделать?

@MikeSoft · 13.10.2010, 14:51

Скопировать в переменную текст, заключённый тегом: "<h3>1. Text</h3>" (поиск по "<h" и "</h").
Затем выделить подстроку, состоящую из первого символа после "<" и до последнего перед ".".
И после всего воспользоваться StrToInt

@Mr. T · 13.10.2010, 14:55 **[ТС]**

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

Скопировать в переменную текст, заключённый тегом: "<h3>1. Text</h3>" (поиск по "<h" и "</h").

С этим моментом проблема...

Ищу, к примеру, <h так

C++
1
Memo1->Lines->Strings.AnsiPos("<h");

а как узнать строку и вытащить текст между ними?

@MikeSoft · 13.10.2010, 15:00

Mr. T, методом SubString

@Mr. T · 13.10.2010, 17:19 **[ТС]**

Спасибо, а как реализовать "Искать далее"?

@MikeSoft · 13.10.2010, 17:25

Mr. T, один из вариантов: обрезать строку до последнего найденного элемента (включительно).
Для этого подойдёт либо SubString, либо Delete

@Mr. T · 13.10.2010, 17:30 **[ТС]**

Немного не то, со строками я уже разобрался. Я имею ввиду, что выполнил поиск, нашел, что искал и нужно реализовать возможность дальше искать)

@MikeSoft · 13.10.2010, 17:41

Mr. T, а я вам о чём толкую?

О том же самом.

Скопировали строку, поиск выполняете в копии, естественно.
Нашли искомую фразу первый раз. Обрезали строку слева.
Ищете вторую фразу ... и так сколько нужно раз, либо пока искомая фраза не будет отсутствовать.

@Mr. T · 13.10.2010, 19:02 **[ТС]**

Ну, к примеру, написал я код:

C++
1
2
3
4
5
6
    for (int i = 0; i < Memo1->Lines->Count; i++) {
        Memo1->SetFocus();
        Memo1->SelStart = Memo1->Lines->Text.AnsiPos("<h1>")-1;
        AnsiString Find = "<h1>";
        Memo1->SelLength = Find.Length();
    }

Выполнился он один раз, а мне нужно выполнить его дальше по документу... Короче, не ясно(

Добавлено через 54 минуты
Суть понял, вроде, а можно без удаления дальше искать?)

@MikeSoft · 13.10.2010, 19:48

Сообщение от Mr. T

Суть понял, вроде, а можно без удаления дальше искать?)

Теоретически можно. Сдвигая позицию выделения.
Но я предпочитаю делать через одну временную переменную.

@Mr. T · 14.10.2010, 11:31 **[ТС]**

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

Теоретически можно. Сдвигая позицию выделения.
Но я предпочитаю делать через одну временную переменную.

Пример можно где-то посмотреть?

@MikeSoft · 14.10.2010, 13:23

Mr. T, да, можно ... не так давно помогал разобрать ответ на части, заключённые в теги.
Пример вы найдёте здесь: IdHTTP1->Get()

@Mr. T · 14.10.2010, 19:05 **[ТС]**

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

Mr. T, да, можно ... не так давно помогал разобрать ответ на части, заключённые в теги.
Пример вы найдёте здесь: IdHTTP1->Get()

Эм... не понял я тот код), но погуглив немного, понял, что нужно сдвигать позицию. Делаю проверку на наличии выделенного кода в мемо, если есть, то выделяю следующий участок, но пока срабатывает только SelStart)

Вообще интересно посмотреть на пример кода поиска текста в мемо с возможностью поиска дальше, а то сколько не лажу, все примеры на делфи и не совсем то...

Добавлено через 5 часов 15 минут
На данный момент есть код, который находит и выделяет нужный текст:

C++
1
2
3
4
5
6
Memo1->SetFocus();
AnsiString Word1 = "\n <h3>";
AnsiString Word2 = "\n <br />";
AnsiString SelText = Memo1->Lines->Text.SubString(Memo1->Lines->Text.AnsiPos(Word1)+1,Memo1->Lines->Text.AnsiPos(Word2)-Memo1->Lines->Text.AnsiPos(Word1)-1);
Memo1->SelStart = Memo1->Lines->Text.AnsiPos(SelText)-1;
Memo1->SelLength = SelText.Length();

Подскажите, пожалуйста, что нужно сделать, чтобы при повторном клике на кнопку выполнялся поиск далее и выделялась новый текст, если он найден.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод Сайт называется reddit: The Thinkpad X220 Tablet is the best budget school laptop period. Это. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@Mr. T 10 / 10 / 4 Регистрация: 10.09.2010 Сообщений: 197

	Поиск неявно заданного слова в Memo 13.10.2010, 14:38. Показов 3135. Ответов 12 Метки нет (Все метки) Здравствуйте, подскажите, пожалуйста, как реализовать такое: В Memo есть строки, некоторые из них имеют примерно такой вид: <h3>1. Text</h3>. Мне нужно узнать номер перед Text. Как это лучше сделать? 0

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	13.10.2010, 14:51
	Скопировать в переменную текст, заключённый тегом: "<h3>1. Text</h3>" (поиск по "<h" и "</h"). Затем выделить подстроку, состоящую из первого символа после "<" и до последнего перед ".". И после всего воспользоваться StrToInt 1

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	13.10.2010, 15:00
	Mr. T, методом SubString 1

@Mr. T 10 / 10 / 4 Регистрация: 10.09.2010 Сообщений: 197
	13.10.2010, 17:19 [ТС]
	Спасибо, а как реализовать "Искать далее"? 0

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	13.10.2010, 17:25
	Mr. T, один из вариантов: обрезать строку до последнего найденного элемента (включительно). Для этого подойдёт либо SubString, либо Delete 0

@Mr. T 10 / 10 / 4 Регистрация: 10.09.2010 Сообщений: 197
	13.10.2010, 17:30 [ТС]
	Немного не то, со строками я уже разобрался. Я имею ввиду, что выполнил поиск, нашел, что искал и нужно реализовать возможность дальше искать) 0

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	13.10.2010, 17:41
	Mr. T, а я вам о чём толкую? О том же самом. Скопировали строку, поиск выполняете в копии, естественно. Нашли искомую фразу первый раз. Обрезали строку слева. Ищете вторую фразу ... и так сколько нужно раз, либо пока искомая фраза не будет отсутствовать. 0

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	14.10.2010, 13:23
	Mr. T, да, можно ... не так давно помогал разобрать ответ на части, заключённые в теги. Пример вы найдёте здесь: IdHTTP1->Get() 0