find-files смотрит во вложенных директориях, directory-list — только в одной.


find-files принимает два аргумента: фильтрующую функцию (принимает путь, возвращает #t или любое другое истинное значение, если его включать в результат, или #f, если не включать, и начальную директорию. Т.е. так: (find-files фильтрующая-функция директория).

Помните, что \ в Схеме в строках надо удваивать — т.е. "C:\\мояпапка", а не "C:\мояпапка".

Вот пример использования:

(define (path-is-backup? p)

  (regexp-match "[\\/]backup_[0-9]+\\.bak$" p))

(find-files (path-is-backup? p) "D:\\мояпапка")

Здесь функция is-path-backup? возвращает истинное значение, если файл — бэкап. (Вы, наверное, знаете про регулярные выражения. Если нет, то вкратце: функция is-path-backup? проверяет, что путь заканчивается (символ $; иначе было бы «если содержит») на \backup_###.bak или /backup_###.bak, где ### — одно или более (+) число от 0 до 9. Точка в регулярных выражениях имеет спец. значение, поэтому её надо экранировать с помощью \ (а \, в свою очередь, надо удваивать).


directory-list принимает директорию и возвращает список файлов. Сама она не даёт возможности отфильтровать, но можно потом вызвать функцию filter. А ещё она возвращает не полный путь (D:\мояпапка\файл), а только имя файла.
Вот пример использования directory-list, чтобы найти все файлы:

(define (filename-is-backup? f)

  (regexp-match "^backup_[0-9]+\\.bak$" f))

(filter filename-is-backup? (directory-list "D:\\мояпапка"))

Вместо определения filename-is-backup? и path-is-backup? можно использовать (lambda ...):

(filter (lambda (f) (regexp-match "^backup_[0-9]+\\.bak$" f))

        (directory-list "D:\\t"))

Вы, наверное, уже поняли, что у меня тут ошибка и вместо

Цитата

---

(find-files (path-is-backup? p) "D:\\мояпапка")

---

нужно

Цитата

---

(find-files path-is-backup? "D:\\мояпапка")

---

Есть функция file-or-directory-modify-seconds. Но она возвращает время последнего изменения (в секундах, прошедших с 1 января 1970 года по Гринвичу), а не время создания. Как узнать время создания — не знаю. (Если честно, я с Racket’ом на Вы, я больше Каву предпочитаю...)

Чтобы получить месяц, год и прочее, можно преобразовать кол-во секунд в дату с помощью seconds->date, а потом использовать функции для работы с типом date, такие как date-year, date-month и т.д.

(seconds->date секунды) или (seconds->date секунды #f) вернёт время по Гринвичу, (seconds->date секунды #t) — в часовом поясе компьютера.

Вот как узнать год последнего изменения файла:

(date-year

  (seconds->date

    (file-or-directory-modify-seconds "C:\\Work\\aa.html")))

Цитата

---

Вот возник следующий вопрос, как определить дату создания файлов? или лучше дату из имени файла выдрать?

---

Вам нужно сравнивать не дату создания, а время последней модификации файлов.

Цитата

---

И если я получу дату, как их сравнивать? переводить в секунды или есть какие то функции для этого?

---

В данном случае это будут целые числа.

Цитата

---

Конечно на PowerShell эта задача в пару строк решается

---

Это узко специализированный инструмент.

Цитата

---

но я как то делал нечто подобное на NewLisp и там все нужные функции были в наличии, вот и подумал, что в Racket они тоже есть.

---

Конечно же Racket обладает всем необходимым функционалом.

Цитата

---

Очевидно, что любой Тьюринг-полный язык обладает всем необходимым функционалом.

---

Я не понял вашего юмора.

Цитата

---

И если человеку нужны метаданные, доступные только в Windows, — глупо использовать кросплатформенный инструмент. Кросплатформенность не только помогает, но и мешает.

---

А что мешает использовать ffi?