Discussion :

[Roland Chastain]

Bonjour !

J'ai fait une petite application que je pensais ajouter dans la rubrique "sources" mais auparavant je voudrais essayer de l'améliorer encore un peu, avec votre aide.

C'est une application qui permet de chercher un mot dans un ensemble de fichiers texte (mettons les œuvres complètes d'un écrivain). Toutes les lignes contenant le mot s'affichent dans la fenêtre principale. Si vous cliquez deux fois sur une ligne, le fichier correspondant s'ouvre dans une deuxième fenêtre, pour pouvoir lire la ligne dans son contexte et éventuellement éditer le fichier.

Dans l'état actuel de l'application, vous êtes encore obligé de cliquer sur un bouton (le bouton "Aller") pour voir apparaître la ligne où se trouve le mot. J'aurais voulu que ça se fasse automatiquement à l'ouverture de la fenêtre mais je n'y arrive pas.

Voilà, si vous avez une idée sur ce point, ou sur une autre amélioration possible, merci d'avance.

Il faudrait aussi que je trouve un nom pour cette application.

J'ai mis dans la pièce jointe une partie de mes fichiers pour que vous puissiez essayer l'application. Ce sont deux volumes des œuvres complètes de Bossuet.

[DomDA91]

Bonjour,

Pas mal mais je suppose que cela ne marche que pour des fichiers Txt encodé en UTF8. C'est le problème des fichiers txt, on ne sait jamais à quel encodage on a affaire surtout sous Windows, entre OEM (rares maintenant), Ansi (encore assez fréquents) et UTF8.

Dans l'état actuel de l'application, vous êtes encore obligé de cliquer sur un bouton (le bouton "Aller") pour voir apparaître la ligne où se trouve le mot. J'aurais voulu que ça se fasse automatiquement à l'ouverture de la fenêtre mais je n'y arrive pas.

Comme ça à vue de nez il suffirait que tu déplace le code de btGotoClick dans l'événement OnActivate de Form2 ou d'y simuler un click sur le bouton "Aller" par :

Code :

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

1
2
3
4
procedure TForm2.FormActivate(Sender: TObject);
  ....
Begin
   btGotoClick(mmText);

Aussi il serait peut-être mieux d'ouvrir Form2 en non modal (Form2.show au lieu de Form2.ShowModal), cela permettrai de changer d'occurrence simplement en cliquant sur cette autre occurrence dans form1 sans devoir refermer préalablement Form2.

[Roland Chastain]

@DomDA91

Oui, ça fonctionne comme ça. Merci ! Je ne connaissais pas la différence entre Show et ShowModal. J'avais mis ShowModal sans trop savoir pourquoi.

Effectivement je suppose des fichiers encodés en UTF8, ce qui est le cas dans le contexte où j'utilise cette application.

[Roland Chastain]

Je pourrais peut-être prévoir une détection automatique de l'encodage. Je vais faire des essais.

Pour le moment, j'ai seulement essayé la commande file (je suis sous Linux). Ça fonctionne.

Code X :

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

1
2
3
[roland@localhost 01]$ file 00.txt
00.txt: UTF-8 Unicode text, with CRLF line terminators
[roland@localhost 01]$

[Roland Chastain]

J'ai fait la modification suivante, pour voir déjà ce que ça donnait.

Code :

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

1
2
3
4
// recherche.pas
    FContenu[LFileIndex].LoadFromFile(FListeFichiers[LFileIndex]);
    if GuessEncoding(FContenu[LFileIndex].Text) <> 'utf8' then
      mmLog.Append(Format('Problème éventuel d''encodage : %s', [FListeFichiers[LFileIndex]]));

Et je m'aperçois que certains de mes fichiers posent problème, comme le fichier 14/03.txt.

Confirmation avec la commande file :

Code X :

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

1
2
3
[roland@localhost 14]$ file 03.txt
03.txt: UTF-8 Unicode (with BOM) text, with CRLF line terminators
[roland@localhost 14]$

Bon, je ne sais pas encore trop comment je vais gérer le problème. Il y a un avertissement, c'est déjà ça.

[Roland Chastain]

J'ai ajouté un bouton "Convertir en UTF-8", qui permet de convertir les fichiers chargés en mémoire. Si on coche l'option "Sauvegarder", la conversion se fait également sur le disque.