Filtrowanie wyrazów z Memo1

[nvdante]

Jakim kodem mogę wyszukać w Memo1 wyrazy?
Wiem, jak wyświetlić całą linię lub pojedyncze litery, ale całego wyrazu za nic mi się nie udaje.
Przyjmijmy, że mam tekst "Ala ma kota" i chciałbym, żeby pętla dała ShowMessage tyle razy ile jest wyrazów ( nie znaków czy linii ), a w każdym był kolejny wyraz: "Ala", "ma", "kota".
Wydaje się dość proste, a jednak w opisie funkcji String nic nie znalazłem, chociaż zastosowanie SubStringa trochę mi pomogło, ale nie przy nieokreślonej liczbie znaków

Pozdrawiam

[Cyfrowy Baron]

Chcesz po prostu policzyć wyrazy w Memo?!

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{

 String sMt = Memo1->Text;
 int iMtl = sMt.Length();
 int iIle = 0;

 for( int i = 0; i < iMtl; i++ )
 {
  int iP = sMt.Pos(" ");

  if( !iP ) iP = iMtl; /* równoznaczne z zapisem: if( iP == 0) iP = iMtl */

  /* pokaż w komunikacie liczony wyraz */
  if( CheckBox1->Checked )
  {
   String sMts = sMt.SubString(0, iP - 1);
   ShowMessage(sMts);
  }
  /**/

  iIle++;

  sMt.Delete(1, iP);

  if( sMt.Trim().IsEmpty() ) break;

  iMtl = sMt.Length();
 }

 ShowMessage( "Tekst zawiera: " + (String)iIle + " wyrazów." );
}

---

[nvdante]

Kod który pokazałeś wyświetla w ShowMessage wszystkie wyrazy na raz, a nie każdy w oddzielnym, a właśnie o to mi chodzi.

Odpowiadając na Twoje pytanie chciałbym zrobić operacje na wyrazach, powiedzmy, ze coś w stylu syntezatora mowy. Po odczytaniu wyrazu odtwarzany jest dźwięk. Próbowałem z odtwarzaniem samych liter, ale wychodzi z tego śmieszne techno Zastanawiam się nad sylabami, ale ogrom możliwości mnie przytłacza i już dokładniej będzie każdy wyraz oddzielnie.

Ps.: Jeśli przyjmiemy, że w kodzie, w jednej funkcji będzie na przykład 300 000 warunków if to jak najlepiej to zrobić, żeby kod był sprawny? Po prostu warunek po warunku?

Pozdrawiam

[Cyfrowy Baron]

Kod który pokazałeś wyświetla w ShowMessage wszystkie wyrazy na raz, a nie każdy w oddzielnym, a właśnie o to mi chodzi.

No, nie jest to prawdą. Kod wyświetla w komunikacie wszystkie wyrazy po kolei, nie pobrałeś programu, a tam jest to dobrze widoczne.

---

Ps.: Jeśli przyjmiemy, że w kodzie, w jednej funkcji będzie na przykład 300 000 warunków if to jak najlepiej to zrobić, żeby kod był sprawny? Po prostu warunek po warunku?

Ni żartuj... Trzeba znaleźć takie rozwiązanie, które nie będzie wymagało tylu warunków. Rozumiem, że chcesz zrobić coś takiego: jeżeli taki wyraz - to taki dźwięk, ale to można rozwiązać inaczej, tworząc listę wyrazów z przypisanymi dźwiękami, a program przeszukuje listę i po odnalezieniu wyrazu odtwarza dźwięk do niego przypisany - patrz porada w serwisie Cyfrowy Baron

[nvdante]

No, nie jest to prawdą. Kod wyświetla w komunikacie wszystkie wyrazy po kolei, nie pobrałeś programu, a tam jest to dobrze widoczne.

Baronie, wkleiłem kod u siebie i sprawdziłem. Wyrazy dostaje, ale wszystkie w jednym ShowMessage, a nie każdy w innym.

Ni żartuj... Trzeba znaleźć takie rozwiązanie, które nie będzie wymagało tylu warunków. Rozumiem, że chcesz zrobić coś takiego: jeżeli taki wyraz - to taki dźwięk, ale to można rozwiązać inaczej, tworząc listę wyrazów z przypisanymi dźwiękami, a program przeszukuje listę i po odnalezieniu wyrazu odtwarza dźwięk do niego przypisany - patrz porada w serwisie Cyfrowy Baron

Fajna sprawa z tą listą. Skoro, jak czytam, można odtwarzać także dane z pliku to wygląda na to, że jest to idealne rozwiązane. Ciekawe tylko, jak zareaguje przy ogromnej liście możliwości.

Pozdrawiam

[Cyfrowy Baron]

aronie, wkleiłem kod u siebie i sprawdziłem. Wyrazy dostaje, ale wszystkie w jednym ShowMessage, a nie każdy w innym.

To wynika z różnic w środowiskach. BCB6 jest już mocno przestarzałe.
Ten kod powinien działać u Ciebie tak jak i u mnie:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{

 String sMt = Memo1->Text;
 int iMtl = sMt.Length();
 int iIle = 0;

 for( int i = 0; i < iMtl; i++ )
 {
  int iP = sMt.Pos(" ");

  if( iP == 0 ) iP = iMtl;

  /* pokaż w komunikacie liczony wyraz */
  if( CheckBox1->Checked )
  {
   String sMts = sMt.SubString(0, iP - 1);
   ShowMessage(sMts);
  }
  /**/

  iIle++;

 sMt = sMt.Delete(1, iP);

  if( sMt.Trim().IsEmpty() ) break;

  iMtl = sMt.Length();
 }

 ShowMessage( "Tekst zawiera: " + (String)iIle + " wyrazów." );
}

[nvdante]

A w nowych środowiskach obsługa Indy także jest załączona?
Na jakie najlepiej się przesiąść? Przyzwyczaiłem się do BCB3, później BCB6.

[Cyfrowy Baron]

Teraz najlepiej na XE2, ale od razu z poprawką Update 4, gdyż bez tej poprawki środowisko zawiera masę błędów.
Co do INDY to TAK!