ReadLn

Question

J'ai plein de problèmes avec la commande read ln.
Je voudrai recuperer des informations sur chaque ligne jusqu'a une ligne qui ne continent plus rien en utilisant repeat, readln, until.
Merci d'avance.
PS : je peux utiliser d'autres fonctions.
@+

yoghisan · Answer

Voila un code qui lit un fichier texte jusqu'à la fin du fichier

Il y a deux précautions qui sont prises sur :
- l'existance du fichier
- le type de fichier (test pas orthodoxe mais très pratique)


function LireFichier(Fichier:string):Boolean;
var F:TextFile;
    S:string;
begin
  if not FileExists(Fichier)
    then begin
      ShowMessage('Le fichier n''existe pas...');
      Result := False;
      exit;
    end;
  if (ExtractFileExt(Fichier)='.txt') or (ExtractFileExt(Fichier)='.TXT')
    then
    else begin
      ShowMessage('Le fichier n''est pas un fichier texte.');
      Result := False;
      exit;
    end;

  AssignFile(F,Fichier);
  Reset(F);
  while not eof(F) do begin
    Readln(F,S);
    showmessage(S);
  end;
  CloseFile(F);
  Result := True;
end;

Si tu veux vraiment t'arreter à la premiere ligne vide, il faut rajouter dans la boucle while ceci

  while not eof(F) do begin
    Readln(F,S);
    showmessage(S);
    if S='' then break;
  end;

TheChikenKiller · Answer

En fait le fichier existe obligatoirement !
Je le crèe juste avant et je lui telecharge des infos.
Mais je ne comprend pas très bien le reste de la source.
Tu pourrais m'expliquer.
Au passage je m'en sert pour recuperer une liste d'adresses ip pour faire une sorte de client p2p.
@+
~Art~ (saying to be the chikenkiller)

yoghisan · Answer

Procedure LireFichier(Fichier:string);
var F:TextFile;
    S:string;
begin
  // Affecte le nom d'un fichier externe à une variable fichier ici F
  AssignFile(F,Fichier);
  // Ouvre un fichier existant.
  Reset(F);
  // Boucle se terminant lorsque on a lu la dernière ligne de la variable fichier F
  while not eof(F) do begin
    // lire la ligne de la variable Fichier F et colle le contenu dans la variable string S
    Readln(F,S);
    // Traiter la varaible string S
    showmessage(S);
  end;
  // Ferme un fichier ouvert.
  CloseFile(F);
end;

TheChikenKiller · Answer

Merci
~Art~ (saying to be the chikenkiller)

ReadLn

4 réponses

Votre réponse

Discussions similaires