fichier texteRésolu

Question

Bonjour je désire récupérer le valeur entre le caractére 59 et 63 soit '418' dans un fichier texte ,donc une  partie de la chaine suivante :

22/07/2006000000009593.260000000009593.26000000071830000000418000000 

j'ai déja essayer avec 
var
  S: String;
  C: shortstring;
begin
  S := '22/07/2006000000009593.260000000009593.26000000071830000000418000000';
  C := S[59]+S[60]+S[61]+S[62]+S[63]; 
  {edit sert à voir la valeur  }
  edit1.text:=c;
end;

ma question : Existe t-il une façon plus simple de récupérer les données et comment  récupérer la ligne de caractére se trouvant à la fin d'un fichier txt 

en vous remerciant

JulioDelphi · Accepted Answer

salut, utilise COPY()
>> edit1.Text := copy(s,60,3);

idem pour recuperer les X caracteres de fin de nom de fichier:
var i: integer; //nombre de caracteres à choper
i := 3;
edit1.Text := copy(s,length(s)-1-i,i);

bonne journée

Mon site DELPHI =)

Cirec · Answer

Salut,

si tu utilises un TStringList pour charger un fichier texte tout devient plus facile :

Var SL : TStringList;
  LastLine : String;
Begin
  SL :=  TStringList.Create;
  SL.LoadFromFile('Nom du fichier texte');
  LastLine := SL[SL.count - 1];  
  SL.Free;
 End ;

Voilà la dernièrre ligne du fichier texte se trouve maintenant dans LastLine.

Et tu peux aussi utiliser Copy avec TStringList ...

 
@+
Cirec

<hr size ="2" />

cs_Loda · Answer

@Cirec

:O

en voilà une bonne idée!

Je m'en rappelais... :)

Guillemouze · Answer

pour la sous chaine, tu peux aussi utiliser 
leftstr(s, n) pour extrait les n premiers caracteres de s,
rightstr(s,n) pour extraire les n dernieres caracters de s,
midstr(s,n,c) pour extraire c caracteres de s a partir de la position n, ce qui s'applique dans ton cas

Fichier texte

4 réponses

Votre réponse

Discussions similaires