Cortar path de diferente longitud

[ecfisa]

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

[Missael]

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.

[ecfisa]

Hola

Empezado por Missael

1.- la selecciona con un botón que ya programe, ese path lo guarda en una variable

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 ? ¿...?

3.- la ubicación de la carpeta depende de donde el usuario diga que se va a descargar. ahi se va a guardar.

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

Saludos

[Missael]

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;

[mRoman]

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.

[ecfisa]

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.

[Missael]

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.

[[movorack]]

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

[Missael]

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.

[Casimiro Noteví]

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.

[Missael]

Empezado por Casimiro Notevi

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.

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.

[[movorack]]

¡Buscas la palabra!

The ansipos function looks for a substring Needle in a string HayStack, returning the position in the string of the first occurence.

All Ansi commands support multi-byte and accented characters.

If the string is not found, 0 is returned.

The search is case sensitive.

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

[Missael]

Empezado por movorack

¡Buscas la palabra!



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

Lo pruebo y te informo movorack, muchas gracias

[Missael]

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?