Discussion :

[franck SEFIC]

Bonjour a tous,

J'ai une information (50 099) dans un fichier montant.txt que je veux recupérer et envoyer a un composant TEdit. Comment procéder??

Aidez moi SVP. Merci d'avance

[ero-sennin]

Salut

Comment est structuré ton fichier txt ?
As-t-il toujours le même aspect ?

Car pour lire une infos précise, il faut bien étudier sa "structure"...

Donne nous un peu plus d'infos stp

[franck SEFIC]

J'ai une application qui lit le poids sur un indicateur et le place dans un fichier txt. la valeur peut varier de 0 à 1 000 000. Comment vais_je recupérer ce poids qui est dans ce fichier txt.

[franck SEFIC]

Salut

Comment est structuré ton fichier txt ?
As-t-il toujours le même aspect ?

C un fichier simple sans aucune particularité. Ce fichier prend en temps reel le poids affiché sur un indicateur. Ainsi il contient juste la valeur insérée. Ce fichier garde tjrs le meme aspect.

[ShaiLeTroll]

Si ce n'est qu'une valeur, tu peux essayer de la stocker dans un fichier ini, il existe le Composant TIniFile qui devrait te simplifier la vie ... ça c'est si tu es libre de choisir le format de fichier,
tu as deux possibilité soit la valeur est en chaine, ce qu'il me semble être ton cas, regarde la fonction AssignFile, Reset et ReadLn)
sinon fichier binaire genre 'file of integer'

[franck SEFIC]

Si ce n'est qu'une valeur, tu peux essayer de la stocker dans un fichier ini, il existe le Composant TIniFile qui devrait te simplifier la vie ... ça c'est si tu es libre de choisir le format de fichier,

j'ai pa le choix. le fichier txt existe et viens d'un logiciel que j'ai pas conçu.

tu as deux possibilité soit la valeur est en chaine, ce qu'il me semble être ton cas, regarde la fonction AssignFile, Reset et ReadLn)
sinon fichier binaire genre 'file of integer'

Comment manipulier la fonction AssignFile, Reset et ReadLn??

[ShaiLeTroll]

en gros comme ceci, regarde l'aide delphi

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
16
var
   FLNC: TextFile;
   Line: string;
begin
      AssignFile(FLNC, FileName);
      Reset(FLNC);
      try
         if not Eof(FLNC) then
         begin
            Readln(FLNC, Line);
            MonEntier := StrToInt(Line);             
         end;
      finally
         CloseFile(FLNC);
      end;
end;

[ero-sennin]

Salut,

Voici un exemple d'utilisation, à toi de l'adapter dans ton cas :

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
procedure TFPrincipale.charger;
var
i:integer;
ligne:string;
leFichier:TextFile;
begin
  If FileExists(ExtractFilePath(ParamStr(0))+'Stations.rwp') then // Si le fichier existe (ici Stations.rwp)
  begin
  AssignFile(leFichier,ExtractFilePath(ParamStr(0))+'Stations.rwp');// Assignation du Fichier
  Reset(leFichier); // Ouverture du Fichier
  Readln(leFichier,ligne); // Lecture de la ligne
  i:=StrToInt(ligne) // Conversion de la ligne en int
  CloseFile(leFichier); // Fermeture du fichier
  end;
end;

Tu as les grosses lignes ... sinon, F1 sur les mots Readln, reset etc ... Delphi te fera une joie de te montrer un exemple

A+

EDIT :

Grillé