ubicar archivo, con datos sacados de base de datos

[epuigdef]

Vale, prueba esto:

Código Delphi [-]
procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr = faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

Este procedimiento te devuelve una lista de todos los subdirectorios que contiene uno dado; por ejemplo, se puede llamar de la siguiente forma:

Código Delphi [-]
 
var datos : TStringList;
begin
datos := TStringList.create;
ListFileDir('c:\windows\', datos);
 
...
 
end;

y en datos tendrás una lista de todos los subdirectorios de c:\windows.

A partir de ahí, si tienes en código del usuario ya formateado a 7 caracteres (y es único) puedes encontrar el nombre completo si buscar el elemento de la lista 'datos' que empieza por éste código.

Te sirve?

Edu

[Giniromero]

Buenas,

si, en principio esto sería perfecto, lo único, es que no sé como se busca en un tipo de dato tStringList.

Gracias,

Virginia

[roman]

Déjame ver si entiendo.

Por un lado tienes carpetas nombradas así:

0004896 . PEREZ
0023548 . GARZA
0000563 . ALVAREZ

etc.

pero en tu base de datos tienes

+---------+----------------+
| 0004896 | PEREZ MEJIA    |
+---------+----------------+
| 0023548 | GARZA ESTRADA  |
+---------+----------------+
| 0000563 | ALVAREZ SIERRA |
+---------+----------------+

En un momento dado tú tienes seleccionado un usuario, digamos GARZA ESTRADA y quieres abrir su carpeta.

Si formas el nombre de la carpeta con todo el campo de los apellidos te quedaría así:

0023548 . GARZA ESTRADA

Si repasas los folders de la carpeta inicial- por ejemplo usando un ciclo similar al de epuigdef - encontrarás uno de nombre

0023548 . GARZA

Nunca coincidirá pero sí puede suponerse que el nombre del folder es el comienzo del nombre que formas con el número y los apellidos, y esto es algo que puedes probar fácilmente:

Código Delphi [-]
if Pos(Folder, Format('%0.7d . %s', [NoUsuario, Apellidos])) <> 0 then
  ShowMessage('Folder encontrado');

El Format de arriba te forma el nombre a probar: '0023548 . GARZA ESTRADA' y Folder sería el nombre del folder contra el que pruebas.

En resumen, podrías proceder asi:

Caundo requieres abrir el folder de un usuario dado, primero formas el nombre de la carpeta con ambos apellidos:

Mask := Format('%0.7d . %s', [NoUsuario, Apellidos]);

Recorres los folders de la carpeta inicial y en cada paso comparas el nombre del folder con el de Mask usando Pos. Si para alguno se cumple la condición, sales del ciclo y devuelves el nombre del folder encontrado.

// Saludos

[Casimiro Noteví]

Jamás había oido/leido nada sobre el punto catalán, es la primera vez que veo esa expresión . Algunos editores de textos usan ese punto para indicar que hay un espacio, pero es lo único que he visto sobre eso.

¿Para qué y cómo se usa en la "vida real"?, ¿tiene algún significado especial?

[epuigdef]

El punto catalán se utiliza en una construcción catalana que se llama "l germinada". Palabras como col·legi (colegio) la llevan. Suena com una l más larga, pero sin sonar a ll.


Un saludo

Edu

[epuigdef]

Buenas!


Para recorrer los elementos de un TStringList puedes utilizarel siguiente código:

Código Delphi [-]
var datos : TStringList;
     i : Integer;
     elemento : String;
begin
   for i := 0 to datos.count-1 do
   begin
      elemento := datos[i];
       ......
   end;

Edu

[Giniromero]

Hola a todos,

El código que tengo ahora mismo al respecto es el siguiente:

Código Delphi [-]
procedure TFrmFxMain.SpeedButton20Click(Sender: TObject);
var xpath: tStringList;
    subcarpetas : TStringList;
    cFile : String;
    str : string;
    i: integer;

begin

  TRY

    xpath := TStringList.create;
    cFile := 'c:\_Fx\FileLocation.ini';


    If Fileexists( cFile ) Then Begin

      xpath.LoadFromFile(cFile);

      TrY

         IF (xpath[1] <> '') THEN BEGIN

           try

             subcarpetas:= TStringList.Create;
             ListFileDir(xpath[1], subcarpetas);

             iF Pos(FrmDModule.TbAlumnosNUMALU.AsString, subcarpetas[i])<>0 tHEN bEGIN

                shellexecute(self.Handle, PChar('open'), PChar('explorer.exe'), PChar(subcarpetas[i]), nil, SW_SHOWNORMAL);

             eND
             eLSE bEGIN

                 Showmessage('No hay carpeta para este alumno');

             eND;

           finally
             subcarpetas.Free;
           end;

        END;

      ExcepT
        on E: Exception do begin
         str := 'Error al leer Archivo "FileLocation.ini" para caja. Faltan datos o vacio. Mensaje de error : ' + E.Message;
         Application.MessageBox(PChar(str), 'Atención', MB_OK);
         Application.Terminate;
        end;
      EnD;

    End
    Else Begin

      showmessage ('No se encuentra el archivo "FileLocation.ini" en la ruta especificada');

    End;


  FINALLY

    xpath.Free;

  END;


end;

procedure ListFileDir(Path: string; FileList: TStrings);
var SR: TSearchRec;
begin

    if (FindFirst(Path + '*.*', faAnyFile, SR) = 0) then begin
      repeat
       if (SR.Attr = faDirectory) then begin
           FileList.Add(SR.Name);
       end;
     until (FindNext(SR) <> 0);
      FindClose(SR);
   end;

end;

Si pongo "FindClose(SR);" como comentado, me encuentro que el error me salta en:

Código Delphi [-]
 procedure ListFileDir(Path: string; FileList: TStrings);

y me dice que:

[Error] Fxmain.pas(467): Unsatisfied forward or external declaration: 'TFrmFxMain.ListFileDir'

si no pongo el comentario, el error salta directamente en la línea en la que está el findClose, y me dice al compilar que:

[Error] Fxmain.pas(3414): Incompatible types: 'Cardinal' and 'TSearchRec'

Alguien puede echarle un vistazo al código, por que yo no veo donde puede estar el problema.

Gracias,

Virginia

[Casimiro Noteví]

Empezado por epuigdef

El punto catalán se utiliza en una construcción catalana que se llama "l germinada". Palabras como col·legi (colegio) la llevan. Suena com una l más larga, pero sin sonar a ll.
Un saludo
Edu

Todos los días se aprende algo.

Muchas gracias.

[Giniromero]

Hola a todos,

con todo lo que me habeis mandado estoy montando lo que necesito, muchas gracias lo primero pues me está siendo de mucha ayuda, el problema es que tengo problemas al compilar el programa, pues me dice que:

[Error] Fxmain.pas(3404): Incompatible types: 'Cardinal' and 'TSearchRec'

En el código:

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin
      repeat
       if (SR.Attr = faDirectory) then begin
           FileList.Add(SR.Name);
       end;
      until FindNext(SR) <> 0;
      FindClose(SR);
   end;
end;

y se para marcando:

FindClose(SR);

Sin embargo en el "Topic Search" de delphi, hay un ejemplo que tambien pone aquí este tipo de dato, y no un cardinal.
Muchas gracias por la ayuda.

virginia Romero