Discussion :

[benymypony]

Bonsoir à tous,

J'ai encore une fois besoin de votre aide :

J'ai une ListBox dont les Items ressemblent à ça (Y est un chiffre) : YYYYYYYYY:YYYY
Exactement pareil q'une adresses IP suivi de son port.

Ce que je cherche à faire c'est extraire certains Items dont le port est par exemple :1234 et les placer dans un second ListBox.

Pour le moment je n'ai pas trop d'idées sur comment procéder...
La première chose qui me vient à l'idée serait d’utiliser une expression régulière (comme TPerlRegEx).

Quelqu'un aurait-il une idée ou une piste ?

Merci par avance !

Beny

[ero-sennin]

Salut,

Tu peux rechercher la position des : et prendre la partie qui suit ou qui précède, selon que ce que tu veux récupérer (le port ou l'ip).

Regarde la méthode Pos et Copy

[benymypony]

Salut,

Tu peux rechercher la position des : et prendre la partie qui suit ou qui précède, selon que ce que tu veux récupérer (le port ou l'ip).

Regarde la méthode Pos et Copy

Merci pour l'idée, je ne connaissais pas, je vais regarder de ce côté là.

Je viens d'essayer avec une expression régulière asse simple du type TPrelRegEx.RegEx := '(.{5,50}\:1234)'; et ça fonctionne parfaitement mais le code est assez lourd à répéter...

Je tiens ce topic au courant de mes recherches
Si d'autres ont des idées, n'hésitez pas.

Beny

[mick605]

Salut

En effet, la méthode de ero est la plus efficace, je pense.
Un simple Pos(':1234',Str) te renverra une valeur différente de 0 si le port de ton addresse est 1234 ...

[ShaiLeTroll]

ExtractStrings le fera très bien aussi

Tu peux aussi trouver de nombreuses version de Explode et Split sur le forum

TStringList, DelimitedText, Delimiter peuvent aussi servir !
C'est dingue de chercher dans les expressions régulières et ne pas utiliser ce qui existe depuis D3 !

[Andnotor]

Sinon, une simple comparaison mémoire

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
procedure ExtractPort(aSource, aDest :TStrings; aPort :string = ':1234');
var
  p :PChar;
  i :integer;
begin
  aDest.Clear;
 
  for i := 0 to aSource.Count -1 do
  begin
    p := PChar(aSource[i]);
    inc(p, Length(aSource[i]) -Length(aPort));
 
    if CompareMem(p, PChar(aPort), Length(aPort) *SizeOf(Char)) then
      aDest.Add(aSource[i]);
  end;
end;

[GoustiFruit]

TStringList peut aussi être utilisé pour stocker des keys/values. Voir NameValueSeparator et ValueFromIndex.

[benymypony]

Merci pour vos réponses !

Pour le moment j'utilise une expression régulière :

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
 
  ListString3 := Form1.ListBox1.Items.Text;
  PR3 := TPerlRegEx.Create;
  PR3.Options := PR3.Options + [preCaseLess];
  PR3.Subject := ListString3;
  for Index := 0 to Form5.ListBox2.Items.Count - 1 do
  begin
  try
    PR3.RegEx := '(.{5,20}\:'+Form5.ListBox2.Items.Strings[Index]+')\b';
    PR3.Compile;
    if PR3.Match then
    begin
        CurrentItem := Form5.ListBox2.Items.Strings[Index];
        Form5.ListBox3.Items.Add(PR3.MatchedText);
        while PR3.MatchAgain do Form5.ListBox3.Items.Add(PR3.MatchedText);
          Form5.GroupBox1.Caption := 'Process : ('+IntToStr(Form5.ListBox3.Items.Count)+')';
          Application.ProcessMessages;
      end;
  finally
  end;
  end;

Ça fonctionne très bien mais c'est vrai que je préférerai un méthode plus rapide.
Je vais essayer la procédure ExtractPort de Andnotor

Beny

[GoustiFruit]

Pas testé, mais pourquoi faire compliqué ???

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  i1: integer;
begin
  ListBox1.Items.NameValueSeparator := ':';
  for i1 := 0 to ListBox1.Items.Count - 1 do begin
    if ListBox1.Items.ValueFromIndex[i1] = '1234' then begin
      // Ajouter élément courant à ListBox2
    end;
  end;
end;

[benymypony]

Pas testé, mais pourquoi faire compliqué ???

Code :

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

(...)

Hmmm, pas mal !
Je vais voir si ça vaut le coup de modifier toute ma procédure.

Beny