FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
mascaras multiples con findfirst
hola, estoy tratando de seleccionar solo un tipo de archivos con findfirst pero no me funciona, este es el codigo, que hago mal?
Código:
procedure TForm3.FoldersData(Genero,Ruta:String); var R,ima : TSearchRec; Busq,imagen, Dirs: Integer; rimagen,mask : string; noencontre : Boolean; begin WriteLn( F, Genero ); Dirs := 0; noencontre := True; Busq := FindFirst(Ruta + '*.*', FaAnyfile, R); rimagen := ''; while Busq = 0 do begin if (R.Attr and faDirectory = faDirectory ) then begin if (R.Name <> '.') and (R.Name <> '..') then begin imagen := FindFirst(Ruta+R.Name+'\'+'*.*', FaAnyfile,ima); while (imagen = 0)and noencontre=True do begin if ( ima.Attr and faArchive = faArchive ) and ( ima.Attr and faDirectory <> faDirectory ) then begin noencontre := False; rimagen := Ruta+R.Name+'\'+ima.Name; end; imagen := FindNext(ima); end; FindClose(ima); noencontre := True; Inc(Dirs); WriteLn( F,chr(9)+R.Name+'|'+Ruta+R.Name+'\|'+rimagen); MusicaData(Genero,Ruta+R.Name+'\'); rimagen := ''; end; end ; Busq := FindNext(R); end; |
#2
|
||||
|
||||
Hola pato89xd.
Cita:
Suponiendo que busques archivos .WAV seria:
Pero sería más flexible pasar la extensión como un argumento de la función:
No probé el código e ignoro si la intención del argumento Genero era ese, en ese caso sería Ruta + Genero. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
gracias, pero mas bien quiero por ejemplo filtrar archivos de imagenes con cualquier extencion de imagenes, trate de ponerle al path algo asi
Path +'*.JPEG; *.JPG; *.BMP; *.GIF' pero no me funciona, que puedo hacer? :s |
#4
|
||||
|
||||
Cita:
Cita:
Para llamarlo así: Aviso: Es sólo un ejemplo de como implementar la busqueda con una máscara de multiples extensiones. Está probado y funciona; pero de ninguna manera intenta reemplazar a tu código que como ya te dije, no he probado. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 19-04-2011 a las 04:18:39. |
#5
|
|||
|
|||
muchas gracias =D
muchisimas gracias, funciono a la perfeccion, ahora, abusando de tu amabilidad, como le haria para quitarle la extension a un archivo?, es decir si tengo un 'imagen.jpeg' quisiera obtener solo 'imagen'
|
#6
|
||||
|
||||
Hola.
Con la función ChangeFileExt. Ejemplo:
Pero por favor la próxima vez para una nueva pregunta abrí un nuevo hilo, gracias. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 19-04-2011 a las 05:08:49. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
como generar ventas multiples (seleccionar multiples items) | userdelphi | Varios | 4 | 30-12-2010 02:52:21 |
FindFirst | waltrapa | API de Windows | 4 | 07-02-2007 14:09:45 |
Findfirst funciona cuando quiere | rfernandez | API de Windows | 3 | 17-03-2005 11:35:43 |
Buscar archivos con FindFirst | eulogi_SCG | Varios | 2 | 28-09-2004 15:27:38 |
FindFirst, FindNext, FindClose | DJ VMan | Varios | 4 | 17-11-2003 01:36:53 |
|