Выделение только вертикальных изображений

Обсуждение вопросов автоматизации Total Commander с помощью сторонних программ и скриптовых технологий.

Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер

Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Вахмурка писал(а):В этом?
В нём. Про создание пользовательской команды ни слова.
Аватара пользователя
Вахмурка
Сообщения: 2587
Зарегистрирован: Пн дек 27, 2004 14:47
Откуда: Большая деревня Москва
Контактная информация:

Сообщение Вахмурка »

Можно узнать принципиальную разницу между пользовательской командой и кнопкой на панели (и, кстати, еще и командой меню "Start")? А то я затрудняюсь. По-моему, для решения обсуждаемой задачи это одни и те же яйца, но в фас, в профиль и в три четверти, соответственно.
(А! Можно еще добавить гоячую клавишу - это будут "Яйца. Ростовой портрет").
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Вахмурка писал(а):Можно узнать принципиальную разницу между пользовательской командой и кнопкой на панели (и, кстати, еще и командой меню "Start")?
Думаю узнать можно в справке)). Шучу, ты там был.) Если будет кнопка или команда, подвешенная на гор. клавиши, то скорость, о которой собственно шла речь, возрастает значительно. Поэтому любой нюанс в нашем случае играет существенную роль. Так что яичница не пропёрла.) Да и вообще, хорош флеймить. :wink:
Аватара пользователя
Вахмурка
Сообщения: 2587
Зарегистрирован: Пн дек 27, 2004 14:47
Откуда: Большая деревня Москва
Контактная информация:

Сообщение Вахмурка »

Что самое забавное, автор темы словно затаился. Бросил кость голодным собакам и наблюдает, как они грызутся. Эй, Андрюха, откликнись! Годятся тебе наши советы или ты вообще о другом спрашивал?
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Аватара пользователя
Avada
Сообщения: 10541
Зарегистрирован: Пт авг 01, 2008 16:17
Откуда: Россия, Саратов

Сообщение Avada »

Вахмурка
Объект портретирования будет, несомненно, одним и тем же. Но... Пользовательская команда нужна для ситуации, когда возможны разные случаи применения (клавиши, кнопка, меню, псевдоним) и пока непонятно, какой будет лучше. Впоследствии решим, а универсальная заготовка уже есть. Если придётся что-то потом править, то только в исходной команде, а не во всех местах, на неё ссылающихся. Кроме того, пользовательскую команду можно применять прямо в командной строке, а команду с параметром в натуральном виде — нет.
Даже самая богатая фантазия
Не представит себе наши безобразия.
sa
Сообщения: 2758
Зарегистрирован: Ср апр 29, 2009 18:56

Сообщение sa »

Вахмурка писал(а):А может мне кто-нибудь объяснит, чем плох Imgsize?
У меня на некоторых цифровых фото плагин не может верно определить портретную ориентацию, поскольку она указана буквальным образом через EXIF, а размеры по X и Y указывают на горизонтальную. Для большей надёжности проверку портретной ориентации с помощью imgsize.Orientation предварил проверкой exif.Orientation из плагина Exif. Шаблон поиска в разделе [searches] файла wincmd.ini получился такой:

Код: Выделить всё

Фото с портретной ориентацией_SearchFor=
Фото с портретной ориентацией_SearchIn=
Фото с портретной ориентацией_SearchText=
Фото с портретной ориентацией_SearchFlags=0|000002000020|||||||||0000|0
Фото с портретной ориентацией_plugin=exif.Orientation = "Left bottom" | exif.Orientation = "Left top" | exif.Orientation = "Right top" | exif.Orientation = "Right bottom" | imgsize.Orientation = Portrait
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

sa писал(а):У меня на некоторых цифровых фото плагин не может верно определить портретную ориентацию
Это как раз то, о чём я писал:
Flasher писал(а):exif-ориентация - это всего лишь комментарий к файлу, и далеко не все вьюверы могут автоматически поворачивать фото, исходя из его инфо-данных.
То бишь, если, например, физически фотография выглядит как Portrait, поскольку она могла быть преобразована из исходника (Rotate, Crop), то комментарий EXIF к этому файлу(если его не сбросить при сохранении) при этом естественно не измениться, поэтому я и предложил два варианта в дополнение, если информацию нужно рассматривать с этого ракурса.
Аватара пользователя
Avada
Сообщения: 10541
Зарегистрирован: Пт авг 01, 2008 16:17
Откуда: Россия, Саратов

Сообщение Avada »

sa
Несколько пересекается с этим обсуждением.
Даже самая богатая фантазия
Не представит себе наши безобразия.
Аватара пользователя
Вахмурка
Сообщения: 2587
Зарегистрирован: Пн дек 27, 2004 14:47
Откуда: Большая деревня Москва
Контактная информация:

Сообщение Вахмурка »

Обратите внимание на то, что:
1) не всякая картинка является цифровой фотографией;
2) не всякая цифровая фотография имеет данные EXIF.
Я никаких ошибок за imgsize не замечал ни на фотках, ни на других картинках.
Так что, получается, универсального бессбойного плагина для данной цели не существует?
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
sa
Сообщения: 2758
Зарегистрирован: Ср апр 29, 2009 18:56

Сообщение sa »

Flasher писал(а):поскольку она могла быть преобразована из исходника
У меня случаи неопределения портретной ориентации относятся именно к исходникам.

Avada
Imagine их сначала показывает горизонтально, а затем перерисовывает вертикально (опция "Поворачивать согласно данным в EXIF" установлена).
Вахмурка писал(а):Так что, получается, универсального бессбойного плагина для данной цели не существует?
Зато существует TC, который позволяет аккумулировать возможности нескольких плагинов!
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Вахмурка писал(а):Так что, получается, универсального бессбойного плагина для данной цели не существует?
Тут и нет никакой сбойности. Просто каждый плуг для своих нужд. Exif и jpg-comment.Exif для тех, кому нужно отслеживать инфу(коментарии, если таковые имеются) к цифровым фоткам, Imgsize для тех кому нужно видеть реальные физические параметры графических файлов.
Сама ширина и высота при пересохрание файла в EXIF меняется, но ориентация остаётся прежней. Хотя изменение EXIF-комментария при сохранении в разных вьюверах может разниться. Это надо учитывать при использовании плагинов.
Аватара пользователя
Andrey_A
Сообщения: 394
Зарегистрирован: Пт апр 10, 2009 06:28
Откуда: Сочи
Контактная информация:

Сообщение Andrey_A »

Всем спасибо за советы, действительно о некоторых я даже не подозревал, в итоге я воспользовался шаблоном от sa и в папке с изображениями выделились вертикальные
Что касается быстроты - я воспользовался скриптом

Код: Выделить всё

'Пометить файлы с заданной строкой фильтра
'В параметрах прописать искомую строку
'К примеру *.doc;*.txt или >Архивы
Filters = WScript.Arguments(0)
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand "cm_SpreadSelection"
TCS.SendKeystroke (Filters)
Pause = 300
TCS.SendKeystroke "{Enter}"
Set TCS = Nothing
В параметрах прописал

Код: Выделить всё

>Фото с портретной ориентацией
Выделяет вроде без сбоев
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Andrey_A писал(а):Что касается быстроты - я воспользовался скриптом
А не проще как-то так?:

Код: Выделить всё

'Выделить только фото с портретной ориентацией
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand 521 'cm_SpreadSelection
TCS.SendKeystroke ">Фото с портретной ориентацией"
TCS.SendKeystroke "{Enter}"
Set TCS = Nothing
WScript.Quit
или так:

Код: Выделить всё

'Оставить и выделить только фото с портретной ориентацией
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand 314 'cm_SrcUserDef
TCS.SendKeystroke ">Фото с портретной ориентацией"
TCS.SendKeystroke "{Enter}"
TCS.SendCommand 3302 'cm_SelectAllFiles
Set TCS = Nothing
WScript.Quit
Аватара пользователя
Andrey_A
Сообщения: 394
Зарегистрирован: Пт апр 10, 2009 06:28
Откуда: Сочи
Контактная информация:

Сообщение Andrey_A »

Flasher Может и проще, но своим скриптом я пользуюсь и для других шаблонов, поэтому параметр=>названию_шаблона, есть неоходимое
кстати, так же с параметром у меня и скрипт фильтрации по шаблону
И ещё я заметил, при моём скрипте (с параметром), что он корректно работает, когда названия шаблонов не имеют пробелов, поэтому название данного шаблона переименовано в :
Фото_с_портретной_ориентацией
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Andrey_A
Просто в отличии от моих твой скрипт не удовлетворяет тобой же поставленной задаче в этой ветке. Его бы тогда, как универсальный, стоило куда-то отдельно помещать, в "Обмен кнопками", например.
Ответить