Discussion :

[bertrantitude]

Bonjour,

J'ai un fichier .txt avec un grand nombre de lignes que je charge dans un memo. Dans chacune de ces lignes, il y a en caractères 152 à 158, un nombre comme "160315" ou "160316". J'aurai besoin de récupérer le nombre le plus haut parmi toutes les lignes.


voici le code que je propose:

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
var
  i : integer;
  j: integer;
  l:string;
  m:integer;
  k:string; // vérif bon établissement
  phrase : string;
  nomjour:string;
  dernierjour:integer;
  memo: Integer;
 
 
 
 
     begin
                 l:=copy(Memo4.Lines[i],152,6);
 
           for m := 0 to memo4.Lines.Count-1 do begin
                  dernierjour := High(l);
 
 
         end;
 
          showmessage(IntToStr(dernierjour));

Avec ce code, j'ai comme résultat "6", ce qui je comprends vu que dans "160315", c'est bien 6 qui est le plus grand. Mais ce que je veux obtenir comme résultat, c'est "160321", vu que c'est ce nombre là qui est le plus grand parmi toutes les lignes.


Voici qqes lignes de mon fichier

Larmusuin, Yvonne Marie Yvonne19080505655 00007-01 1939-01-01 reumon 0ABUT990102893634 0A18:00 16031573260536100 aucunements 00007-01
Larmusuin, Yvonne Marie Yvonne19080505655 00007-01 1939-01-01 reumon 0ABUT990102893634 0A18:00 16031673260536100 aucunements 00007-01
Larmusuin, Yvonne Marie Yvonne19080505655 00007-01 1939-01-01 reumon 0ABUT990102893634 0A18:00 16031773260536100 aucunements 00007-01
Larmusuin, Yvonne Marie Yvonne19080505655 00007-01 1939-01-01 reumon 0ABUT990102893634 0A18:00 16031873260536100 aucunements 00007-01
Larmusuin, Yvonne Marie Yvonne19080505655 00007-01 1939-01-01 reumon 0ABUT990102893634 0A18:00 16031973260536100 aucunements 00007-01
Larmusuin, Yvonne Marie Yvonne19080505655 00007-01 1939-01-01 reumon 0ABUT990102893634 0A18:00 16032073260536100 aucunements 00007-01
Larmusuin, Yvonne Marie Yvonne19080505655 00007-01 1939-01-01 reumon 0ABUT990102893634 0A18:00 16032173260536100 aucunements 00007-01
callocq, Suzanne Suzanne 20080416297 00004-01 1939-01-01 reumonnebergen 0ABUT990101391077 0A18:00 16031573260536100 aucunements 00004-01
callocq, Suzanne Suzanne 20080416297 00004-01 1939-01-01 reumonnebergen 0ABUT990101391077 0A18:00 16031673260536100 aucunements 00004-01
callocq, Suzanne Suzanne 20080416297 00004-01 1939-01-01 reumonnebergen 0ABUT990101391077 0A18:00 16031773260536100 aucunements 00004-01
callocq, Suzanne Suzanne 20080416297 00004-01 1939-01-01 reumonnebergen 0ABUT990101391077 0A18:00 16031873260536100 aucunements 00004-01
callocq, Suzanne Suzanne 20080416297 00004-01 1939-01-01 reumonnebergen 0ABUT990101391077 0A18:00 16031973260536100 aucunements 00004-01
callocq, Suzanne Suzanne 20080416297 00004-01 1939-01-01 reumonnebergen 0ABUT990101391077 0A18:00 16032073260536100 aucunements 00004-01
callocq, Suzanne Suzanne 20080416297 00004-01 1939-01-01 reumonnebergen 0ABUT990101391077 0A18:00 16032173260536100 aucunements 00004-01

D'avance merci

[SergioMaster]

Bonjour,

je vais répondre avec un code pas très top et directement en ligne donc sans contrôle. De plus je remarque que la fameuse "date" n'est pas toujours en même position !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function MaxDateInMemo(m : TMemo) : Integer;
var i : integer;
     d : String;
begin
 result:='';
 for i:=0 to Pred(m.Lines.Count) do
   begin
     d:= copy(M.Lines[i],152,6);
     if d>Result then Result:=d;
   end;
end;

[bertrantitude]

ok merci!