Предложите идею субплага для Anamorphosis... WARP ItSelf: плаг VerInfo лучще организовать в виде:
----8<------------------------------------------------------
Dynamic-link library
----------------------------------------------------------
Язык : Русский
Название продукта: verinfo Anamorphosis sub-plugin
Версия продукта : 1, 0, 0, 7
Описание файла : verinfo.module Dynamic Link Library
Версия файла : 1.0 internal build 7
Оригинальное имя : verinfo.module
Внутреннее имя : verinfo Anamorphosis sub-plugin
Копирайт : Copyright (C) 2004 WARP ItSelf
----8<------------------------------------------------------
а длинные строки (например > 50 символов) лучше переносить, выравнивая правый край:
----8<------------------------------------------------------
Описание файла : verinfo.module
Dynamic Link Library
1. На Юникоде в имени файла всё-таки обломалось - "Ошибка открытия файла", говорит
2. Если в файле есть картинка, то при переходе на него стрелкой (при включённом QuickView) она и показывается. При включении просмотра на этом файле - показываются остальные теги.
Юникод в имени файла никто и не обещал. Юникод в ID3v2. Картинка это не ко мне. Если pic рисует поверх Anamorphosis, я ничем помочь не могу. Текст действительно не показывает. Полей читается всего 12. Это обсуждаемо.
надо сказать без этой самой технической информации польза от плагина невелика. Хотя и читает теги правильно.
От себя пару копеек вот добавлю. Ежели таки техническая информация появится, то пусть она умеет появляться не токмо для одного, но и для группы выделенных файлов и для файлов в открытом каталоге. Места там навалом в панели.
Будет очень мило.
Насчёт PDF
Хочу порекомендовать общественности Xpdf (GPL v.2).
В частности, он умеет вытаскивать Сводку (Summary).
Про Anamorphosis::custom
хочется, чтобы значение %%W становилось на единицу меньше, когда в Фаре включена опция Viewer/ Show scrollbar, а то очень некрасиво получается, если конвертор (напр., zd2t.exe) реально использует этот параметр.
Про LNK
Хочу предложить публике следующий конвертор (Lnks2Txt.vbs):
'Description: Output office documents' properties
'Version : 0.3
'Date : 14.10.2005
'Author : HaRT
'Notes : The values are left-aligned according to names' lengths' confidence interval
dim oDoc
dim iLenMax, iLenCur
dim iNum, iSum1, iSum2
dim dAvg, dDisp
on error resume next
for each a in WScript.Arguments
set oDoc = GetObject ( a )
iNum = 0
iSum1 = 0
iSum2 = 0
for each p in oDoc.BuiltinDocumentProperties
iLenCur = Len ( p.Name )
iNum = iNum + 1
iSum1 = iSum1 + iLenCur
iSum2 = iSum2 + iLenCur * iLenCur
next
dAvg = 0
if iNum > 0 then
dAvg = iSum1 / iNum
end if
if iNum < 2 then
iNum = 2
end if
dDisp = ( iSum2 - 2 * dAvg * iSum1 + iNum * dAvg * dAvg ) / ( iNum - 1 )
iLenMax = Int ( dAvg + Sqr ( dDisp ) + 0.5 )
for each p in oDoc.BuiltinDocumentProperties
WScript.StdOut.Write p.Name
iLenCur = Len ( p.Name )
if ( iLenMax > iLenCur ) then
WScript.StdOut.Write Space ( iLenMax - iLenCur )
end if
WScript.StdOut.Write ": " & p.Value
WScript.StdOut.WriteLine
next
WScript.StdOut.WriteLine
next
Прикручивается к custom с помощью cscript.exe /NoLogo OffProps2Txt.vbs %%A.
PS К сожалению, такая реализация работает довольно медленно (вероятно, из-за запуска офисного приложения). Если кто-то знает, как через WSH обратиться к коллекциям свойств, хранимых в файле compound storage, идеи приветствуются. (Как это сделать на C++ через WinAPI, я и сам знаю, но очень лень.)
'Description : Output office documents' properties
'Distribution: Freeware, AS IS
'
'Version : 0.3
'Date : 2007-02-08
'Author : HaRT
'Notes : Formatting should be performed by an external tool
'History :
' 2005-11-26: v.0.0: initial implementation
' 2005-12-02: v.0.1: implemented error handling
' 2007-01-11: v.0.2: implemented output of custom properties
' 2007-01-25: : added a separator after standard properties
' 2007-02-08: : show the separator only if there are custom properties
' 2007-02-08: v.0.3: release the application object after use
'
'Parameters : file names whose properties to output
'
'ToDo : none
dim oDoc
for each a in WScript.Arguments
set oDoc = GetObject ( a )
OutputProperties oDoc.BuiltinDocumentProperties
if 0 < oDoc.CustomDocumentProperties.Count then
WScript.StdOut.WriteLine "--------"
OutputProperties oDoc.CustomDocumentProperties
end if
WScript.StdOut.WriteLine
next
set oDoc = nothing
sub OutputProperties ( oProps )
on error resume next
for each p in oProps
WScript.StdOut.Write p.Name
WScript.StdOut.Write ": " & p.Value
WScript.StdOut.WriteLine
next
end sub
PS
Если вместо iconv использовать recode (который по-своему хорош хотя бы тем, что статически скомпонован со всем необходимым и идёт в составе UnxUtils), то OffProps0Txt.cmd получается такой:
@rem recode.exe tries to create a temporary file in the current directory;
@cscript.exe /NoLogo "%~dpn0.vbs" %* | ( pushd %TMP% & recode CP1251..CP866 & popd ) | gawk -f Damastes.awk -v FS=": " -v OFS=": " -v sPadTill="RN"
Last edited by HaRT on Thu 01 Jan, 1970 01:00, edited 0 times in total.
Reason:Обновлён файл OffProps0Txt.vbs; добавлен вариант OffProps0Txt.cmd, использующий recode вместо iconv
OffProps0Txt.vbs из последнего поста выдает: OffProps0Txt.vbs(23, 3) Ошибка выполнения Microsoft VBScript Не найдено имя файла или класса при операции программирования объектов: 'GetObject'
OffProps0Txt.vbs из предпоследнего поста выдает (аналогично версии 0.1): 0000000000: 0D 0A 0D 0A <- просмотр как hex (если проще, то 2 перевода строки)
Запускал так: cscript.exe /NoLogo OffProps0Txt.vbs 1.doc (для исключения других программ из списка подозреваемых)
WinXP sp3 x32 ru / WinXP sp2 en
Office 2003 Ru
Сервер сценариев Windows версия 5.7
SlashNet wrote:OffProps0Txt.vbs из последнего поста выдает: OffProps0Txt.vbs(23, 3) Ошибка выполнения Microsoft VBScript Не найдено имя файла или класса при операции программирования объектов: 'GetObject'
Word на компе установлен?
SlashNet wrote:Запускал так: cscript.exe /NoLogo OffProps0Txt.vbs 1.doc (для исключения других программ из списка подозреваемых)
Есть еще "трабла"...: пробуем xls?-файлы - виден запуск Excel, что-то делается с таблицей, книга закрывается, окно Excel так и остается запущенным (остальные документы офиса - без окна).
Это лечится?
We are the Borg. You will be assimilated.
So Say We All!