Cortar path de diferente longitud
 

Buenas Tardes, eh buscado en los foros, pero ninguno tiene una idea concreta de lo que necesito.

Tengo un path, donde este puede variar, depende de la dirección donde el usuario desee guardar una carpeta, dicha carpeta es de donde quiero comenzar a trabajar, para eso quiero cortar todo lo que este atrás del nombre de la carpeta, como puedo hacer eso

Por ejemplo
path := 'C:\documentos\trabajos\tareas\...'
'C:\exposicion\tareas\...'

Trabajar a partir de tareas, el resto del path quitarlo, el restante guardarlo en una variable, espero puedan ayudarme.

Saludos cordiales.

Bien, pero el ejemplo confunde, ¿"exposicion" de dónde ha salido?

Hola Casimiro, es un ejemplo, puede ser un path cualquiera, en este ejemplo puse dos path, para ejemplificar que el tamaño sera diferente segun donde el usuario desee guardar la carpeta, pero todos coinciden, por ejemplo una carpeta llamada 'Tareas' a partir de esa carpeta y todo lo que contenga, es donde comenzare a trabajar, para esto necesito quitar o eliminar todo el path detras de esta carpeta

Porque estaba trabajando con el comando StuffString, pero ese sirve si conoces la longitud del path, y en este caso va a tener varios tamaños. espero me haya explicado.

Hola.

No me termina de quedar claro...

¿ Como selecciona el usuario la ruta a la carpeta ?
¿ El nombre de la carpeta también lo elige el usuario ?
¿ La ubicación de dicha carpeta es independiente del de la aplicación ?


Saludos :)

Gracias por responder

1.- la selecciona con un botón que ya programe, ese path lo guarda en una variable
2.- El nombre de la carpeta ya esta definido
3.- la ubicación de la carpeta depende de donde el usuario diga que se va a descargar. ahi se va a guardar.

Hola.

Según dices, sin importar que path se seleccione siempre habrá un directorio dentro del path llamado "Tareas" (O puede ser otro pero siempre habrá esa constante).

Si es así, debes buscar esa constante y eliminar lo anterior. No entiendo aún cual es el incoveniente

Si, esa es mi duda, como encontrar esa constante? lo intente de varias formas pero no lo eh logrado, soy nuevo en delphi y sigo aprendiendo, y ahorita me atore en esto.

Si pueden apoyarme dándome un ejemplo o con algún método, se los agradecería mucho.

El problema es que yo sigo sin entender exactamente la situación.
Bueno, veo que los demás compañeros tampoco se aclaran, tampoco lo entienden.

¡Buscas la palabra!

http://www.delphibasics.co.uk/RTL.asp?Name=ansipos

Solamente quiero encontrar el nombre de la carpeta que todos los path tendran en comun, ya encontrado, quiero eliminar todo lo que este detras del nombre, y solo dejar lo que este despues de ese nombre de la carpeta.

Lo pruebo y te informo movorack, muchas gracias

Movorack, ya utilice AnsiPos, pero me dice donde comienza, tal vez sea una pregunta un tanto tonta, pero, ¿si quiero que me diga cual es el ultimo carácter de la carpeta, que seria por ejemplo

'Tareas\' seria que me dijera la ubicación de \ , como lo podría hacer?

Hola
Pero... mediante un botón no es posible seleccionar una ruta. Ese botón, ¿ Llama a un TOpenDialog ?, ¿ Maneja el valor de alguna cadena de algún TEdit ? ¿...?


La misma pregunta anterior, ¿ Donde y como indica el usuario el valor de la ruta ?

Saludos :)

Si, cuando da clic en el botón, aparece una pantalla donde escoge el usuario donde guardar su carpeta, utilizo SelectDirectory

Te comparto esa parte de mi código

Código Delphi [-]
procedure TForm2.ChangeClick(Sender: TObject);
begin
  Choose := 'C:\';
    if selectdirectory(Choose, options, 0) then
    begin
      ShowMessage('Directory selected');
      Form2.LLabelDirectory.Caption :=Choose;
    end
    else
    begin
      ShowMessage('Canceled action');
    end;
end;

Con lo que te dijo Movarack (Ansipos) lo puedes solucionar:

Código Delphi [-]
var
  position: Integer;
  cadena_path : String;
begin
  cadena_path:='C:\carperta\subcarpeta1\subcarpeta2\tareas\';
  position := ansipos('tareas', cadena_path);
  delete(cadena_path,1,position);
  Showmessage(cadena_path);
end;

No tengo delphi a la mano para probar el código, pero algo asi deberias aplicar...eso pudiera solucionar tu problema.

Saludos.

Hola.

Ahora te entiendo. Una opción es que almacenes la ruta a la carpeta, de modo que al salir del form quede guardado el valor y al entrar se recupere.

Un ejemplo:

Código Delphi [-]
...
implementation

uses FileCtrl, IniFiles;

var
  CurrentPath: string;
  options : TSelectDirOpts = [sdAllowCreate, sdPerformCreate, sdPrompt]; // (?)

// Leer la ruta previa (si existe)
procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'prg.ini');
  try
    CurrentPath := ini.ReadString(Self.Name, 'LaCarpeta', 'C:\');
  finally
    ini.Free;
  end;
end;


// Elegir ruta
procedure TForm1.btnChangeDirClick(Sender: TObject);
begin
    if FileCtrl.SelectDirectory(CurrentPath, options, 0) then
    begin
      ShowMessage('Directory selected');
      //...
    end
    else
    begin
      ShowMessage('Canceled action');
      //...
    end;
end;

// Guardar nueva ruta (si se cambió)
procedure TForm1.FormDestroy(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'prg.ini');
  try
    ini.WriteString(Self.Name, 'LaCarpeta', CurrentPath);
  finally
    ini.Free;
  end;
end;

También podes usar el registro de Windows para almacenar la ruta, pero por cuestiones de permisos este modo es mas fiable.

Saludos :)

Pd: Si te sirviera el código de ejemplo avísame y te lo adjunto.

Gracias a todos por sus respuestas, ya lo pude resolver, y no lo hubiera logrado sin su ayuda, Muchas gracias por su tiempo para explicarme este tema

Excelentes personas.

Y como lo resolviste...explica aqui...comparte porfa !...tal vez habrá alguien mas con las mismas dudas.

Saludos.