Поиск неявно заданного слова в 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();

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

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

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

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

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

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