Discussion :

[Rayek]

En passant par un TFileStream ca serait largement plus simple pour traiter la progression et la récupération des données du fichier (vu que ton fichier à l'air d'avoir toujours la même structure (taille de ligne identique)

Tu fais la structure dans ce style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Type TMaLigne = record
  Code : Array[1..3] of Char;
  Texte1 : Array[1..52] of char;
  Texte2 : Array[1..20] of char;
  CRLF : array [1..2] of char; // à ne pas enlever car dans ton fichier exemple les lignes finissent par un CRLF ^^
end;

puis tu récupères les données de la manière suivante :

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
17
18
19
20
21
22
23
24
25
 
Var
  FFile : TFileStream;
  MaLigne : TMaligne;
  sText : String;
begin
 
  FFile := TFileStream.Create(MonFichier,fmOpenRead);
  Try
    FFile.Seek(0,soFromBegining);
    While (FFile.Position + Length(MaLigne) < FFile.Size do
    begin
      FFile.ReadBuffer(MaLigne,Length(MaLigne));
 
     // Puis suffit de récuper les données et les mette comme tu veux
     // sText sert d'exemple
     sText := String(Maligne.Code) + ' - ' + String(Maligne.Texte1);
 
      ProgressBar1.Position := FFile.Position * 100 Div FFile.Size;
    end;
 
  finally 
    FFile.Free;
  end;
end;

Bien sur c'est à adapter selon le code et j'ai un doute juste sur le Length(MaLigne) faut peut être metttre Size(MaLigne) à la place

[ShaiLeTroll]

J'adore aussi la méthode de découpage par structure comme le conseille Rayek pour l'avoir utiliser de nombreuses fois (que ce soit en fichier fixe qu'en fichier binaire structuré)

Juste faire attention au Char, autant prévenir les risques tout de suite en utilisant AnsiChar ... ainsi cela fonctionnera aussi bien en D7 qu'en D2009

et j'ajouterais l'utilisation du packed pour garantir que les blocs sont bien contigües

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Type TMaLigne = packed record

[chaplin]

Ton fichier forme.txt fait 22349 octets.
Chaque ligne fait 74 octets (3 + 49 + 20 + 2 (CR/LF))

22349 div 74 = 302.

Ton "RecordCount" est de 302.

2/72 ~ 3%, j'ai raisonné en ordre de grandeur.

@Rayek: superbe implémentation, que du bon sens !

[Bingo25]

Salut tout le monde;
j'ai le même problème que sandokhane sauf que moi j'utilise des tables de type Paradox 7 et et que je veut extraire les données a partir d'un fichier texte qui se trouve dans un CD-ROM (lecteur CD)

Aidez moi SVP

[samaury]

Salut Bingo25
Tu as testé les solutions proposées dans cette discussion?
Si oui ou est-ce que tu bloques exactement?
Si non... commence par mettre en oeuvre ces solutions, surtout la dernière : Packed Record + TFileStream

[Bingo25]

Quelle est la fonction qui renvoie la partie décimal d'un nombre?

[Ph. B.]

Quelle est la fonction qui renvoie la partie décimal d'un nombre?

Delphi via la touche permet d'obtenir une aide et vous auriez trouvé que la fonction Frac répond à votre demande. function Frac(X: Extended): Extended;

[ThWilliam]

Bonjour.

Je viens de faire un test de lecture d'un fichier de 35Mo (20.000 lignes) avec pour chaque ligne 5 traitements copy(s,...,...).

En ouvrant le fichier avec un TextFile : 485 ms.
En ouvrant dans un TStringList : 125 ms. (presque 4 x plus rapide).
J'ai évidemment fait le test plusieurs fois. C'est une moyenne.

C'est toujours ça de gagné.

Thierry

J'avais posté ce message avant de voir la suite de la discussion. Ouvrir comme fichier binaire me semble être une bonne solution.