trouver 4 mots dans une StringList..

Version imprimable

18/09/2006, 19h16
laadhar

trouver 4 mots dans une StringList..

Bonjour,

je veux écrire un code qui vérifie bien l'existence de 4 mots (strings)dans les éléments d'une StingList.

j'ai déja écrit le code d'une fonction qui recherche une chaine dans une autre chaine de caractères
RechercheMot(phrase, Mot):boolean

je sé que je peux écrire 4 fonctions qui vérifient l'existence de chaque mot dans ma StringList, mais ce code n'est évidemment pas du tt optimisé vu que j'ai besoin des 4 mots ensemble.. c'est à dire que je peux sortir de ma fonction si par exemple je parcours une fois la liste et que je trouve pas mon premier mot...

Merci de m'éclairer SVP en s'appuyant sur la fonction RechercheMot..
18/09/2006, 19h53
Philippe Gormand

Bonsoir.

Un peu plus de détails S.V.P. et un bout de code pour être explicite. Il y a tend de façon de gérer les chaines de caractères.

A+

Code:

1 2 3 4 5 6 7 8 9 10 11 12 function RechercheMot(Phrase,Mot:String):Boolean; var i:integer; Trouve:Boolean; begin Trouve:=False; for i:=0 to Length(Phrase)+1 do begin if Copy(Phrase,i,Length(Mot))=Mot then Trouve:=True; end; Result:=Trouve; end;
voila ma fonction RechercheMot

Maintenant, j'ai une TStringList "INTO"
je veux que (i.e [For i=0 to Into.count-1 do]) vérifier l'existence des mots 'Mot1', 'Mot2', 'Mot3', 'Mot4' dans les (INTO.count) chaines de ma STringList 'INTO'.

Par exemple:
cet exemple est accepté selon la définition de mon alogorithme.
INTO = ['...Mot1...','...Mot2...','...Mot4...','xxxxx','xxx','...Mot3...']

Par contre,
celui-là ne l'est pas:
INTO = ['.....','...Mot2...','...Mot4...','xxxxx','xxx','...Mot3...'] car la chaine 'Mot1' n'existe dans aucune des chaines de INTO.

j'espère que c'est à peu près clair..
Merci et désolé pour le manque de précision dans le premier..

En fait, je cherche une fonction optimisée (le minimum de parcours de la liste ou de vérifications possible)..

Bonsoir,
Un petit bout de code, en espérant avoir bien compris ton problème :
(désolé, c'est sous C++Builder)
.dans le .h:

Code:

1
2
3
 
bool __fastcall ChercherMot(TStringList *base, TStringList *source);
TStringList *aListe;

.dans le .cpp:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
bool __fastcall TForm1::ChercherMot(TStringList *base, TStringList *source)
{
bool result = true;
        for (int i = 0; i < source->Count; i ++)
        {
                if (base->IndexOf(source->Strings[i]) == - 1)
                {
                        result = false;
                }
        }
return result;
}

Je charge la première liste:

Code:

1
2
3
4
5
6
 
aListe = new TStringList();
aListe->Add("mot 1");
aListe->Add("mot 2");
aListe->Add("mot 3");
aListe->Add("mot 4");

puis l'autre avec pour comparaison :

Code:

1
2
3
4
5
6
 
TStringList *bListe = new TStringList();
bListe->Add("mot 1");
bListe->Add("mot 2");
bListe->Add("mot 4");
ShowMessage(BoolToStr(ChercherMot(aListe, bListe), true));

En espérant t'aider,
@ + ;)

non ce n'est pas du tout ça...

c tout simple..

ce code là devrait fonctionner, mais n'est évidemment pas optimisé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  counter := 0;
 
  while counter < into.Count do
    begin
      if RechercheMot(UpperCase(into[counter]), 'Mot1') then trouv_Mot1;
      if RechercheMot(UpperCase(into[counter]), 'Mot2') then trouv_Mot2;
      if RechercheMot(UpperCase(into[counter]), 'Mot3') then trouv_Mot3;
      if RechercheMot(UpperCase(into[counter]), 'Mot4') then trouv_Mot4;
   end;
 
if trouv_Mot1 AND trouv_Mot2 AND trouv_Mot3 AND trouv_Mot4 then
   showmessage('OK')
   else
      showmessage('un des champs obligatoires n''existe pas');

Moi j'aurais fait comma ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function RechercheMot (lst, lstMot : TStringList) : Boolean;
var
  i : integer;
begin
  for i := 0 to lstMot.count -1 do
  begin
    if Pos(UpperCase(lstMot.Strings[i]),UpperCase(lst.Text)) > 0 then
      Result := True
   else begin
      Result := False;
      Break; // on sort de la boucle car on a pas trouvé le mot
   end;
  end;
end;

Après pour l'appel

Code:

1
2
3
4
5
6
7
8
9
 
lstMot.Add('Mot1');
lstMot.Add('Mot2');
lstMot.Add('Mot3');
lstMot.Add('Mot4');
// on est plus limité a 4 mots de recherche ^^
 
if RechercheMot(into,lstMot) then
  Showmessage('Ok');

19/09/2006, 12h17
laadhar

excellent..
c tout àa fait ce que je cherchais merci..

par contre, comment je fais pour un traitement d'erreur propre
(afficher le premier mot qui n'existe pas, et sortir de mon traitement)

Merci bp

Au lieu de mettre la fonction avec un retour boolean, tu peux mettre avec un integer qui t'indique quel est le mot qui a retourner l'erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function RechercheMot (lst, lstMot : TStringList) : Integer;
var
  i : integer;
begin
  for i := 0 to lstMot.count -1 do
  begin
    if Pos(UpperCase(lstMot.Strings[i]),UpperCase(lst.Text)) > 0 then
      Result := -1
   else begin
      Result := i;
      Break; // on sort de la boucle car on a pas trouvé le mot
   end;
  end;
end;

Pour le résultat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
  indexMot : Integer;
begin
  lstMot.Add('Mot1');
  lstMot.Add('Mot2');
  lstMot.Add('Mot3');
  lstMot.Add('Mot4');
  // on est plus limité a 4 mots de recherche ^^
 
  IndexMot := RechercheMot(into,lstMot);
  if  IndexMot = -1 then
    Showmessage('Ok')
  else
    Showmessage('Le mot ' + lstMot.Strings[IndexMot] + ' n''a pas été trouvé');
end;

19/09/2006, 15h19
laadhar

Merci
ça marche nickel et c'est exactement ce que je voulais..

super bout de code à mon sens..