wyszukiwanie tekstu

[Agnieszka16]

Mam prośbę, piszę program który wyszukuje tekst i oto jego kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TSearchTypes st;

 String fText = Edit1->Text.Trim().LowerCase();

 if(RichEdit1->SelLength)
  RichEdit1->SelStart += 1;

 int fPos = RichEdit1->FindText(fText, RichEdit1->SelStart, RichEdit1->Text.LowerCase().Length(), st);
 RichEdit1->SelStart = fPos;
 RichEdit1->SelLength = fText.Length();
 RichEdit1->SetFocus();

 if(fPos != -1)
 {
  RichEdit1->SelStart = fPos;
  RichEdit1->SelLength = fText.Length();
 }
 else
 {
  MessageBox(NULL, "Przeszukano cały dokument", "Zakończono wyszukiwanie", MB_OK);
  RichEdit1->SelStart = 0;
 }
}

Ale ten program wyszukuje tylko jedno słowo a mi chodzi o coś innego.
Na przykład wpisuję w komponencie RichEdit liczby na przykład:

KOD text:   �  UKRYJ  �

KOD text:   �  POKAŻ  �

5, 15, 25, 34, 65, 67, 71
4, 12, 15, 18, 25, 28, 31

i teraz w komponencie TEdit wpisuję liczby do wyszukania na przykład: 12, 25, 31
I po naciśnięciu komponentu TButton program mi wyszuka wiersz w którym występują te liczby.
Proszę o wyrozumiałość gdyż jestem zielona i dopiero zaczyna przygodę z programowaniem.

[Cyfrowy Baron]

Tutaj standardowe wyszukiwanie na nic się nie zda. Najpierw ustalmy dlaczego używasz obiektu typu TRichEdit skoro liczby są przechowywane na liście. Czy to musi być TRichEdit, czy też użyłaś go by ułatwić sobie wyszukiwanie?

[Agnieszka16]

Użyłam go dla ułatwienia wyszukiwania.

[Agnieszka16]

A jakiego komponentu powinnam użyć?

[Cyfrowy Baron]

A jakiego komponentu powinnam użyć?

Może to być TRichEdit, ale skoro to zwykła lista, to lepiej użyć TListBox:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include <vector.h> /* koniecznie dodać w sekcji include */

int SearchNumbers(TStrings *List, String Text)
{
  Text += ",";

  vector<String> Numbers;

  int p = -1;
  do
  {
   p = Text.Pos(",");
   if(p == 0) break;

   String sSeg = Text.SubString(1, p - 1).Trim();
   if(!sSeg.IsEmpty()) Numbers.push_back(sSeg);

   Text = Text.Delete(1, p + 1);

  }while(p > 0);

  int nCount = Numbers.size(), lCount = List->Count;

  int l = 0;
  do
  {
        p = 0;
        String sLine = List->Strings[l];

        for(int n = 0; n < nCount; n++)
        {

         String searchNumber = Numbers[n];
         int s = sLine.Pos(searchNumber);

         if(s > 0) p++; else break;

         if(p == nCount) return l;
        }

        l++;
  }while(l < lCount);

 return -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int index = SearchNumbers(ListBox1->Items, Edit1->Text);

 if(index < 0) ShowMessage("Niczego nie znaleziono");
 else ListBox1->ItemIndex = index;
}
//---------------------------------------------------------------------------

Dla RichEdit wywołanie będzie wyglądało tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int index = SearchNumbers(RichEdit1->Lines, Edit2->Text);

 if(index < 0) ShowMessage("Niczego nie znaleziono");
 else
 {
  RichEdit1->SelStart = RichEdit1->Perform(EM_LINEINDEX, index, 0);
  RichEdit1->SelLength = RichEdit1->Lines->Strings[index].Length();
  RichEdit1->Perform(EM_SCROLLCARET, 0, 0);
  RichEdit1->SetFocus();
 }

}

---

[Agnieszka16]

To działa, dziękuję Cyfrowy Baronie.

[Agnieszka16]

Panie Baronie a jak zrobić żeby ten program przeszukiwał wszystkie wystąpienia w dokumencie do końca? Bo próbuję ale mi się nie udaje.

[Cyfrowy Baron]

Jeżeli ma to być realizowane na jakiejś liście wizualnej, to można to zrobić tylko na liście obsługującej MultiSelect, czyli wielokrotne zaznaczanie. W takiej sytuacji w grę wchodzi tylko ListBox. By można było zaznaczać wiele pozycji na liście musisz ustawić właściwość MultiSelect obiektu ListBox1 na true. Reszta kodu niewiele się zmieni. Trochę się dziwię, że sama nie byłaś w stanie tego zrobić:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall SearchNumbers(TListBox *List, String Text)
{
  List->ClearSelection();
  Text += ",";

  vector<String> Numbers;

  int p = -1;
  do
  {
   p = Text.Pos(",");
   if(p == 0) break;

   String sSeg = Text.SubString(1, p - 1).Trim();
   if(!sSeg.IsEmpty()) Numbers.push_back(sSeg);

   Text = Text.Delete(1, p + 1);

  }while(p > 0);

  int nCount = Numbers.size(), lCount = List->Items->Count;

  int l = 0;
  do
  {
        p = 0;
        String sLine = List->Items->Strings[l];

        for(int n = 0; n < nCount; n++)
        {

         String searchNumber = Numbers[n];
         int s = sLine.Pos(searchNumber);

         if(s > 0) p++; else break;

         if(p == nCount) List->Selected[l] = true;
        }

        l++;
  }while(l < lCount);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 SearchNumbers(ListBox1, Edit1->Text);

 if(ListBox1->ItemIndex < 0) ShowMessage("Niczego nie znaleziono");
}

[Agnieszka16]

Dziękuje, działa.