[soft/VBScipt] FB2 файлы в каталоги

VBScript: ExpRename.vbs

Текущая версия:
0.57RC

Цель:
1. Раскладывать fb2 файлы по подкаталогам. Структура \<last-name>_<first-name>\[sequence name-number_]<book-title>.fb2.zip или txt.zip
2. Конечные файлы упаковывать в zip.
3. Все имена конечных файлов должны содержать только латинские символы.

Что может делать:
1. Обрабатывать одиночный fb2 файл
2. Обрабатывать одиночный fb2 файл, упакованный в zip или rar.
3. Обрабатывать каталог, с подкаталогами, содержащими fb2 и/или zip/rar файлы.
4.Упаковывать конечный файл в zip.
5.Вызываться из FB2Librarien (Библиотекаря) для отдельного файла.
6.Корректно обрабатывает CP1251 и UTF-8.
7.Документ кладет ВСЕМ авторам указанным в дескрипшине.
8.Раскладывать по Авторам, жанрам.
9.Удалять исходный файл.

Сейчас скрипт настроен на работу с 7za.exe. Этот архиватор должен лежать в том же каталоге, что и скрипт. Можно поправить путь к нему в начале содержательной части скрипта.
Код скрипта еще не "причесан". В нем еще может содержаться отладочная информация.

Использование совместно с Fb2Librarien (Библиотекарем):
1. Распаковать содержимое архива в папку \plugins\ программы FB2Library. Получить путь к файлу скрипта, примерно такой e:\Prog\FB2Library\plugins\ExpRename\ExpRename.vbs
2. в "Опции" -> "Общее" -> "User menu" -> Кнопка"+"
а. "Unpack" - все равно.
б. "Item" - "ExpRename from Cd_spb" Smile

в. "Application" - Полный путь к скрипту. Например "e:\Prog\FB2Library\plugins\ExpRename\ExpRename.vbs"
г. "Parametrs" - ""%i" [путь куда экспортировать]", например ""%i" "E:\Lib\_Palm\"". Каждый параметр в кавычках "", что бы избежать коллизий с путями содержащими пробелы.
3. Кнопка "Ок" -> кнопка с "дискетой"
4. При нажатии правой кнопки мыши на книге, последним пунктом выпадающего меню, будет вызов скрипта. Подпись "ExpRename from Cd_spb"

Версия 0.0.1e
http://www.freefile.ru/files/2077

Версия 0.0.1f
http://www.freefile.ru/files/2084

Версия 0.0.1g
http://www.freefile.ru/files/2085

Версия 0.5RC
http://www.freefile.ru/files/2190

Версия 0.52RC
http://www.freefile.ru/files/2478

Версия 0.54RC
http://www.freefile.ru/files/2806

Версия 0.56RC
http://www.freefile.ru/files/3831

Версия 0.57RC
http://www.freefile.ru/files/3968

Так же лежит на www.palmz.in

замечательно, вопрос перетусовки опять как-то решен.

wolf2007А зачем? fb2_2_fb2 Только для смены кодировки? ИМХО, Бессмысленно. Все читалки и так его возьмут. при конвертации в txt и другие -> это сделает конечный xsl.

Мне сейчас нужен xsl, который на выходе генерит txt с содержимым только fb:description, без body. Я планирую уже этот txt парсить на предмет тегов.

Я не знаток использования RegExp`ов (я вообще ничего не знаю про них), но кажется будет очень не легко вытащить, например &lt;first-name&gt;, которых может встречать до 10-ти штук в разных разделах. Пример pratchett_terry_kot_bez_durakov__per__e_lanchikov_(collaborations-2).fb2 выражения &lt;first-name&gt; -&gt; 6 вхождений,А нас интересуют только первые два. xsl это позволит сделать.

В общем идея есть. Осталось реализовать. Для Ваших нужд будет достаточно подмахнуть один параметр, при наличии нужного шаблона конечно.
Может быть сегодня доделаю.

Добавлено спустя 2 часа 14 минут 18 секунд:
Доделал.
ExpRename_0.0.1f
Что нового:
'HISTORY
'Версия 0.0.1f
'1.Реализовано обработка fb2 файлов в кодировке UTF-8. Используется msxsl.exe и самоправленый fb2Tags.xsl
'Появился баг -> бегает фокус активного окна.
'2.Реализован экспорт в TXT -> msxsl.exe book.fb2 FB2_2_txt_ru.xsl >book.txt
'Используя другие xsl файлы можете преобразовывать в нужные Вам форматы.

ExpRename_0.0.1f
Качать здесь
http://www.freefile.ru/files/2084

По прежднему не оптимизирован код.
Содержит pkzip25 и msxml.

Добавлено спустя 52 минуты 49 секунд:

Версия 0.0.1g
BagFix
http://www.freefile.ru/files/2085

Странными вы все путями делаете. Посмотрите
http://msdn.microsoft.com/xml/ вообще и
http://support.microsoft.com/kb/288913 в частности, там надо загрузить xml в DOM и из DOM читать уже поля нужные, будет в миллион раз надежнее, быстрее и проще.
Посмотрите vbs-ки, которые идут с fb2any, я там несколько операций с MSXML проделывал, вроде, как-раз тех, что тут нужны.

Огромное спасибо, посмотрю.

После ловли блох - очередная версия.
1. Архиватор полностью работает в фоне.
2. Для транслитерации - введена запретительная политика. Что не разрешено - то заменяется на подчерк.

0.52RC
http://www.freefile.ru/files/2478

Версия 0.56RC
'1.Возможность работы с rar`ом. Соот-но нужен unrar.exe
'2.Возможность удаления исходных файлов. Не fb2 документы будут перекладываться в отдельный каталог. ВНИМАНИЕ, перезаписывает без спроса. Кто последний - тот и папа Smile

0.56RC
http://www.freefile.ru/files/3831

Потестил.
1. Напрягает отсутствие индикатора работы - при достаточно больших объемах неизвестно - повисла прога, или работает. (простого текстового счетчика было бы достаточно)
2. Кое-какие документы попадают в BAD. Это хорошо, но не помешало бы иметь bad.log с описанием ошибки.
3. Перевод utf8 -> win1251 - это был просто разговор на отвлеченную тему?
4. Не совсем корректно обрабатываются файлы, где нет отчества у авторов - прибавляется "_"

Спасибо за интерес.
Ответы:
1. Я не вижу простого способа это сделать. Но если у меня при его работе возникают вопросы - смотрю на загрузку проца и/или дисков. (Рекомендую программу anvir task manager)
2. В плохие попадают два типа файлов - не fb2 либо те которые невалидны с точки зрения xml. Я пока не вижу как можно найти в чем там не правильность. Если возьметесь - будет очень хорошо..
3. Если честно - то я просто забыл, там ничего сложного. Нужно сделать добавку по аналогии вот с этим

Я тут батник наклепал, позволяющий прицепить сабж к контекстному меню, вызываемого правой кнопкой мыши на файле. Вот это для распакованного fb2: