Lecture d'un fichier txt

Version imprimable

13/08/2007, 20h07
franck SEFIC

Lecture d'un fichier txt

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
13/08/2007, 20h21
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
14/08/2007, 09h45
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.
14/08/2007, 10h01
franck SEFIC

Citation:

Envoyé par ero-sennin

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.
14/08/2007, 10h14
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'
14/08/2007, 11h19
franck SEFIC

Citation:

Envoyé par 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,

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

Citation:

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

en gros comme ceci, regarde l'aide delphi

Code:

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;

Salut,

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

Code:

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 :mrgreen:

A+

EDIT :

Grillé :aie:

Citation:
Envoyé par ShaiLeTroll
en gros comme ceci, regarde l'aide delphi
Code:

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;
ça marche a merveille. J'espère qu'avec cette methode il n'y aura pas de conflit de lecture_ecriture entre les deux logiciels. car l'autre logiciel ecrit et moi je lit.

merci et a bientot

14/08/2007, 14h50
ShaiLeTroll

La Quantité de données étant minime tu n'as que peu de risque, de tomber au même moment que son écriture, à la limite, faudrait suivre le sujet qui consernait les fichiers en cours ouvert ..., sinon tu essayes de l'ouvrir en écriture via un Append (au lieu du Reset), si cela déclenche une IOError, c'est que le fichier est pris par une autre application ....