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

Хотите предложить идею нового плагина или знаете, что улучшить в существующем? Пишите сюда.
User avatar
Tim Sobolev
Posts: 705
Joined: Fri 01 Apr, 2005 14:46
Location: Украина
Has thanked: 1 time

Post by Tim Sobolev » Tue 05 Apr, 2005 01:08

Latest post of the previous page:

Предложите идею субплага для 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

Hedin
Posts: 206
Joined: Thu 17 Mar, 2005 10:29
Has thanked: 3 times

Post by Hedin » Tue 05 Apr, 2005 10:02

WARP ItSelf wrote:Пни меня через неделю где-то.
Неделя уже почти прошла. :)

User avatar
4ekucT
Posts: 507
Joined: Tue 05 Apr, 2005 23:44
Location: Беларусь, Минск

Post by 4ekucT » Wed 06 Apr, 2005 01:52

Еще можно подружить 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 "!\!.!"

Guest

Re: unicode или mp3.module build 7

Post by Guest » Thu 07 Apr, 2005 11:12

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

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

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

User avatar
WARP ItSelf
Самый умный
Posts: 1011
Joined: Tue 15 Mar, 2005 23:19
Contact:

Post by WARP ItSelf » Thu 07 Apr, 2005 18:46

DkmS

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

Guest

Post by Guest » Fri 08 Apr, 2005 10:42

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

Hedin
Posts: 206
Joined: Thu 17 Mar, 2005 10:29
Has thanked: 3 times

Post by Hedin » Fri 29 Apr, 2005 12:57

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

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

Anonymous

Post by Anonymous » Tue 03 May, 2005 13:22

надо сказать без этой самой технической информации польза от плагина невелика. Хотя и читает теги правильно.

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

User avatar
HaRT
Moderator
Posts: 9170
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 90 times
Been thanked: 177 times

Post by HaRT » Fri 23 Sep, 2005 11:54

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

User avatar
HaRT
Moderator
Posts: 9170
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 90 times
Been thanked: 177 times

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

Post by HaRT » Thu 21 Dec, 2006 12:46

Если использовать для форматирования Дамаст, то код упрощается до предела.

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" 
Last edited by HaRT on Thu 01 Jan, 1970 01:00, edited 0 times in total.
Reason: Обновлён файл OffProps0Txt.vbs; добавлен вариант OffProps0Txt.cmd, использующий recode вместо iconv

User avatar
HaRT
Moderator
Posts: 9170
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 90 times
Been thanked: 177 times

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

Post by HaRT » Thu 26 Mar, 2009 13:12

Обновился файл OffProps0Txt.vbs в предыдущем сообщении.
Также добавлен вариант OffProps0Txt.cmd, использующий recode вместо iconv.
Фар есть инструмент, а не нянька. © 2009 DrKnS

User avatar
SlashNet
Posts: 591
Joined: Fri 20 Mar, 2009 09:43
Location: Львов
Has thanked: 4 times

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

Post by SlashNet » Thu 07 Oct, 2010 13:44

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
ədиw wo⊥є ʚ o⊥ʎнdəʚədəu əɔʚ

User avatar
HaRT
Moderator
Posts: 9170
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 90 times
Been thanked: 177 times

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

Post by HaRT » Thu 07 Oct, 2010 14:46

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

User avatar
SlashNet
Posts: 591
Joined: Fri 20 Mar, 2009 09:43
Location: Львов
Has thanked: 4 times

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

Post by SlashNet » Thu 07 Oct, 2010 14:58

HaRT wrote:А если задать полный путь к документу?
Ёпрст. Заработало...
ədиw wo⊥є ʚ o⊥ʎнdəʚədəu əɔʚ

User avatar
Skirda
Posts: 3474
Joined: Wed 16 Mar, 2005 11:01
Been thanked: 4 times

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

Post by Skirda » Fri 08 Oct, 2010 08:10

Есть еще "трабла"...: пробуем xls?-файлы - виден запуск Excel, что-то делается с таблицей, книга закрывается, окно Excel так и остается запущенным (остальные документы офиса - без окна).
Это лечится?
We are the Borg. You will be assimilated.
So Say We All!

User avatar
SlashNet
Posts: 591
Joined: Fri 20 Mar, 2009 09:43
Location: Львов
Has thanked: 4 times

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

Post by SlashNet » Fri 08 Oct, 2010 09:01

Странно. У меня xls-файлы нормально обрабатываются. Никаких окон вообще не открывается.
ədиw wo⊥є ʚ o⊥ʎнdəʚədəu əɔʚ

User avatar
HaRT
Moderator
Posts: 9170
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 90 times
Been thanked: 177 times

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

Post by HaRT » Fri 08 Oct, 2010 10:26

Skirda wrote:окно Excel так и остается запущенным (остальные документы офиса - без окна).
Я с таким не сталкивался. Какая версия Офиса? На всех ли документах воспроизводится? Как именно?
Вот с чем я сталкивался, так это с тем, что если документ уже открыт, либо в нём поставлена защита от изменений, то офисное приложение показывает своё окно и ругается в диалоге. К сожалению, мне неизвестен способ заставить их в этом контексте работать скрытно и молча.
Фар есть инструмент, а не нянька. © 2009 DrKnS

Post Reply

Return to “Предложения и идеи”