Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Copy con Pos (https://www.clubdelphi.com/foros/showthread.php?t=74871)

Paulao 14-07-2011 21:55:58

Copy con Pos
 
Mira, tengo un archivo con este formato:
Cita:

19991107-111-0500-NOT.tif
19991107-111-0560-CLASS.tif
20002501-5897-0001-AGRI.tif
20002201-0002-A200-NOT.tif
Bueno, necesito criar una carpeta para cada Archivo, pero el nombre de la carpeta tine que ser la String que estas despues del segundo "-"(Hifen, en español?). Que pasa que un copy simples no es posible, pues como he mustrado, esta string es variable, podendo tener vários tamaños, pero una cosa no cambia, lo posicion despues del segundo "-" y antes del tercer. Esto sera siempre. Como hogo entonces?

ecfisa 14-07-2011 22:25:15

Hola Paulao.

Si no te entiendo mal, esta función te va a devolver la cadena que buscas:
Código Delphi [-]
function NombreCarpeta(NomArch: string): string;
var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    TS.Delimiter:= '-';
    TS.DelimitedText:= NomArch;
    Result:= TS[2];
  finally
    TS.Free;
  end;
end;

Saludos.


La franja horaria es GMT +2. Ahora son las 10:59:08.

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