CONVERTISSEUR DE FICHIER TYPE "TREE >> NOMFICHIER.TXT"
Dreuteu
Messages postés
44
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
28 février 2006
-
21 mars 2005 à 18:36
djicfr Messages postés 24 Date d'inscription dimanche 15 juin 2003 Statut Membre Dernière intervention 27 mars 2005 - 27 mars 2005 à 16:50
djicfr Messages postés 24 Date d'inscription dimanche 15 juin 2003 Statut Membre Dernière intervention 27 mars 2005 - 27 mars 2005 à 16:50
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30238-convertisseur-de-fichier-type-tree-nomfichier-txt
https://codes-sources.commentcamarche.net/source/30238-convertisseur-de-fichier-type-tree-nomfichier-txt
27 mars 2005 à 16:50
27 mars 2005 à 16:22
Mais la je voulais faire du code exploitable sous tous les Windows, et il me semble que le /a /f ne fonctionne pas toujours...
26 mars 2005 à 21:49
r: TRect; //pour l'impression
i: Integer;
i est déclaré 2 fois
De plus, sous windows XP il suffit de taper :
tree /a /f >> repertoire.txt
/a le fichier text en Ascii compréhensible
/f pour lister les fichiers ...
Sinon ton code est sympa.
22 mars 2005 à 17:06
Grand merci a toi! J'avais reutilisé en desespoir de cause une source de ManChesTer mais elle est bien plus Longue.
Grand merci encore une fois
22 mars 2005 à 14:07
procedure TForm1.Button1Click(Sender: TObject);
var fic : TextFile;
i : integer;
begin
Memo1.Lines.LoadFromFile('unit1.pas');
AssignFile(fic,'LPT1');
Rewrite(fic);
for i := 0 to Memo1.Lines.Count-1 do
WriteLn(fic,Memo1.Lines[i]);
CloseFile(fic);
end;
Tu peux bien sûr améliorer avec une marge en faisant :
WriteLn(fic,' '+Memo1.Lines[i]);
jp \o/
...etc...
22 mars 2005 à 08:27
Mais je voulais faire en sorte qu'a la premiere utilisation l'utilisateur choisisse le fichier a convertir (vu que chez moi c'est toujours le même)...
Par contre l'impression ne passe pas et c'est étrange... Si quelqu'un a une idée sur la facon d'imprimer lecontenu d'un Memo je suii très preneur.
21 mars 2005 à 20:21
Te fatigue pas avec les fichiers .ini, tu peux très bien les lire ou modifier avec le bloc-notes.
En plus, dans delphi, il y a tout ce qu'il faut pour les utiliser savament : voir TIniFile.
21 mars 2005 à 18:36
Je n'ai pas choisi de mettre un systeme d'enregistrement en place parce que dans mon utilisation perso ca n'est pas nescessaire. Mais il est tout a fait possible de le faire .
D'un autre cote, on peut s'en servir pour verifier la creation/disparition de repertoires... Dans ce cas, un enregistrement serait nescessaire.