Lire une ligne d'un fichierRésolu

Question

Bonjour,

Voila j'aimerais ouvrir un fichier et lire juste la premiere ligne délimité par des crochets. mais apparemment il est impossible en faisant un ReadLn(Fichier)!

Pouvez me guider svp?

Merci

Cirec · Accepted Answer

Salut,
essaye avec un TStringList :

procedure TForm1.Button1Click(Sender: TObject);
Var TS : TStringList;
  Texte : String;
Begin
  TS :=   TStringList.Create;
   Try 
    TS.LoadFromFile('Nom_du_Fichier');
    Texte : = TS[0];   // on affecte la première ligne à Texte 
  Finally
    TS.Free;
  End;
  Label1.Caption : =  Texte;  // on l'affiche dans un Label
 End ;

 
@+
Cirec

<hr size ="2" />

cs_couf · Answer

Salut,

 Donne un exemple de cette ligne s'il te plait

couf

tony_73 · Answer

re

Voila la premiere ligne du fichier texte a recuperer :

     [TEXTE]

voila

cs_couf · Answer

C'est à dire tu me dis si je me trompe,

Ton ficier est comme ceci,

[1ère ligne]
[2ème ligne]
.
.
.
.
[nième ligne]
C'est cela?

couf

tony_73 · Answer

re

Oui c'est cela. Toutes les ligne sont entre crochets et moi je me preoccupe que de la premiere. 

C'est surtout que ReadLn est tres mal expliqué et que sa marche po !!

Je pense qu'il faut utiliser autre chose maios ye sait pas quoi!!

Merci

cs_couf · Answer

Salut Cirec,

  Je crois qu'il veut juste le texte sans les crochets
non?
 

couf

Cirec · Answer

Bon faut pas pousser quand même ...
s'il a besoin que du texte entre les crochets rien de plus simple :

    Texte := Copy(TS[0], 2, Length(TS[0]) - 2);

 
@+
Cirec

<hr size="2" />

tony_73 · Answer

Ok c'est bon je suis arrivé a ce que je veut. 

Au fait pour les crochets sa va etre bon. Je vais les enlever moi meme.

Merci a tous les deux.  

bonne prog

A+

cs_couf · Answer

Merci  Cirec,

car je ne connaissais pas cette propriété
j'étais entrain d'écrire une vrai "usine à gaz" pour virer  tous les crochets, et ensuite faire un Tsringlist comme toi

Cirec · Answer

De rien ... 
on a souvent tendance à chercher la complication alors que la solution est très simple 

il existe aussi la fonction StringReplace de l'unité SysUtils.pas 
Extrait de l'unité SysUtils.pas:
type
  TReplaceFlags =    set of  (rfReplaceAll, rfIgnoreCase);

function StringReplace(const S, OldPattern, NewPattern: string;
  Flags: TReplaceFlags): string;

Utilisation:
procedure TForm1.Button1Click(Sender: TObject);
Var TS : TStringList;
Begin
  TS : = TStringList.Create;
  Try
    TS.LoadFromFile('Config.ini');
 // suppression en une passe de tous les [  
    TS.CommaText : =  StringReplace(TS.CommaText,'[', '', [rfReplaceAll]);
// suppression en une passe de tous les ]
    TS.CommaText :=  StringReplace(TS.CommaText,']', '', [rfReplaceAll]);
 // et on les affiches en une fois le résultat dans un TMemo  
    Memo1.Lines.AddStrings(TS);
   Finally 
    TS.Free;
  End;
End;

 
@+
Cirec

<hr size  ="2" />

Lire une ligne d'un fichier

10 réponses

Votre réponse

Discussions similaires