Discussion :

[Jlmat]

Bonjour,

J'extrais les champs d'une ligne comprenant la structure d'un fichier de messagerie (Orange ici). J'obtiens bien l'extraction des 103 champs que j'écris dans une StringList. Mais lorsque je les affiche dans une listBox, il y a un champ vide qui apparait. Je ne sais pas comment faire pour ne pas enregistrer ce champ vide. Il a lieu lorsque j'ai fini la boucle d'extraction et que je rajoute le dernier champ de la liste...



Je mets en pièce jointe le fichier de la structure StructOrange.txt
Voici le code des deux procédures utilisées:

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
 
{-----------------------------------------------------------------}
procedure TForm2.SpdBtnCalculClick(Sender: TObject);
 var i : integer;
begin
   if Assigned(ListChamps) then
   begin
     ListChamps := fExtractChamps(FicTest,Sep);
     EdNb.Text  := inttostr(ListChamps.Count);
     if ListChamps.Count > 1 then
     begin
        LBChamps.Items.Add('Liste des champs du Fichier '+ExtractFileName(FicTest)+' : '+CR);
        for i := 0 to ListChamps.Count - 1 do
        begin
          LBChamps.Items.Add(ListChamps[i]);
          if Length(ListChamps[i]) = 0 then showmessage('C''est bien un champ vide qui est lu en '+inttostr(i)+'ème position !');
        end;
     end;
   end else MessageDlg('La Liste des champs n''a pas été créee!',mtInformation,[mbOk],0);
end;

Et voici la boucle d'extraction:

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
26
27
28
29
30
31
32
33
 
{--- Fournit une StringList des champs extraits du Fichier fourni -------------}
Function fExtractChamps(aFic : String; aSep : ShortString) : TStringList;
Var Ftxt   : TextFile;
    LigOrg : String;
    P      : Integer;
    Champ  : ShortString;
begin
  If not fileexists(aFic) then Exit;
  AssignFile(Ftxt,aFic);
  P := -1;
  Try
   Result := TStringList.Create;
   reset(Ftxt);
   Readln(FTxt, LigOrg);
   Repeat
     if P <> 0 then
     begin
       P     := AnsiPos(aSEP,LigOrg);
       Champ := Copy(LigOrg,1,P - 1);
       result.Add(Champ);
     end;
 
     if P > 0 then LigOrg := Copy(LigOrg,P + 1,Length(LigOrg) - P);
 
   until P = 0;
 
   result.Add(LigOrg);
 
  finally
    CloseFile(Ftxt);
  end;
end;

Voilà, si vous avez une idée de pourquoi, il enregistre un champ vide?
Merci d'avance

[Jipété]

Yep !

Tiens, cadeau, je te laisse adapter :

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
26
27
28
29
procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
    sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(FicTest);
  //showmessage(sl.Text);
  split(',', sl.Text, ListChamps);
  for i := 0 to ListChamps.Count-1 do
    LBChamps.Items.Add(inttostr(i+1)+'  '+ListChamps[i]);
// "i+1" parce que c'est + sympa, pour nous humains, de commencer une liste par "1"
  Edit1.Text := inttostr(ListChamps.Count);
  sl.Free;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  FicTest := '/tmp/StructOrange.txt';
  Sep := ',';
  ListChamps := TStringList.Create;
end;

Et tu noteras que tu n'as que 102 lignes !



Enjoy,

[Jlmat]

Yep !

Tiens, cadeau, je te laisse adapter :
Et tu noteras que tu n'as que 102 lignes !

Merci Jipété,

Oui, 102 champs, j'ai compté ma ligne vide...
Super code condensé... J'avoue que je suis obligé d'étudier ta fonction Split, performante mais pas évidente à la première lecture. Elle fait l'économie de plusieurs lignes de codes...

Bon, ma ligne vide, je ne vois pas trop, une subtilité qui m'échappe...
Je mets quand même résolu car mon but était d'avoir une liste sans erreurs...

[Jipété]

Bonjour,

Super code condensé... J'avoue que je suis obligé d'étudier ta fonction Split, performante mais pas évidente à la première lecture.

le problème, c'est que l'aide n'est absolument pas à jour :
quand je cherche tstrings.delimitedtext ou delimitedtext ça ne trouve rien :

alors que sur le web tout devient lumineux : https://www.freepascal.org/docs-html...mitedtext.html


Et inversement j'ai découvert des options documentées dans l'aide qui ne sont plus accessibles à la complétion, comme par exemple stringgrid.InvalidateGrid ou stringgrid.UpdateSelectionRange !
Le fichier d'aide :


La complétion :


Confirmation par une recherche de InvalidateGrid dans Grids.pas :


Le temps qu'on perd avec ces (mettre ici le gros mot de votre choix)...

[Jlmat]

Bonjour,

le problème, c'est que l'aide n'est absolument pas à jour :
quand je cherche tstrings.delimitedtext ou delimitedtext ça ne trouve rien :
...
alors que sur le web tout devient lumineux : https://www.freepascal.org/docs-html...mitedtext.html

Et inversement j'ai découvert des options documentées dans l'aide qui ne sont plus accessibles à la complétion, comme par exemple stringgrid.InvalidateGrid ou stringgrid.UpdateSelectionRange !
Le fichier d'aide :
...
Le temps qu'on perd avec ces (mettre ici le gros mot de votre choix)...

Oui, c'est sûr, c'est amusant parce j'ai justement utilisé tstrings.delimitedtext qui n'est pas limité à un seul caractère!
Perso, j'utilise souvent le lien suivant : https://smartpascal.github.io/help/assets/

[tourlourou]

(mettre ici le gros mot de votre choix)

Trop de choix tue le choix