ubicar archivo, con datos sacados de base de datos

[Giniromero]

Hola,

Tengo una aplicación en delphi 6 con IB7.
Le he añadido un procedimiento que me abre la carpeta en la que tengo, a su vez, una carpeta por usuario.

Cada usuario de la aplicación tiene una ficha, y un número asociado único.

Las carpetas personales de cada usuario tienen la siguiente forma de nombrarse.

si el usuario es el 10368 y su apellido es GARCÍA PÉREZ, sería:

0010368 · GARCIA

ESto es, 7 valores para el nº de usuario, (con ceros a la izq si es necesario), espacio, el puto catalán, espacio, el primer apellido.

Mi problema es el siguiente:

Necesito abrir, en cada ficha, la carpeta concreta de cada usuario, sería coger el nº de usuario, que en la base de datos lo tengo en integer, el problema es que si no pongo el nombre exacto de la carpeta no soy capaz de que me la abra.

¿Habría alguna manera de que se buscase el nº de usuario, esto es, que yo pusiese '*' + numerodeusuario.asstring + '*', como pasa en el "buscar archivos o carpetas" del windows.

EStoy usando el siguiente ShellExecute:

PathAlumni := xpath+ '*' + FrmDModule.TablaNUMUSUARIO.AsString + '*';


shellexecute(self.Handle, PChar('open'), PChar('explorer.exe'), PChar(PathAlumni), nil, SW_SHOWNORMAL);

Muchas Gracias,

Virginia Romero

[epuigdef]

Buenas!


Puedes pasar a String el número de usuario y añadir los ceros por la izquierda hasta que la cadena tenga 7 dígitos?

Código Delphi [-]
  var temp : String
 
 
 
  temp := IntToStr(codigo);
  while length(temp) < 7 do temp = '0'+temp;

y te queda en temp el código del usuario correctamente formateado

Un saludo

Edu

[Casimiro Notevi]

Empezado por Giniromero

0010368 · GARCIA
ESto es, 7 valores para el nº de usuario, (con ceros a la izq si es necesario), espacio, el puto catalán, espacio, el primer apellido.
Virginia Romero

Qué quiéres decir con eso?

[Giniromero]

Hola,

Puedes pasar a String el número de usuario y añadir los ceros por la izquierda hasta que la cadena tenga 7 dígitos?

Si, lo he pensado, pero que pasa con la parte del apellido, es el primer apellido, nada más, y el campo en el que tengo los apellidos, tengo los dos apellidos guardados, por lo que no tengo manera de identificar ese primer apellido, y como tengo que poner el nombre exacto de la carpeta para que me la abra...

ESto es, 7 valores para el nº de usuario, (con ceros a la izq si es necesario), espacio, el punto catalán, espacio, el primer apellido.

esto es: si por ejemplo el nº de usuario es el 3, y el primer apellido es DE LAS HERAS, sería,
0000003 · HERAS.

Por cierto, no era el puto catalán, sino el punto catalán, esto es el punto del 3, ha sido un error tipográfico , glup, lo siento.


Virginia Romero

[epuigdef]

Buenas!


Pues como no añadas un campo en la tabla de usuarios en el que dejes el primer apellido separado del resto y lo pilles de ahí...

No sé, no sé...

Edu

[Giniromero]

Buenas,

¿se te ocurre alguna otra forma de abrir una carpeta?¿algún otro objeto que no sea el shellexecute y que me pueda servir para hacer esto?

¿Algún sitio donde poder documentarme mejor del ShellExecute?

Muchas Gracias

Virginia

[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