Accueil > > > CONVERTISSEUR DE FICHIER TYPE "TREE >> NOMFICHIER.TXT"
CONVERTISSEUR DE FICHIER TYPE "TREE >> NOMFICHIER.TXT"
Information sur la source
Description
Ceux qui ont deja tapé dans l'invite de commande un
tree >> repertoire.txt
savent que le fichier est difficilement lisible par la suite, car plein de caracteres bizarres en lieu et place des arborescences.
Cette source va ouvrir le fichier et remplacer tous les caracteres "genants" par des caracteres plus faciles a lire...
Personellement, je l'utilise pour maintenir "a jour" la liste de mes albums.
Source
- unit fiche_principale;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TForm1 = class(TForm)
- lister: TButton;
- emplacement: TEdit;
- listing: TMemo;
- procedure listerClick(Sender: TObject);
- private
- { Déclarations privées }
- public
- { Déclarations publiques }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.listerClick(Sender: TObject);
- var
- Fichier : textfile;
- buf : string;
- i : integer; // lecture des caracteres
- r: TRect; //pour l'impression
- i: Integer;
- begin
-
- // Teste si le fichier existe, sinon on sort
- if not FileExists(emplacement.Text) then
- begin
- ShowMessage('Le fichier que vous avez demandé n''existe pas!');
- Exit;
- end;
-
- // Affectation de la variable Fichier au fichier
- AssignFile(Fichier, emplacement.Text);
-
- // Ouverture en mode lecture
- Reset(Fichier);
-
- // On lit ligne à ligne et affiche ce qui est lu
- while not Eof(Fichier) do
- begin
- Readln(fichier, buf);
-
- for i := 1 to Length(buf) do
- begin
- if buf[i] = '³' then listing.Text := Listing.Text+'|' else
- if buf[i] = 'Ã' then listing.Text := Listing.Text+'>' else
- if buf[i] = 'Ä' then listing.Text := Listing.Text+'-' else
- if buf[i] = 'À' then listing.Text := Listing.Text+'+' else
-
- //tous ces caracteres sont ceux de l'arborescence
-
- listing.Text := listing.Text+buf[i];
- //si le caractere n'est pas un caractere d'arborescence, on ajoute juste le caractere normal
- end;
-
- listing.Lines.Add(''); // ensuite on saute une ligne
-
- end;
-
- // Fermeture du fichier
- CloseFile(fichier);
-
-
- with Printer do
- begin
- r := Rect(100,100,(Pagewidth - 100),(PageHeight - 100));
- BeginDoc;
- Canvas.Brush.Style := bsClear;
- for j := 0 to Memo1.Lines.Count do
- Canvas.TextOut(100,100 + (j *
- Canvas.TextHeight(listing.Lines.Strings[j])),
- listing.Lines.Strings[j]);
-
- Canvas.Brush.Color := clBlack;
- Canvas.FrameRect(r);
- EndDoc;
- end;
-
- end;
-
- end.
unit fiche_principale;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lister: TButton;
emplacement: TEdit;
listing: TMemo;
procedure listerClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.listerClick(Sender: TObject);
var
Fichier : textfile;
buf : string;
i : integer; // lecture des caracteres
r: TRect; //pour l'impression
i: Integer;
begin
// Teste si le fichier existe, sinon on sort
if not FileExists(emplacement.Text) then
begin
ShowMessage('Le fichier que vous avez demandé n''existe pas!');
Exit;
end;
// Affectation de la variable Fichier au fichier
AssignFile(Fichier, emplacement.Text);
// Ouverture en mode lecture
Reset(Fichier);
// On lit ligne à ligne et affiche ce qui est lu
while not Eof(Fichier) do
begin
Readln(fichier, buf);
for i := 1 to Length(buf) do
begin
if buf[i] = '³' then listing.Text := Listing.Text+'|' else
if buf[i] = 'Ã' then listing.Text := Listing.Text+'>' else
if buf[i] = 'Ä' then listing.Text := Listing.Text+'-' else
if buf[i] = 'À' then listing.Text := Listing.Text+'+' else
//tous ces caracteres sont ceux de l'arborescence
listing.Text := listing.Text+buf[i];
//si le caractere n'est pas un caractere d'arborescence, on ajoute juste le caractere normal
end;
listing.Lines.Add(''); // ensuite on saute une ligne
end;
// Fermeture du fichier
CloseFile(fichier);
with Printer do
begin
r := Rect(100,100,(Pagewidth - 100),(PageHeight - 100));
BeginDoc;
Canvas.Brush.Style := bsClear;
for j := 0 to Memo1.Lines.Count do
Canvas.TextOut(100,100 + (j *
Canvas.TextHeight(listing.Lines.Strings[j])),
listing.Lines.Strings[j]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;
end.
Conclusion
Voila...
Je suis en train de voir un moyen de lire les infos a partir d'un fichier .ini mais ce n'est pas extremement nescessaire.. .Donc a moins que vous ne me harceliez jour et nuit, je ne vais pas trop me presser pour le mettre au point :p
Historique
- 21 mars 2005 19:51:42 :
- Mise a jour: le listing est imprimé apres la conversion.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYSTECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice
Speakers : Lionel Limozin et Alain Marty La session commence par une découverte de SharePoint à travers la mise en place d'un environnement SharePoint pour la gestion des Sessions animées par BeWise. Le besoin est très ba...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit
Je viens de publier la version 3.0 de Perspective pour Silverlight, qui regroupe un portage sous Silverlight 5.0 des fonctionnalités de Perspective 2.0, le framework 3D de haut-niveau introduit récemment et de nouveaux exemples de code. En voici la li...
Cliquez pour lire la suite de l'article par odewit TECHDAYS PARIS 2012 : TOP 10 DES BEST PRACTICES POUR SQL SERVERTECHDAYS PARIS 2012 : TOP 10 DES BEST PRACTICES POUR SQL SERVER par ROMELARD Fabrice
Speaker : Nadia Ben El Kadi Configuration machine La session commence par la toute première question à se poser lors de la mise en place d'environnement SQL Server, la configuration des machines : Type de mac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : KINECT + OFFICE 365 UN BON GESTE POUR VOTRE SITECHDAYS PARIS 2012 : KINECT + OFFICE 365 UN BON GESTE POUR VOTRE SI par ROMELARD Fabrice
Speakers : Fabrice Barbin, Samuel Blanchard, Julien Lo Presti Titre Prometteur et attractif invitant à voir comment lier le composant ludique Kinect dans le cadre d'une structure IT classique, notamment au travers de la plat...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : PLEINIèRE DU PREMIER JOURTECHDAYS PARIS 2012 : PLEINIèRE DU PREMIER JOUR par ROMELARD Fabrice
KeyNotes du premier jour pour les développeurs. La session est principalement axée sur une des principales directions prise par Microsoft à travers tous ses nouveaux produits : Cloud privé ou public (Solution Azure) ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : BONJOUR A VOUSRE : BONJOUR A VOUS par pierrotk10d
Cliquez pour lire la suite par pierrotk10d
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|