1 2015-04-08 20:05

Тема: Регулярные выражения Script FU

(define (get-file-number orig-name)
 (let* ((buffer (vector "" "" "")))
  (if (re-match "(([0-9])[.][^.]+)" orig-name buffer) ;
   (- (char->integer (string-ref (substring orig-name (car (vector-ref buffer 2)) (+ 1 (car (vector-ref buffer 2)))) 0)) 48)
  )
 )
)