Discussion :

[Art19]

bonjour,

je voudrais lire la premiere ligne d'un fichier .TXT. J'ai en entree la String: 'nom du fichier'... je pensais a ReadFile, mais est ce qu'il y a mieux? Et sinon comment utiliser ReadFile? Merci

[banban54]

bonjour

voir l'aide sur ReadLn

à plus!

[Art19]

Code :

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

1
2
3
4
5
6
      h := OpenFile( PChar(fichiers[i]), ofs, OF_READ  );
 
      if GetFileSize(h,nil) <> 0 then begin
          ReadFile( h, s, 8*sizeof(char), read, nil );
          ShowMessage( s^ );
      end;

voila mon code mais ca ne marche pas!

[Art19]

Oui mais la tu charges tout le fichier! moi je ne veux lire que la premiere ligne

[Art19]

J'aimerais bien une petite aide de ShaiLeTroll

[banban54]

Readln ne vous plait pas?

[ShaiLeTroll]

J'aimerais bien une petite aide de ShaiLeTroll

Désolé, je n'avais pas vu ton sujet

j'ai en plus la fonction dans ma collection, j'en avais une autre pour lire un nombre d'octet dans un très gros fichier mais je ne l'ai plus, mais c'est pas difficile à refaire avec blockRead

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
function GetFileFirstLine(const FileName: string) : string;
var       
  InFile: TextFile;
begin
  AssignFile(InFile, FileName); 
  Reset(InFile);
  try
    if not EOF(InFile) then
       Readln(InFile, Result)
    else
      Result := '';
  finally
    CloseFile(InFile);
  end;
end;

ce qui est la même chose que tout le monde bien sur !

[dd_garion]

Mieux, je sais pas mais facile : tu utilises un tStrings

ex:

Code :

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

1
2
3
4
5
6
7
8
 
...
var
   s : TStrings;
begin
   s.LoadFromFile(filename); // charger le fichier
   s.Strings[0];                  // la première ligne de ton fichier.
end;