Problème pour purger une TListBox

Version imprimable

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:

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

Salut :D
- Bon déjà, édite ton messages et met ton code dans les balises du même nom :wink:
- Ensuite Indente-le! C'est 10x plus facile à lire...
- Et puis là, utilise for...do! pourquoi tu t'embêtes à utiliser while? :D
- 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:

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 :D
Mais là tu ne filtres que les .gif... :wink:

30/09/2005, 02h29
smyley

à votre place, je testerai plûtot si les 4 derniers caractères sont '.gif' car si le fichier se nomme 'blabla.gif.back' ... :roll:
30/09/2005, 08h26
Lung

Citation:

Envoyé par smyley

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

Dans ce cas, pourquoi ne pas utiliser ExtractFileExt ?

:wink:
30/09/2005, 15h19
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
30/09/2005, 15h43
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:

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
30/09/2005, 16h39
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:

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

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

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... ;)

Citation:

ou bien créer une boucle pour chaque extension ?

Il vaux mieux faire une fonction à mon humble avis :
Code:

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 )

30/09/2005, 16h50
Escandil

Edit : trop de cross ^^
30/09/2005, 16h50
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,...)

Allez ... version optimisée..

Code:

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;

30/09/2005, 17h00
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
30/09/2005, 17h06
nepherkaan

Citation:

Envoyé par 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

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