Comment analyser le nom du fichier de base à l'aide de Script-fu

Contexte

Gimp 2.6.6 Windows Vista SP2 P>

Objectif H2>

Extrait du nom de fichier d'origine sans son extension. P>

Symptôme H2>

Erreur: Eval: variable non liée: re-matppe-nth em> p> blockQuote>

suggestion possible h2>

menu GIMP " filtres strong>"> " script-fu strong>"> " console forte > " p>

dans la zone d'entrée, collez la définition de fonction script-fu suivante Ensuite, appuyez sur la touche ENTER FORT>: P>

"screen"

Pas vraiment une solution correcte:

> (nom de fichier-basename "this.is.a.long.filename.jpg")

"Ceci"

Une meilleure implémentation: xxx

Ma version se divise le nom de fichier (F) dans les pièces délimitées par séparateur ("." Dans ce cas); gouttes la dernière partie; et re-combine-les avec séparateur à nouveau xxx

donc xxx

et xxx

Pour ceux qui recherchent une vraie fonctionnalité de string-remplacer, voici une fonction que j'ai écrite pour une utilisation dans Script Fu

(define (string-replace strIn strReplace strReplaceWith)
    (let*
        (
            (curIndex 0)
            (replaceLen (string-length strReplace))
            (replaceWithLen (string-length strReplaceWith))
            (inLen (string-length strIn))
            (result strIn)
        )
        ;loop through the main string searching for the substring
        (while (<= (+ curIndex replaceLen) inLen)
            ;check to see if the substring is a match
            (if (substring-equal? strReplace result curIndex (+ curIndex replaceLen))
                (begin
                    ;create the result string
                    (set! result (string-append (substring result 0 curIndex) strReplaceWith (substring result (+ curIndex replaceLen) inLen)))
                    ;now set the current index to the end of the replacement. it will get incremented below so take 1 away so we don't miss anything
                    (set! curIndex (-(+ curIndex replaceWithLen) 1))
                    ;set new length for inLen so we can accurately grab what we need
                    (set! inLen (string-length result))
                )
            )
            (set! curIndex (+ curIndex 1))
        )
       (string-append result "")
    )
)

Merci beaucoup Philcolbourn pour avoir souligné une façon "simple" de le faire. Malheureusement, la fonction Butlast est obsolète: http://www.gimp.org/docs/script-fu-update .html # Imprété

Voici la version de Philcolbourn avec le remplacement suggéré: xxx

comme dans gimp 2.8 "gimp-image-uri" doit être utilisé pour obtenir le nom de fichier de fichier JPG, mais gimp-image-get-urive offre le chemin complet, j'ai utilisé cette fonction pour extraire le seul Nom de la photo (sans le suffixe ".jpg"):

(let * (
(URINAME (voiture (gimp-image-get-uri)))
(Nom de base (voiture (revers (STRAFATUP (voiture (CLASHUP URINAME ».")) "/"))))
...
)
...
)