Como hacer una mascara especifica

[Paulao]

Mira, tengo un problema que no se resuelver, asi. Un archivo de busca, necesita que yo tenga una mascara, que puede ser: *.tif o formato_qualquier.tif. Bueno, hasta aí todo bien. Que pasa es que ahora, yo tengo que buscar archivo del tipo: cade.tif,agri.tif,econ.tif,leil.tif,class.tif y not.tif. Pero yo no puedo poner un radio button para cada extension.tif, esto es mui malo y un trabajo sucio. Tengo dos RadioButton, un para class y otro todos. Este todo no puede ser *.tif, como estava, pues el trae los class.tif. Necesito hacer una mascara que pueda traer todos, exceto los class.tif. Puede ser que todos los demas sea not.tif(esto es que debe hacer), asi:
IF CADE.TIF OR AGRI.TIF THEN NOT.TIF. Claro que desta forma no funciona, pero es lo que deseo hacer. No se como hacer esto, o sea, yo pasar una mascara, para todo archivo que el encuentrar pueda hacer el proceso, exceto para CLASS.tf. Este tiene un tratamiento diferenciado que ya resuelvi. No se si estas claro para usteds.

[*Caro*]

Hola Paulao, creo que estas utilizando FindFirst para recorrer tus archivos, si es así solo te queda buscarlo tu mismo, puede ser utilizando un Pos para buscar los archivos que tengan la palabra CLASS.

Código Delphi [-]
   if FindFirst(Path + '*.*', faAnyFile, sr) = 0 Then
     repeat
       if Pos('CLASS', sr.Name)=0 then
        begin 
         //si no tiene Class
        end;

Saluditos

[Paulao]

No, asi no funciona, pues la busca tiene que tener la mascara primeiro.

[ecfisa]

Hola Paulao.

Si estas usando las funciones FindFirst y FindNext, no veo otra forma de hacerlo que como te dice Caro.
Ya que no hay (o al menos no conozco yo) niguna manera de excluir un nombre de archivo de una selección hecha con comodines en el S.O. Windows.

Saludos.

[Paulao]

No, creo que no mi entendieron. Voy a explicar mejor. Necesito de la mascara, para decir al programa que tipo buscar. Esto funciona asi. Un RadioGroup, con tres botones que quiero hacer dos. Un Todos, Noticia y otro Classificado. Voy sacar el boton Noticia y si quedará solo Todos y Class. Quando premo el boton Class, el crea la mascara *.-CLASS.tif, entonces el solo va a buscar todo que tiene este formato. Acontece que Todos, son los seguintes: *.-CADE.tif, *.-LEIL.tif,*.-ECON.tif,*.-AGRI.tif y *.-NOT.tif. Quando yo premer el boton varios el busque qulquier cosa que no sea *.-CLASS.tif. O sea, una forma de yo hacer *.*, pero que exclua los CLASS. Si yo consigo hacer una exclusion de CLASS en la forma *.*, yo resuelvo mi problema, o sea, me lo trae todo que no sea CLASS. Esto yo no consigo hacer.

[ecfisa]

Hola Paulao.

O sea, una forma de yo hacer *.*, pero que exclua los CLASS.

Creo entender con claridad lo que estás buscando. El problema es que no se puede utilizar un filtrado con exclusión como intentas.

La limitante no es de Delphi sino del propio sistema operativo. Por ejemplo, si hacemos desde el command prompt:

C:\>DIR *.*-CLASS.TIF

Recibimos el mensaje "No se encuentra el archivo" aunque existan archivos en el directorio raíz.


Basados en el sistema operativo, FindFirst y FindNext actúan del mismo modo:

Código Delphi [-]
var
  SR: TSearchRec;
begin
  case FindFirst('*.*-CLASS.TIF', $FF, SR) of
    0: ShowMessage('Todo OK');
    1: ShowMessage('Función incorrecta');
    2: ShowMessage('No se encuentra el archivo');
    3: ShowMessage('No se encuentra la ruta');
    4: ShowMessage('Demasiados archivos abiertos');
    //...
  end;
end;

En este caso también obtenemos el mensaje: "No se encuentra el archivo"

Como te sugirió Caro, la exclusion del archivo debe hacerce con posterioridad al filtrado. Al menos yo no veo manera de hacerlo desde la máscara en sí.

Si estas utilizando, o tenés en mente otra forma de realizarlo, por favor ponenos el código para poder brindarte una mejor ayuda.

Saludos.