Discussion :

[LeMontois]

Bonjour à tous,

Je cale depuis un petit moment sur un problème avec FPC et sollicite votre aide.

J'ai besoin de pouvoir tester si un fichier (avec son chemin complet) est présent ou pas sur un système Linux mais ceci avec la condition que le test doit être case-insensitive, y compris au niveau du path. Dit autrement , je voudrais que si je cherche à tester l'existence de "/root/test/toto.txt" , les chemins suivants soient considérés comme valides:

• /root/Test/toto.txt
• /root/TEST/toto.txt
• /root/test/Toto.txt

Merci d'avance pour l'aide ou les pistes que vous pourrez m'apporter.

[Roland Chastain]

Bonjour !

J'ai lu une discussion dans laquelle quelqu'un suggérait de changer la valeur de la constante typée FileNameCaseSensitive. Il faut voir si cela résout votre problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
program SetFileNameCaseSensitive;
 
{ Free Pascal 2.6.4
  Testé sous Windows
}
 
begin
  WriteLn(FileNameCaseSensitive); // TRUE
  FileNameCaseSensitive := FALSE;
  WriteLn(FileNameCaseSensitive); // FALSE
  ReadLn;
end.

[LeMontois]

Bonjour !

J'ai lu une discussion dans laquelle quelqu'un suggérait de changer la valeur de la constante typée FileNameCaseSensitive. Il faut voir si cela résout votre problème.

Merci pour votre réponse.
J'ai fait le test et fondais beaucoup d'espoir sur cette piste, mais malheureusement FileNameCaseSensitive ne me permet pas de régler le problème. Même en positionnant cette constante à FALSE, j'obtiens le même résultat (les paths avec casse différente ne sont pas trouvés sous Linux).
Encore merci.

[Roland Chastain]

Pas de quoi ! Apparemment, c'était trop beau pour être vrai. Il doit bien y avoir une façon de faire ce que vous voulez mais, ne connaissant pas Linux, je préfère ne pas trop m'avancer. J'espère que quelqu'un d'autre vous proposera une solution.

[NOVICE76]

tu test le premier chemin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
{$I-}
ASSIGN ( FICHIER_TRUC, CHEMIN_UN}
RESET   (FICHIER_TRUC)
{$I+}
IF IORESULT <> 0 THEN
    BEGIN
   Tu test le chemin 2 (idem ci-dessus)
    IF IORESULT <> 0 THEN
          BEGIN
          TU test le chemin 3 (idem dessus}
          END;
    END;

quand IORESULT = 0 c'est que ca marche

[Roland Chastain]

@NOVICE76

Effectivement on peut vérifier l'existence d'un fichier de cette façon mais cela ne résout pas le problème principal, car il faudrait tester toutes les variantes possibles de la chaîne, qui sont innombrables. Les trois exemples donnés par LeMontois n'épuisent pas toutes les possibilités.

[NOVICE76]

la solution que j'adopte, car j'utilise un grand nombre de programme qui font appel
à des fichiers , est de gérer l'attribution des noms de chemin à travers une unité
qui ne fait que cela : la gestion de l'identification des fichiers et des chemins.

Cette unité est alors appelé par tout programme ayant besoin de ce fichier.

[LeMontois]

Roland a bien saisi mon problème , mais je vais essayer de le préciser.
Je récupère des références de fichiers Unix (path + nom de fichier) et j'ai besoin de vérifier si ces fichiers existent ou non sur le système (avec "fileexists" par exemple).
Or des fois , les fichiers référencés existent bien, mais à la casse près (par exemple je dois considérer comme valide "/root/Test/toto.txt" alors que je cherche "/root/test/toto.txt" ).
Sous Windows , cette problématique ne se pose pas car le système est case insensitive , mais sous Unix ce n'est pas le cas et donc les deux chemins sont considérés comme différents.

Encore une fois la piste de Roland avait tout pour plaire , et j'en suis à me demander si cette constante (FileNameCaseSensitive) est vraiment prise en compte .

Merci encore pour votre aide , je suis convaincu qu'il doit y avoir une solution ...

Pour info , "FindDiskFileCaseInsensitive" n'a pas réglé mon problème non plus (casse non prise en compte qu'au niveau du nom du fichier, pas du path)

[ThWilliam]

Bonjour.

A moins qu'il n'existe une fonction (bien cachée), je ne vois qu'une solution : utiliser TSearchRec avec FindFirst et FindNext.
C'est d'ailleurs ce que fait la fonction "FindDiskFileCaseInsensitive" : recherche dans un dossier de tous les fichiers, puis comparaison du fichier trouvé et du fichier à trouver en lowercase.

Pour le path, on pourrait écrire une fonction semblable.
Pour éviter de parcourir tout ton disque dur , je ferais une recherche de dossier avec la première lettre du nom de celui-ci :
- d'abord en minuscule ('t*') : si trouvé, comparaison du dossier trouvé avec le dossier à trouver en lowercase.
- si rien n'est trouvé, deuxième recherche en majuscule ('T*).

Evidemment, il faut répéter l'opération pour chaque sous-dossier.

Une fois trouvé le path complet, tu récupères le nom réel du path (avec la casse), puis tu appelles la fonction "FindDiskFileCaseInsensitive".

Thierry

[e-ric]

Salut

ThWilliam m'a grillé la politesse... J'ai réfléchi à ton problème. Puisqu'il n'existe a priori pas de solution directe à ton problème (sous la forme d'une fonction sympa... mais je ne suis pas allé vérifier dans les bibliothèques), il faut la faire par soi-même avec les outils de base (FindFirst et FindNext) en les combinant dans une routine récursive qui parcourt toute l'arborescence à partir d'un point donné. Pour chaque nom de fichier accédé, il suffit alors de comparer le nom de fichier recherché complet avec celui en cours sans distinction de casse (avec une fonction du style AnsiSameText mais pour l'UTF-8)

Je te propose d'écrire une routine avec la signature suivante :

Code :

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

1
2
 
procedure ChercheIgnoreCasse(const RootDir, SubPathName: String; FileNames: TStringList);

RootDir : le dossier dans lequel il faut rechercher exhaustivement (ici '\root')
SubPathName: le motif de nom de fichier à retrouver (p.ex. '/Test/toto.txt'), casse quelconque.
FileNames : liste des noms complets de fichiers trouvés par la routine (oaramètre de sortie).
Pas le temps de proposer le code complet pour le moment.

Le fait d'utiliser une TStringList permettra de savoir s'il y a 0, 1 ou plusieurs fichiers trouvés (propriété count), peut-être que la présence de plusieurs est une erreur. Dans Windows, le problème n'a pas lieu mais sous Linux... Ce qui peut compliquer l'exploitation, ne te serait-il pas possible de normaliser le nom de fichier sous Linux ? Le problème devient alors trivial.

Attention, il ne faudra pas négliger les droits d'accès, ton fichier est copié dans \root, selon le compte sous lequel est lancé le programme (si ce n'est pas root), certains fichiers ne pourront être accédés (en recherche) ou ouverts (selon les droits des répertoires et des fichiers).

Enfin, écrire la routine (code + appelant) de façon portable si ton programme est voué à tourner sous plusieurs systèmes. A toutes fins utiles : http://wiki.freepascal.org/Multiplatform_Programming_Guide/fr

Cette réponse manque de détail car je fais cela sur ma pause déjeuner.

@+

[Iwoks]

Bonjour,

Donc, effectivement, j'étais partis sur un proposition similaire.
Ou parse tes dossiers pour comparer en Uppercase.
Et créer ainsi plusieurs route possible, et les explorer.
En sachant que l'ensemble de recherche est correspond à ta route d'origine.

Ou sinon comme tu es sur Linux.
Tu dois pouvoir faire un Regex en ligne de commande.
grep ‘[a-zA-Z>’ filename


cldt
Iwoks.

[LeMontois]

Merci à tous pour vos pistes.
Je vais faire des essais et si possible des tests de performance .
Je posterai ici les résultats.

@+

[LeMontois]

Un peu de FindAllFiles , TstringList et UPPERCASE et l'affaire est dans le sac
Encore un grand merci à tous pour vos réponses .

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
21
22
23
24
25
26
27
program RechercheFileNameCaseSensitive;
{ Recherche fichier sous Unix en Case Insensitive}
uses
FileUtil,Classes,sysutils;
 
var
QUOI,DIRSELECT : string; 
fichiers : TStringList;
i : integer;
 
begin
DIRSELECT:='/root/';
QUOI:='/root/test/toto.txt';
 
fichiers := FindAllFiles(DIRSELECT, '*.txt', true); //recherche des fichiers textes
 
writeln(Format('Trouvé %d fichiers textes',[fichiers.Count]));
 
for i:= 0 to fichiers.count -1 do 
		if uppercase(fichiers.ValueFromIndex[i]) = uppercase(QUOI) then  
				begin 
				writeln(QUOI + ' trouvé dans ' +fichiers.ValueFromIndex[i]);
				break;
				end;
 
fichiers.free;
end.

Code :

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

1
2
3
4
# ./testfic
Trouvé 228 fichiers textes
/root/test/toto.txt trouvé dans /root/Test/Toto.txt
#

[ThWilliam]

Et bien, j'ai appris l'existence de la fonction " FindAllFiles ".
Donc merci à toi.

Thierry