Discussion :

[KoraS]

Salut a toutes et a tous !

Je suis débutant sous Delphi, voici mon problème, j'ai créer un petit programme qui télécharger une page web (HTML, PHP, Etc...) et l'enregistre au format *.txt sur le PC, j'ai ensuite fait en sorte que toutes les URL de cette page aille se loger dans une ListBox, le problème est que je veus ne garder que les URL menant vers une page web, donc j'ai fait une boucle while pour "purgé" cette ListBox des .gif, .jpg, .exe, .zip, etc, le problème est que quand la ListBox est asser conséquente cette boucle fonctionne trés mal est quelle dois être exécuter plusieurs fois pour TOUT purger enlevant a chaque fois quelques "intrus" mais pas tous a mon grand regret.

Voici le code utilisé sur un bouton pour viré les .gif par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.BtnPurgerUrlClick(Sender: TObject);
var i:integer;
begin
  i:=0;
  while i < ListUrlFind.Items.Count do
  begin
    if Pos('.gif', ListUrlFind.Items.Strings[i]) <> 0 then
    begin
      ListUrlFind.Items.Delete(i);
    end;
    i := i + 1;
  end;
end;

Là par exemple je dois appuyer 5 fois sur le bouton pour une ListBox contenant 134 Items, dont une quarantaine de .gif a viré et a chaque fois que j'appuis a la place de viré tous les .gif ça n'en vire que quelqu'un ?

Si quelqu'un a une solution a mon problème je lui en serait trés reconnaissant !

Merci par avance de votre aide !

Cordialement.

KoraS

[Pedro]

Salut
- Bon déjà, édite ton messages et met ton code dans les balises du même nom
- Ensuite Indente-le! C'est 10x plus facile à lire...
- Et puis là, utilise for...do! pourquoi tu t'embêtes à utiliser while?
- Et puis lorsque tu fais une recherche dans un nom de fichier, utilise LowerCase pour n'avoir que des minuscules... Ou UpperCase pour des majuscules...
-Pour finir, tu devrais parcourir ta liste dans le sens inverse! C'est beaucoup plus sûr...
Voilà comment je l'adapterais:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.BtnPurgerUrlClick(Sender: TObject);
var i:integer;
begin
  for i:=ListUrlFind.Items.Count-1 downto 0 do
    if Pos('.gif', LowerCase(ListUrlFind.Items.Strings[i])) <> 0 then
      ListUrlFind.Items.Delete(i);
end;

Voila
Mais là tu ne filtres que les .gif...

[smyley]

à votre place, je testerai plûtot si les 4 derniers caractères sont '.gif' car si le fichier se nomme 'blabla.gif.back' ...

[Lung]

à votre place, je testerai plûtot si les 4 derniers caractères sont '.gif' car si le fichier se nomme 'blabla.gif.back' ...

Dans ce cas, pourquoi ne pas utiliser ExtractFileExt ?

[KoraS]

Merci beaucoup de votre aide et désolé pour les erreurs de post...je n'ai pas l'habitude !

Je vais essayer ça et je vous tiens au courant.

Merci encore !

KoraS

[KoraS]

Alors la, je dois dire châpeau, ça fonctionne nickel, plus aucun problème, je ne comprend pas pourquoi, le fait de "scanner" la ListBox en sens inverse fonctionne mieux que dans le "bon" sens, mais ça fonctionne est c'est le principal, mille mercis !

ENcore une petite question : A votre avis est ce que je dois, pour filtrer les autres extensions (.jpg, .zip, .exe, etc....) ajouter des OR a la condition genre :

Code :

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

if (Pos('.gif',ListImgFind.Items.Strings[i]) = 0) OR (Pos('.jpg',ListImgFind.Items.Strings[i]) = 0) OR Etc...

ou bien créer une boucle pour chaque extension ?

Merci par avance de votre aide !

KoraS

[cpdump]

Parce que quand tu parcours la listbox en sens "normal" 0 -> n et que tu supprime un element de la listbox, tous les élements suivants seront décalés d'un rang, donc tu vas passer l'élément qui juste derrière celui que tu viens d'effacer, en plus il y a aura des violations d'accés quand tu tenteras d'accéder à des éléments n'existant plus (dans le cas du for).

Quand tu veux supprimer des éléments dans une liste, il faut toujours partir du bout de la liste car les éléments qui seront décalés auront déjà été traités.

Pour filtrer tes extensions, regarde du coté de:

Code :

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

1
2
function AnsiMatchText(const AText: string; const AValues: array of string): Boolean;
function AnsiIndexText(const AText: string; const AValues: array of string): Integer;

[nepherkaan]

En marche avant ou arriere peu importe. Ton code était quasiment bon il te manquait simplement un else:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.BtnPurgerUrlClick(Sender: TObject);
var i:integer;
begin
  i:=0;
  while i < ListUrlFind.Items.Count do
  begin
    if Pos('.gif', ListUrlFind.Items.Strings[i]) <> 0 then
    begin
      ListUrlFind.Items.Delete(i);
    end
    else  <=========ICI
       i := i + 1;
  end;
end;

Et oui, supprime le l'element 0, et l'element n°1 passe alors en 0 et donc à ce moment, il ne faut pas incrementer le n0 de la ligne à vérifier...

ou bien créer une boucle pour chaque extension ?

Il vaux mieux faire une fonction à mon humble avis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function CheckExt( FileName : TFileName) : Boolean;
const
    badext : Array[1..20] of String ('.gif','.jpg',....);
var
   nI : Integer;
begin
     result := True;
     For nI := low( badExt) to High( BadExt ) do
     begin
        result := result and not SameText( badExt[nI], ExtractFileExt(FileName) );
        if not result then break;
     end;
end;

Rempli le tableau BadExt selon tes besoins et seulement ca, le reste de la fonction gérant dynamiquement cette taille
(on peut faire en sorte que la fonction soit plus rapide, mais la, j'avoue, j'ai la flemme :p )

[Escandil]

Edit : trop de cross ^^

[cpdump]

La boucle for nettement plus propre, et elle est plus optimisée (calcul du Count une seule fois, le for est plus optimisé que le while,...)

[nepherkaan]

Allez ... version optimisée..

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
19
20
 
function CheckExt( FileName : TFileName) : Boolean;
const
    badext : Array[1..20] of String ('.gif','.jpg',....);
var
   nI,
   nMax, 
   nMin  : Integer;
   aExt : String;
begin
     result := True;
     aExt  := ExtractFileExt(FileName);
     nMin  := low( badExt);
     nMax := High( badExt );
     For nI := nMin to nMax do
     begin
        result := result and not SameText( badExt[nI], aExt );
        if not result then break;
     end;
end;

[cpdump]

Je parlais de la boucle pour le parcours des elements de la liste.

Par ailleurs pourquoi réinventer la roue pour le filtre, les fonctions que j'ai donné font exactement la même chose

[nepherkaan]

Je parlais de la boucle pour le parcours des elements de la liste.

Par ailleurs pourquoi réinventer la roue pour le filtre, les fonctions que j'ai donné font exactement la même chose

Simplement pour mieux maitriser des petits algos . Apres, effectivement, tu peux utiliser des fonctions toutes faites, mais pour l'apprentissage....