Discussion :

[nicosfly]

salut,
j'ai un fichier "texte" de type UNIX, et pour l'utiliser dans un programme, il faut qu'il soit de type DOS.

comment vous faites pour cette transformation ?

j'ai essaye de lire les #10 et #13, mais quand je fais un readln sur mon fichier, il me lit tout mon fichier dans la premiere ligne...

a+

[BlueX_scf]

parce que dans les fichier unix la fin de ligne (tq attendue dans readln) n'est pas un #13#10 ... c juste #10 tout seul

[darinze]

Je viens d'essayer ceci ça a l'air de fonctionner:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject);
var l: tstringlist;
begin
  l := tstringlist.create;
  l.loadfromfile('c:\windows\bureau\toto.txt');
  l.savetofile('c:\windows\bureau\toto2.txt');
  l.free;
end;

toto.txt est un fichier au format UNIX : si je l'ouvre avec le bloc-notes, toutes les lignes qu'il contient sont toutes sur la même ligne
toto2.txt a été généré d'après toto.txt et lui, si je l'ouvre avec le bloc-notes, j'ai des lignes normales...

Ceci te permet en plus, au lieu de gérer la lecture de toutes les lignes une à une, de faire une lecture en bloc et d'accéder directement à chacune par son numéro (moins un, puisque les index commençant à 0, la première ligne a le numéro 0 (l[0]), la deuxième a le numéro 1, etc...).

[nicosfly]

merci pour les infos.

en fait, j'ai fait un test sur un autre pc avec D6 perso, du genre j'ouvre le fichier unix, je lis les lignes une a une, et j'affiche chaque ligne dans un memo, et la ca marche sans probleme.... avec un comptage s'incrementant a chaque ligne...alors qu'avant, il ne me detectait qu'une seule ligne....moi toujours pas compris....mais bon ca marche maintenant...jusqu'a la prochaine fois....

a+

[sbeu]

Ça marche nickel pour moi
Merci!