Bildfilter


Wenn alle Bilder im aktuellen Computerverzeichnis bearbeitet werden sollen, werden möglicherweise auch nicht zur Bearbeitung geeignet Bilder, z.B. RAW-Dateien geladen.
Der Bildfilter sorgt dafür, dass nur erwünschte Bildformate bearbeitet werden.

VBScript

  1. Option Explicit
  2. Dim ListeBilder,n
  3. const Bildfilter = ".JPG.JPEG.JP2.PNG.TIF.BMP"
  4.  
  5. Dim fso
  6. Set fso = CreateObject("Scripting.FileSystemObject")
  7.  
  8. call Bearbeitung
  9. '------------------------------------------------------------------------
  10. Sub Bearbeitung
  11. 'Bearbeitung der gefilterten Bilder im aktuellen Computerverzeichnis
  12.  
  13. ListeBilder = split(FF_GetSelection(0), vbNewLine)
  14. for n = 0 to ubound(ListeBilder)
  15. if instr(Bildfilter,"." & ucase(fso.GetExtensionName(ListeBilder(n)))) > 0 then
  16. '### gefiltertes Bild laden mit FF_LoadImage ListeBilder(n)
  17. '### Bild bearbeiten - wie auch immer
  18. '### bearbeitetes Bild speichern mit FF_SaveImage Bildname,Qualitaet
  19. else
  20. msgbox ListeBilder(n),vbExclamation,"Bild entspricht nicht dem Filter!" '### kann natürlich entfallen
  21. end if
  22. next
  23. End Sub
  24. '------------------------------------------------------------------------
  25. Set fso = Nothing
  26. \\ Um das Format einer Bilddatei zu bestimmen, kann alternativ ab FixFoto-Version 3.10 der Befehl [[http://www.fixfoto.info/onlinehilfe/HH_FF_IdentifyImage.html|FF_IdentifyImage]] verwendet werden.\\ Dazu ersetzt man die Zeile\\
  27. if instr(Bildfilter,"." & ucase(fso.GetExtensionName(ListeBilder(n)))) > 0 then
  28. durch\\
  29. if FF_IdentifyImage(ListeBilder(n)) > 0 and FF_IdentifyImage(ListeBilder(n)) < 7 then
  30. Die Konstante //Bildfilter, Dim fso// und //Set fso// sind dann natürlich überflüssig.