Discussion :

[dnkz]

Salut!!

J'ai une FileListBox et j'aimerai supprimer dans la FileListBox les fichiers suprérieur a 30 000 octets.

Le trie ne s'effectue pas correctement ou selon les cas ca passe et d'autres non.

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
 
FileListBox2->ApplyFilePath("D:\\test");
FileListBox2->Update();
 
AnsiString fichier;
AnsiString fichier2;
AnsiString test;
for (int i = 0; i < FileListBox2->Items->Count; i++)
{fichier=FileListBox2->Items->Strings[i];
fichier2="D:\\test\\"+fichier;
int FichierHandle = FileOpen(fichier2, fmOpenRead);
 
test=FormatFloat("", FileSeek(FichierHandle, 0, 2));
 
if (test>30000) 
{FileListBox2->Items->Delete(i);}
FileClose(FichierHandle);

[totoche76]

Hello

FileSeek renvoie un entier. Déclares donc ta variable test sous forme de int plutot que d'AnsiString. Du coup, tu n'as plus besoin du FormatFloat.
Ca devrait arranger tes affaires. Comparer des valeurs numériques en passant par des chaines, ça ne donne pas forcément le même résultat.

A++

[dnkz]

Merci, mais ca n'arrange pas le problème, il reste des fichiers supérieur a 300 octet et des fichier inférieur a 300 octets qui ne s'affiche pas.

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
 
AnsiString fichier;
AnsiString fichier2;
int test;
for (int i = 0; i < FileListBox2->Items->Count; i++)
{
fichier=FileListBox2->Items->Strings[i];
fichier2="D:\\test\\"+fichier;
int FichierHandle = FileOpen(fichier2, fmOpenRead);
 
test=FileSeek(FichierHandle, 0, 2);
 
 
        if (test>300)  
        {
        FileListBox2->Items->Delete(i);
        }
FileClose(FichierHandle);
}

[dnkz]

J'ai également testé ca, pareil :/

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
 
AnsiString fichier;
AnsiString fichier2;
 
for (int i = 0; i < FileListBox2->Items->Count; i++)
{
fichier=FileListBox2->Items->Strings[i];
fichier2="D:\\test\\"+fichier;
 
  HANDLE hdl = CreateFile(fichier2.c_str(),  GENERIC_READ|GENERIC_WRITE,
  0, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
 
  int nb = GetFileSize(hdl, NULL);
 
      if (nb>300)
        {
        FileListBox2->Items->Delete(i);
        }
 
  CloseHandle(hdl);

[Trap D]

Pourquoi n'utilises tu pas les possibilités de Tsearchrec ? Tu as la possibilité de connaître la taille des fichiers plutôt que d'ouvrrir le fichier pour en connaître la longueur.
Ceci dit, je ne connais pas TFileListBox

[dnkz]

Je connais pas, est ce que c'est ca ?

FindFirst("c:\\Program Files\\bcb6\\bin\\*.*", faAnyFile, SearchRec);
test=IntToStr(SearchRec.Size) ;

La c'est juste pour le 1er fichier ? Ensuite pour les autres fichier ??

[totoche76]

Hello

Une remarque sur ta boucle for: quand tu fais un delete(i), l'élément est supprimé, les suivants se décalent pour remplir le vide, puis i est incrémenté. Résultat, l'élément qui a pris la place de l'élément supprimé n'est pas traité, si je ne m'abuse.
A essayer: Parcours tes items à rebours

Code :

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

1
2
for (int i = FileListBox2->Items->Count-1; i >= 0; i--)
  {...

[totoche76]

Re,

Pour le FindFirst, regarde ici: http://c.developpez.com/faq/bcb/?pag...iersrepertoire

[dnkz]

Hello

Une remarque sur ta boucle for: quand tu fais un delete(i), l'élément est supprimé, les suivants se décalent pour remplir le vide, puis i est incrémenté. Résultat, l'élément qui a pris la place de l'élément supprimé n'est pas traité, si je ne m'abuse.
A essayer: Parcours tes items à rebours

Code :

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

1
2
for (int i = FileListBox2->Items->Count-1; i >= 0; i--)
  {...

Je pense aussi que l'erreur vient de la, parcourire les items à rebours, c'est à dire ?

[totoche76]

Code:
for (int i = FileListBox2->Items->Count-1; i >= 0; i--)
{...


Je pense aussi que l'erreur vient de la, parcourire les items à rebours, c'est à dire ?

parcourir en partant du dernier dans la liste pour arriver au premier. cf le bout de code.

A++

[dnkz]

Merci je vais tester ca, j'avais pas remarqué

[dnkz]

Merci ca marche

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
 
 
AnsiString fichier;
AnsiString fichier2;
int test;
for (int i = FileListBox2->Items->Count-1; i >= 0; i--)
{
fichier=FileListBox2->Items->Strings[i];
fichier2="D:\\test\\"+fichier;
int FichierHandle = FileOpen(fichier2, fmOpenRead);
 
test=FileSeek(FichierHandle, 0, 2);
 
 
        if (test>300)
        {
        FileListBox2->Items->Delete(i);
        }
FileClose(FichierHandle);
}