Ir al contenido


Foto

¿Cómo eliminar parte de una cadena de caracteres?


  • Por favor identifícate para responder
3 respuestas en este tema

#1 Fleon

Fleon

    Advanced Member

  • Miembros
  • PipPipPip
  • 172 mensajes
  • LocationRepública Dominicana

Escrito 08 julio 2009 - 05:42

Como dice el tí­tulo, ¿cómo no incluyo parte de una cadena de caracteres?, por ejemplo, si tengo una ruta a un archivo ¿cómo presento sólo el nombre del archivo y no la ruta completa?:



delphi
  1. Label1.Caption := 'C:\Sitio\Archivo.txt';



A



delphi
  1. Label1.Caption := 'Archivo.txt';



Fleon xD
  • 0

#2 Héctor Randolph

Héctor Randolph

    501st Legion

  • Moderador
  • PipPipPip
  • 664 mensajes
  • LocationMéxico

Escrito 08 julio 2009 - 06:00

Prueba con la función ExtractFileName que se encuentra en la unidad SysUtils

Un ejemplo de uso



delphi
  1. ShowMessage(ExtractFileName('C:\Archivos de programa\MiDocumento.txt'));



  • 0

#3 eduarcol

eduarcol

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.483 mensajes
  • LocationVenezuela

Escrito 08 julio 2009 - 06:03

Todo depende, lo quieres hacer de la forma facil o la forma dificil



delphi
  1. var
  2.   cArchivo, cResulta: String;
  3. begin
  4.   //
  5.   cArchivo := 'C:\Sitio\Archivo.txt';
  6.   cResulta := Copy(cArchivo, Length(ExtractFileDir(cArchivo)) + 2, Length(cArchivo) - Length(ExtractFileDir(cArchivo)) + 1);
  7.   ShowMessage(cResulta);
  8.  
  9.   cResulta := ExtractFileName(cArchivo);
  10.   ShowMessage(cResulta);
  11. end;



;)
  • 0

#4 Fleon

Fleon

    Advanced Member

  • Miembros
  • PipPipPip
  • 172 mensajes
  • LocationRepública Dominicana

Escrito 08 julio 2009 - 06:12

Prueba con la función ExtractFileName que se encuentra en la unidad SysUtils

Un ejemplo de uso



delphi
  1. ShowMessage(ExtractFileName('C:\Archivos de programa\MiDocumento.txt'));



Muchas gracias Héctor me funcionó muy bien, y también probé el tuyo eduarcol ; (y).

Fleon xD
  • 0