Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-07-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
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
__________________
:)
Responder Con Cita
  #2  
Antiguo 30-07-2004
Javi2 Javi2 is offline
Miembro
 
Registrado: jun 2004
Posts: 152
Poder: 20
Javi2 Va por buen camino
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
Responder Con Cita
  #3  
Antiguo 30-07-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
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.
Responder Con Cita
  #4  
Antiguo 30-07-2004
Avatar de Nuria
Nuria Nuria is offline
Miembro
 
Registrado: may 2003
Posts: 531
Poder: 22
Nuria Va por buen camino
Hola Darky!

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

Sin rencor!
Responder Con Cita
  #5  
Antiguo 30-07-2004
Javi2 Javi2 is offline
Miembro
 
Registrado: jun 2004
Posts: 152
Poder: 20
Javi2 Va por buen camino
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
Responder Con Cita
  #6  
Antiguo 30-07-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
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
__________________
:)
Responder Con Cita
  #7  
Antiguo 30-07-2004
Avatar de __marcsc
__marcsc __marcsc is offline
Miembro
 
Registrado: may 2003
Ubicación: Girona
Posts: 577
Poder: 22
__marcsc Va por buen camino
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!

Última edición por __marcsc fecha: 30-07-2004 a las 16:07:19.
Responder Con Cita
  #8  
Antiguo 30-07-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
La verdad es que sí. Muchísimas gracias Marcs!
__________________
:)
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:16:14.


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
Copyright 1996-2007 Club Delphi