Forum Wiki Galerie Kontakt Wie man Fragen richtig stellt. Tutorial Forum
Zurück   GIMP-Forum 3.0 > Arbeiten mit Gimp > GIMP-Ressourcen > Skripte

Hinweise
Alt 17.03.2008, 15:28   #1
klaus_harrer
Erfahrener Benutzer
 
Benutzerbild von klaus_harrer
 
Registriert seit: 06.01.2003
Beiträge: 364
Standard batch Script testen

Hallo

Es ist zur Zeit schwierig ein Batch Script zu starten da gerade auf Tiny-Fu umgestellt wird.

Hat jemand kurz Zeit ein Script zu testen das überprüft ob "file-glob" ein vector b.z.w eine Liste zurückgibt.

Dieses Script funktioniert von Gimp-2.4.0 bis Gimp-2.4.2.

Ich suche also Leute die Gimp-2.4.3 oder höher nutzen und das unten folgende Script in den Scriptordner von Gimp kopieren und in der Shell folgenden Befehl eingeben.

Code:
gimp -i -b '(batch-test "/path/*.jpg")' -b '(gimp-quit 0)'
Das Script gibt die Dateinamen wieder.

Wenn das Script nicht funktioniert .Bitte in der Script-Console
(Extras->Script-Fu->Script-Fu-Konsole) folgenden Befehl eingeben.

Code:
(batch-test "/path/*.jpg")
Und die Fehlerausgabe posten.


Code:
(define (batch-test pattern)
  ;; gimp -i -b '(batch-test "/path/*.jpg")' -b '(gimp-quit 0)'
        ;;(if(not(equal? (substring path (-(string-length path) 1) (string-length path)) "/"))
        ;;(set! path(string-append path "/")))
(define (main-function-test filename)
           (let* (
                  (image (car (gimp-file-load RUN-NONINTERACTIVE
                                              filename filename)))
                  (drawable (car (gimp-image-get-active-layer image)))
                  (image_name(car(gimp-image-get-name image)))
                  )
          (gimp-message image_name)
             (gimp-image-delete image))
             )
;;end mainfunction
  (let* ((filelist (cadr (file-glob pattern 1)))
         (image_count(-  (car (file-glob pattern 1)) 1))
         )
  ;;if not vector
  (if(vector? filelist)
  (begin
    (while (not (< image_count 0))
           (let*((file_name (vector-ref filelist image_count)))
     (main-function-test file_name)
(gimp-message "Bin ein vector")
           (set! image_count (- image_count 1))))
    )
    (while (not (null? filelist))
           (let*((file_name (car filelist)))
     (main-function-test file_name)
(gimp-message "Bin eine liste")
           (set! filelist (cdr filelist))))

  )
           )
           )
Unter .gimp-2.4/scripts/batch_test.scm speichern.

Dank im voraus.

MfG
Klaus

Geändert von klaus_harrer (18.03.2008 um 13:44 Uhr)
klaus_harrer ist offline   Mit Zitat antworten
 

Lesezeichen

Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.

Gehe zu

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Könnte jemand ein Script testen klaus_harrer Skripte 1 02.01.2007 18:22
Script testen klaus_harrer GIMP-Ressourcen 4 12.08.2006 10:43
Gefunden Photoshop Effekte script MichaJo GIMP-Ressourcen 23 14.12.2005 08:41
Wichtiges Script klaus_harrer GIMP-Ressourcen 5 31.01.2005 17:22


Alle Zeitangaben in WEZ +2. Es ist jetzt 10:53 Uhr.


Powered by vBulletin® Version 3.8.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.