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!

[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;

[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?

[Art19]

j'ai regarde l'aide de ReadLn et je ne vois pas comment l'utiliser ici... pour aller lire une ligne dans un fichier

[Lung]

Un truc comme ça, non ?

Code :

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

1
2
3
4
5
6
7
AssignFile(F, 'MonFichier.txt');
try
   Reset(F);
   Readln(F, szMachaine);   // on lit la première ligne dans szMachaine
finally
   CloseFile(F);
end;

[banban54]

par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure machin;
var       
  Fichiertxt    : TextFile;
  texte         : string;
begin
  AssignFile(Fichiertxt, NomFichier); 
  Reset(Fichiertxt);
  Readln(Fichiertxt, texte);// lecture première ligne dans texte  
  CloseFile(Fichiertxt);
end;

à plus

[Art19]

ah oui pas mal! merci

[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 !