Page 2 of 3

Posted: Wed 30 Mar, 2005 23:31
by zg

Latest post of the previous page:

Hedin wrote:А с какими ещё файлами он работает?
с любым, содержащим id3 тэги.

Posted: Tue 05 Apr, 2005 01:08
by Tim Sobolev
Предложите идею субплага для 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

Posted: Tue 05 Apr, 2005 10:02
by Hedin
WARP ItSelf wrote:Пни меня через неделю где-то.
Неделя уже почти прошла. :)

Posted: Wed 06 Apr, 2005 01:52
by 4ekucT
Еще можно подружить Anamorphis с pdf файлами вот так:

1) Качаем pdf2txt.exe отсюда http://www.foxitsoftware.com
2) Пишем батник PDF2Far.bat

@echo off
pdf2txt.exe -c -q %1 %TEMP%\~pdf2txt
type %TEMP%\~pdf2txt.txt

3) Кладем это все в доступное %PATH% место
4) Дописываем в custom.default.ini нашего замечательного плугина нижеследующее

[PDF files]
Mask=*.pdf
ExecutionString=PDF2Far.bat %%A
UseTimeout=0
Timeout=10000
Enabled=1

5) Оттапыриваемся! :mrgreen: :mrgreen: :mrgreen:

ЗЫ: При желании можно добавить ассоциацию на *.pdf:
far:edit <1>PDF2Far "!\!.!"

Re: unicode или mp3.module build 7

Posted: Thu 07 Apr, 2005 11:12
by DkmS
WARP ItSelf wrote:Unicode, говорите? Хорошо... Проверяйте, если надо кому
http://www.warpedworld.fatal.ru/mp3.rar
1. На Юникоде в имени файла всё-таки обломалось :( - "Ошибка открытия файла", говорит

2. Если в файле есть картинка, то при переходе на него стрелкой (при включённом QuickView) она и показывается. При включении просмотра на этом файле - показываются остальные теги.

3. И текст песен не показывает :(

Posted: Thu 07 Apr, 2005 18:46
by WARP ItSelf
DkmS

Юникод в имени файла никто и не обещал. Юникод в ID3v2. Картинка это не ко мне. Если pic рисует поверх Anamorphosis, я ничем помочь не могу. Текст действительно не показывает. Полей читается всего 12. Это обсуждаемо.

Posted: Fri 08 Apr, 2005 10:42
by DkmS
WARP ItSelf wrote: Юникод в имени файла никто и не обещал.
В принципе, по короткому имени как-то можно нормальное имя прочитать. Могу посмотреть, как я это делал.
Картинка это не ко мне. Если pic рисует поверх Anamorphosis, я ничем помочь не могу.
Кто такой pic? У меня стоит MultiView, он эту mp3 играет, параллельно с Anamorphosis'ом.
Текст действительно не показывает.
Жалко :(

Posted: Fri 29 Apr, 2005 12:57
by Hedin
Можно ли надеяться, что субплагин mp3 научится-таки показывать тех. информацию о файлах?

"Не будет ли любезен многоуважаемый джин... " (с) :)

Posted: Tue 03 May, 2005 13:22
by Anonymous
надо сказать без этой самой технической информации польза от плагина невелика. Хотя и читает теги правильно.

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

Posted: Fri 23 Sep, 2005 11:54
by HaRT
  1. Насчёт PDF
    Хочу порекомендовать общественности Xpdf (GPL v.2).
    В частности, он умеет вытаскивать Сводку (Summary).
  2. Про Anamorphosis::custom
    хочется, чтобы значение %%W становилось на единицу меньше, когда в Фаре включена опция Viewer/ Show scrollbar, а то очень некрасиво получается, если конвертор (напр., zd2t.exe) реально использует этот параметр.
  3. Про LNK
    Хочу предложить публике следующий конвертор (Lnks2Txt.vbs):

    Code: Select all

    'Description: Output shell link's properties
    'Version    : 1.2
    'Date       : 12.10.2005
    'Author     : HaRT
    
    dim oShl
    dim oLnk
    
    Set oShl = CreateObject ( "WScript.Shell" )
    
    for each a in WScript.Arguments
      Set oLnk = oShl.CreateShortcut ( a )
    
      WScript.Echo ( "FullName        : " & oLnk.FullName         )
      WScript.Echo ( "TargetPath      : " & oLnk.TargetPath       )
      WScript.Echo ( "Arguments       : " & oLnk.Arguments        )
      WScript.Echo ( "WorkingDirectory: " & oLnk.WorkingDirectory )
      WScript.Echo ( "Hotkey          : " & oLnk.Hotkey           )
      WScript.Echo ( "WindowStyle     : " & oLnk.WindowStyle      )
      WScript.Echo ( "Description     : " & oLnk.Description      )
      WScript.Echo ( "IconLocation    : " & oLnk.IconLocation     )
      WScript.Echo
    next
    
    Прикручивается к custom с помощью cscript.exe /NoLogo Lnks2Txt.vbs %%A.
  4. Про DOC, DOT, RTF, XLS, XLT, PPT, POT, PPS
    Хочу предложить публике следующий конвертор (OffProps2Txt.vbs):

    Code: Select all

    '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, я и сам знаю, но очень лень.)

Свойства офисных файлов

Posted: Thu 21 Dec, 2006 12:46
by HaRT
Если использовать для форматирования Дамаст, то код упрощается до предела.

OffProps0Txt.vbs:

Code: Select all

'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 
OffProps0Txt.cmd:

Code: Select all

@cscript.exe /NoLogo %~dpn0.vbs %* | gawk.exe -f Damastes.awk -v FS=": " -v OFS=": " -v sPadTill="RN" | iconv.exe -c -f CP1251 -t CP866
PS
Если вместо iconv использовать recode (который по-своему хорош хотя бы тем, что статически скомпонован со всем необходимым и идёт в составе UnxUtils), то OffProps0Txt.cmd получается такой:

Code: Select all

@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" 

Re: Свойства офисных файлов

Posted: Thu 26 Mar, 2009 13:12
by HaRT
Обновился файл OffProps0Txt.vbs в предыдущем сообщении.
Также добавлен вариант OffProps0Txt.cmd, использующий recode вместо iconv.

Re: Свойства офисных файлов

Posted: Thu 07 Oct, 2010 13:44
by SlashNet
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

Re: Свойства офисных файлов

Posted: Thu 07 Oct, 2010 14:46
by HaRT
SlashNet wrote:OffProps0Txt.vbs из последнего поста выдает:
OffProps0Txt.vbs(23, 3) Ошибка выполнения Microsoft VBScript Не найдено имя файла или класса при операции программирования объектов: 'GetObject'
Word на компе установлен?
SlashNet wrote:Запускал так:
cscript.exe /NoLogo OffProps0Txt.vbs 1.doc (для исключения других программ из списка подозреваемых)
А если задать полный путь к документу?

Re: Анаморфозис (Anamorphosis)

Posted: Thu 07 Oct, 2010 14:58
by SlashNet
HaRT wrote:А если задать полный путь к документу?
Ёпрст. Заработало...

Re: Анаморфозис (Anamorphosis)

Posted: Fri 08 Oct, 2010 08:10
by Skirda
Есть еще "трабла"...: пробуем xls?-файлы - виден запуск Excel, что-то делается с таблицей, книга закрывается, окно Excel так и остается запущенным (остальные документы офиса - без окна).
Это лечится?