Discussion :

[Pouthou]

Boujour ! En recherchant un moyen d'ouvrir un fichier (exemple shellexecute) je me suis rendu compte qu'une partie du nom de mes fichiers générés était générés en fonction de la date et l'heure du fichier crée. Je me suis donc dis que d'autre personnes ont dût avoir un problème de ce type et je suis tomber sur quelques bouts de code contenant les fonctions "FindFirst et FindNext" mais il se trouve que mon problème ne s'applique pas à ce que j'ai pu trouver.

Type 1:
J'ai le début mais pas la fin : abcdefxxxx.txt
Type 2:
J'ai la fin mais pas le début : xxxxefghi.txt
Mon type :
J'ai le début et la fin mais pas le milieu : abcdxxxhijk.txt

En sachant donc que pour mon cas les xxx est une date et heure (ex: 16092013(date) 1404(heure)) donc quelque chose que je ne contrôle pas quand je dois retrouver/ouvrir le fichier en question

Y aurait t-il un moyen de passé outre le fais qu'il me manque cette partie du nom de fichier pour l'ouvrir ou faut-il que je creuse plus loin ?
Merci de l'aide à venir

[ShaiLeTroll]

Pour avoir utiliser FindFirst un grand nombre de fois, je n'ai jamais eu de problème d'énumération de fichier même dans des répertoires en contenant plus de 5000 (ouvrir cela dans l'explorateur, ça peine)

Faudrait nous fournir ton code, à part, une troncature du nom de fichier lié peut-être à une mauvaise gestion de l'unicode, je ne connais pas perte de bout dans string !

[ALWEBER]

Peut etre une surimpression d'objet

[Pouthou]

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
var
  searchResult : TSearchRec;
 
begin
  // Try to find regular files matching Unit1.d* in the current dir
  if FindFirst('12100H302*', faAnyFile, searchResult) = 0 then
  begin
    repeat
      ShowMessage('File name = '+searchResult.Name);
    until FindNext(searchResult) <> 0;
 
    // Must free up resources used by these successful finds
    FindClose(searchResult);
  end;
end;

(adapté de : http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst)

Fichier de nom :
12100H302 20121003 152100 tmp.txt
12100H302 20121112 135700 pre.txt

J'ai donc en ma possession 12100H302 et tmp.txt/pre.txt en sachant que je si je laisse 12100H302* il prendra le premier et le deuxième et j'aimerai accéder au deuxième par exemple.

[Eric Boisvert]

Puisque vos fichiers semblent formatés toujours de la même façon,
vous pouvez utiliser une recherche du genre:

Code :

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

1
2
 
if FindFirst('12100H302?????????????????pre.txt', faAnyFile, searchResult) = 0 then

[ShaiLeTroll]

le problème c'est déjà le choix du répertoire
Comme tu ne fournis que le nom du fichier, il doit chercher dans le répertoire de l'exe

Et sinon, j'ai l'impression que tu as mal posé ta question, ce n'est pas un problème de chemin incomplet mais plutôt que tu ignores comment filtrer les résultat fournis par FindFirst

Si tu veux accéder au "deuxième" seulement, tu as un critère de sélection
construit ton fitre de façon à ce qu'il réduise ton choix, tente ceci

Code :

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

if FindFirst('12100H302 20121112*', faAnyFile, searchResult) = 0 then

ou

Code :

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

if FindFirst('"12100H302 20121112*"', faAnyFile, searchResult) = 0 then

Tu noteras que j'ai mis "12100H302 20121112*" car je me demande si l'espace n'est pas problématique dans une recherche ?

@Eric Boisvert, sous Explorer ? et * semble avoir le même effet et pas se limiter à un char
Mais c'est une approche a tester

[ALWEBER]

Modifier le paramètre de FindFirst Comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  searchResult : TSearchRec;
 
begin
  if FindFirst('12100H302*.*', faAnyFile, searchResult) = 0 then
  begin
    repeat
      ShowMessage('File name = '+searchResult.Name);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
end;

[Pouthou]

Je suis désolé de ne pas avoir donnée suite à ce sujet j'ai eu du travail par dessus la tête, je n'ai donc pas encore pu tester vos différentes solutions
Je posterai à la suite de ce message pour vous dire si j'ai résolu mon problème, encore merci !

[Eric Boisvert]

@Eric Boisvert, sous Explorer ? et * semble avoir le même effet et pas se limiter à un char
Mais c'est une approche a tester

C'est une approche testée depuis longtemps... depuis le DOS... et la fonction FindFirst réagit de la même façon !
C'est testé ici dans mes versions (qui ne sont pas récentes...)
mais j'ai de gros doutes que cela ait changé...

[DidiLogic]

Bonjour,

En général quand FindFirst ne me suffit pas, je charge les noms de fichier dans une TStringList et je continue à la main ou avec des expressions régulières...