Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Obtener el último trozo de una ip (https://www.clubdelphi.com/foros/showthread.php?t=12906)

DarkByte 30-07-2004 11:51:19

Obtener el último trozo de una ip
 
A ver si consigo explicar mi duda... me gustaría obtener el último trozo de una ip, es decir, dado el string:

'82.125.35.106'

sacar el '106' y guardarlo, por ejemplo, en una variable.

Gracias

Javi2 30-07-2004 12:44:28

A simple vista se me ocurre que hagas un bucle que busque la posicion del punto y borres desde el inicio hasta el punto, guardando el resultado sobre la misma variable que contiene la cadena inicial de manera que cuando ya no queden mas puntos la cadena contendra la cadena que deseas

DarkByte 30-07-2004 12:58:46

El caso es cómo decirle que tiene que borrar hasta el tercer punto... he pensado en Pos, pero no sé utilizarlo bien aún.

Nuria 30-07-2004 13:05:09

Hola Darky!

Muy fácil escribes pos, te posicionas encima y pulsas la tecla F1 :p

Sin rencor! ;)

Javi2 30-07-2004 13:20:34

Bueno DarkByte te voy a echar una manita:

cadena := '82.125.35.106';
for i:=1 to 3 do begin
posicion := Pos('.', cadena)
cadena := Copy(cadena, posicion + 1, Length(cadena))
end

con esto, mas o menos , te debe quedar en cadena lo que tu quieres

Suerte

DarkByte 30-07-2004 14:57:37

Código Delphi [-]
cadena := '82.125.35.106';
for i:=1 to 3 do begin
  posicion := Pos('.', cadena);
  cadena := Copy(cadena, posicion + 1, Length(cadena));
end;
¡Vualá!, queda genial, nunca se me habría ocurrido hacerlo con for...do. Muchísimas gracias Javi2, aquí estoy para lo que necesites ;)

__marcsc 30-07-2004 16:05:17

Un poco más fácil utilizando la función LastDelimiter

Código Delphi [-]
 
Cadena:= '82.125.35.106';
Cadena:= Copy(Cadena,LastDelimiter('.',Cadena)+1,Length(Cadena));

Saludos! ;)

DarkByte 30-07-2004 16:08:02

La verdad es que sí. Muchísimas gracias Marcs!


La franja horaria es GMT +2. Ahora son las 13:41:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi