Discussion :

[benymypony]

Bonjour à tous,

Alors voilà, je cherche à supprimer les lignes d'un StringList ne contenant pas un ou plusieurs mots.
En gros : si Ligne1 ne contient pas Mot1, Mot2 ou Mot3, alors poubelle.

L'inverse est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  for i := Datas.Count - 1 downto 0 do
    for j := List.Count - 1 downto 0 do
      if AnsiContainsText(Datas[i], List[j]) then
        Datas.Delete(i);

Datas étant la liste à nettoyer.
List étant la liste d'exclusions (peut contenir 1 comme 1000 mots).

Alors évidement if not ne fonctionne pas...
Car la boucle ne tourne pas jusqu'au bout (si le premier mot n'est pas trouvé alors il Delete, sans chercher les autres mots).

En fait c'est exactement ce système (de l'excellent TextMechanic) : http://textmechanic.com/Remove-Lines...ontaining.html

Merci par avance

Beny

[ShaiLeTroll]

Tu n'es pas loin du résultat, il fallait juste ajouter une rupture de la boucle, via une fonction, c'est bien plus simple à écrire !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
  for i := Datas.Count - 1 downto 0 do
    if not ContainsTexts(Datas[i], List) then
      Datas.Delete(i); 
...
 
function ContainsTexts(const S: string; Texts: TStrings): boolean;
var
  i: integer;
begin
  Result := True;
 
  for i := 0 to Texts.Count - 1 do
    if AnsiContainsText(S, Texts[i]) then
      Exit;
 
  Result := False;
end;

Il existe aussi AnsiMatchText utilisant un Array of string


Voici la version SANS fonction et un vilain break

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  for i := Datas.Count - 1 downto 0 do
  begin
    Exists := True; // ou False, c'est juste si List est vide
 
    for j := 0 to List.Count - 1 do
    begin
      Exists := AnsiContainsText(Datas[i], List[j]);
      if Exists then
        break;
    end;
 
    if not Exists then
      Datas.Delete(i); 
  end;

Alors évidement if not ne fonctionne pas...
Car la boucle ne tourne pas jusqu'au bout (si le premier mot n'est pas trouvé alors il Delete, sans chercher les autres mots).

Que ce soit if ou if not, ta boucle provoquera une erreur !

Sinon dans ta boucle if, tu risquais surtout des dépassement d'index !

Datas contient
Mot1
Mot2
Mot3

List contient
Mot1
Mot2
Mot3

Itération i = 2, j = 2 -> Mot1 est présent, suppression de 2
Itération i = 2, j = 1 -> Index Hors Limite !



Si tu avais fait if not

Datas contient
Mot1
Mot2
Mot3

List contient
Mot4
Mot5
Mot6

Itération i = 2, j = 2 -> Mot4 n'est pas présent, suppression de 2
Itération i = 2, j = 1 -> Index Hors Limite !

[benymypony]

Mille merci, ta fonction fonctionne parfaitement

Effectivement j'avais des erreurs qui survenaient parfois.
Il fallait donc plutôt que je mélange for downto do avec for to do, si j'ai bien compris.

Beny