remplacer dernier morceau d'une adresse IPRésolu

Question

Bonjour,

Pour des besoins professionnels, je dois faire un petit soft.
Dans ce soft je dois entrer l'IP et le gateway.
Chez nous, le gateway est toujours l'IP se terminant par 200.
Petit exemple : si IP = 192.168.0.1 alors le gateway sera 192.168.0.200

A l'aide d'une petite fonction (dont la base a &#233;t&#233; trouv&#233;e sur ce site), j'arrive &#224; "mettre &#224; jour en temps" r&#233;el le gateway par rapport &#224; l'IP (quand j'entre un chiffre dans l'edit box de lIP, il entre automatiquement dans l'edit du gateway).
Comme edit box, j'utilise une TJvIPAdress du composant Jedi.

Mon probl&#232;me vient de la derni&#232;re portion qui doit &#234;tre remplac&#233;e par le 200.
J'ai bien des id&#233;es th&#233;oriques mais la pratique ne marche pas du tout.

Quelqu'un pourrait-il m'aider ?

Merci beaucoup,
                            Celt

japee · Accepted Answer

Heu, tu peux enlever PosPoint, c'est un r&#233;sidu d'essai, donc :



function IP2Gateway(IP: String): String;

var i: Integer;

begin

  Result := '';

  for i := Length(IP) downto 1 do

    if Ip[i] = '.' then

    begin

      Delete(IP, i +1, 3);

      Break;

    end;

  Result := IP + '200';

end;




Bonne prog'

japee · Answer

Si j'ai bien compris, c'est un travail classique sur les strings.



Vite fait :



function IP2Gateway(IP: String): String;

var i, PosPoint: Integer;

begin

  Result := '';

  for i := Length(IP) downto 1 do

    if Ip[i] = '.' then

    begin

      Delete(IP, i +1, 3);

      Break;

    end;

  Result := IP + '200';

end;



Bonne prog'

cs_ManChesTer · Answer

En plus rapide : Function IP2Gateway(IP: String): String; var P:Pchar; Begin Result:=''; P:=StrRScan(Pchar(Ip),'.'); If P<>Nil then begin Delete(ip,Length(ip)-StrLen(p),StrLen(p)); Result:=ip+'.200'; end; end; Si probleme le resultat seras vide (''); If IP2Gateway('127.0.0.1')<>'' then Showmessage('Le gateway est '+IP2Gateway('127.0.0.1') else Showmessage('Erreur lors de la conversion du getaway, veullez introduitre une ip valide'); Bon Coding .... ManChesTer.

japee · Answer

Salut, ManChesTer.



Ca me rappelle quelque chose... (test if then else vs case of). 



Dans une boucle de 1 &#224; 100000,  ma m&#233;thode semble plus rapide que la tienne de 10% au moins. 

Mais je n'ai pas mesur&#233; finement... 



Bonne prog' 



japee

celtic00 · Answer

Merci beaucoup.
Ca marche nickel.

Celt

cs_ManChesTer · Answer

Yop Japee ;o))

Ca doit d&#233;pendre de la version et des options de compil, moi sur ma b&#233;cane sous d7 pour 10.000 execution j'ai (plus le chiffe est bas +c rapide):

896 pour ta routine
544 pour ma routine
421 pour la routine ci dessous (une obtimisation de la 1ere qui vire le strlength (inutile))

Function IP2Gateway(IP: String): String;
var P:Pchar;
Begin
 Result:='';
 P:=StrRScan(Pchar(Ip),'.');
 If P=Nil then exit;
 Delete(ip,Length(ip)-([mailto:p-@ip),4 p-@ip),4]);
 Result:=ip+'.200';
end;

Bon Coding ....

ManChesTer.

cs_ManChesTer · Answer

Arf vi,
Note que ton code est plus rapide pour un .1 que pour un .123
et pour contenter tous le monde mes test on &#233;t&#233; faits avec 127.0.0.99

Bon Coding ....

ManChesTer.

Remplacer dernier morceau d'une adresse IP

7 réponses

Votre réponse

Discussions similaires