Поиск слова в Memo

@FedExpress · Регистрация: 30.04.2012

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

Есть 2 поля Memo с текстом, есть поле Edit, куда вводится слово. Как найти количество вхождений слова с Edit в Memo?

@Avazart · 14.05.2012, 16:37

Как реализовать FindNext в FindDialog для компонента RichEdit?
Выделение предложений в RichEdit C++ Builder

@FedExpress · 14.05.2012, 16:48 **[ТС]**

Это, по моему, не совсем то. Мне нужно прогнать слово по 2 текстам в Мемо, и сделать какой-нибудь счетчик, чтоб посчитать их количество.
Вот как-то так пробую, это правда неправильно, но может кто-нибудь подправит:

C++
1
2
3
4
5
6
7
8
9
10
AnsiString word;
int p, w = 0;
 
word = Edit1->Text;
for( int i =0; i<Memo3->Lines->Count; i++)
{
if (Memo3->Lines[i] = word)
{
w = w+1;
}

@Avazart · 14.05.2012, 17:21

Думаю то

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
int start=0,stop=0;//Глобально обьявляем
String Text="Что-то";
//-----------------------------------------------------------------
TSearchTypes Stype;
Stype = Stype << stMatchCase;
 
// В цикле
{
stop = RichEdit1->FindText(Text,start,RichEdit1->Text.Length(),Stype);
start = stop + 1;
// Что-то делаем
}
//------------------------------------------------------------------

@FedExpress · 14.05.2012, 17:49 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
int start=0,stop=0;
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
   AnsiString Text=Memo3->Text;
 
  TSearchTypes Stype;
Stype = Stype << stMatchCase;
 
 
{
stop = Edit1->FindText(Text,start,Edit1->Text.Length(),Stype);
start = stop + 1;
}
 }

[C++ Error] Unit1.cpp(205): E2451 Undefined symbol 'TSearchTypes'

А вообще тот пример, который я раньше приводил переделать чуток нельзя?

@nick42 · 14.05.2012, 17:50

FedExpress,если у Вас в эдите и в строках мэмо действительно слова, то почти все правильно, только логическое условие пишется иначе: не

if (Memo3->Lines[i] = word)

, а

if (Memo3->Lines[i] == word)

@Avazart · 14.05.2012, 17:58

Используйте RichEdit вместо Memo

Добавлено через 2 минуты
И

C++
1
stop = RichEdit1->FindText(Text,start,RichEdit1->Text.Length(),Stype);//  не  Edit

@FedExpress · 14.05.2012, 18:16 **[ТС]**

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

FedExpress,если у Вас в эдите и в строках мэмо действительно слова, то почти все правильно, только логическое условие пишется иначе: не

, а

Попробовал, выдает
[C++ Error] Unit1.cpp(208): E2094 'operator==' not implemented in type 'TStrings' for arguments of type 'AnsiString'

@nick42 · 14.05.2012, 18:18

правильно! я не заметил: не ->Lines[i], а ->Lines->Strings[i]

@FedExpress · 14.05.2012, 18:33 **[ТС]**

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

правильно! я не заметил: не ->Lines[i], а ->Lines->Strings[i]

Сделал так, но снова проблема. в Label7 ничего не выводит, хотя я ввожу слово для поиска такое, что оно точно есть в тексте. Прикрепляю код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
AnsiString word;
int p, w = 0;
 
word = Edit1->Text;
for( int i =0; i<Memo3->Lines->Count; i++)
{
if (Memo3->Lines->Strings[i] == word)
{
w = w+1;
Label7->Caption=w;
}
 
 
}

@Drygba · 14.05.2012, 18:48

Label7->Caption = IntToStr(w);

Добавлено через 4 минуты

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
AnsiString word;
int p, w = 0;
 
word = Edit1->Text;
for( int i =0; i<Memo3->Lines->Count; i++)
{
if (Memo3->Lines->Strings[i] == word)
{
w = w+1;
Label7->Caption=w;
}
 
 
}

разве этот код работает, по моему он проверят является ли строка равной Edit, а не считает:

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

количество вхождений слова с Edit в Memo?

можно ли средством Memo сделать такой поиск?

@FedExpress · 14.05.2012, 18:50 **[ТС]**

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

Label7->Caption = IntToStr(w);

Добавлено через 4 минуты
разве этот код работает, по моему он проверят является ли строка равной Edit, а не считает:

можно ли средством Memo сделать такой поиск?

Не помогло

"разве этот код работает, по моему он проверят является ли строка равной Edit, а не считает"
мне тоже так кажется

@Avazart · 14.05.2012, 18:52

Memo нет.
С помощью методов строк можно.
Методы Pos() и SubStr().

The_Immortal · 14.05.2012, 18:53

FedExpress, а что не так?

@FedExpress · 14.05.2012, 18:53 **[ТС]**

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

Memo нет.
С помощью методов строк можно.
Методы Pos() и SubStr().

Можешь на примере этого кода примерно показать?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
AnsiString word;
int p, w = 0;
 
word = Edit1->Text;
for( int i =0; i<Memo3->Lines->Count; i++)
{
if (Memo3->Lines->Strings[i] == word)
{
w = w+1;
Label7->Caption=w;
}
 
 
}

@Sergey-K · 14.05.2012, 18:59

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int count = 0;
  for(int i = 0; i < Memo1->Text.Length() - (Edit1->Text.Length() + 1); i++)
    if(AnsiString(Memo1->Text.c_str() + i).SetLength(Edit1->Text.Length()) == Edit1->Text)
      count++;
  Label1->Caption = IntToStr(count);
}

@FedExpress · 14.05.2012, 19:24 **[ТС]**

Сообщение от Sergey-K

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int count = 0;
  for(int i = 0; i < Memo1->Text.Length() - (Edit1->Text.Length() + 1); i++)
    if(AnsiString(Memo1->Text.c_str() + i).SetLength(Edit1->Text.Length()) == Edit1->Text)
      count++;
  Label1->Caption = IntToStr(count);
}

Вооот, это уже работает. Спасибо большое

@nick42 · 14.05.2012, 19:27

Label - это строка. Хотите увидеть целое - правильнее писать так:

Code
1
 Label7->Caption=IntToStr(w);

@FedExpress · 14.05.2012, 19:30 **[ТС]**

Сообщение от Sergey-K

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int count = 0;
  for(int i = 0; i < Memo1->Text.Length() - (Edit1->Text.Length() + 1); i++)
    if(AnsiString(Memo1->Text.c_str() + i).SetLength(Edit1->Text.Length()) == Edit1->Text)
      count++;
  Label1->Caption = IntToStr(count);
}

Правда заметил неточности при подсчете. Например слово встречается 80 раз, а программа выдает 84. Так же и с другим словом: я насчитал 40 а программа выдает 50. С чем это связано?

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	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. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@FedExpress 1 / 1 / 0 Регистрация: 30.04.2012 Сообщений: 54

	Поиск слова в Memo 14.05.2012, 15:44. Показов 9679. Ответов 18 Метки нет (Все метки) Есть 2 поля Memo с текстом, есть поле Edit, куда вводится слово. Как найти количество вхождений слова с Edit в Memo? 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	14.05.2012, 16:37
	Как реализовать FindNext в FindDialog для компонента RichEdit? Выделение предложений в RichEdit C++ Builder 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	14.05.2012, 18:18
	правильно! я не заметил: не ->Lines[i], а ->Lines->Strings[i] 1

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	14.05.2012, 18:52
	Memo нет. С помощью методов строк можно. Методы Pos() и SubStr(). 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	14.05.2012, 18:53
	FedExpress, а что не так? 0