Monarch-LFV

|
Posted: Sun Jun 22, 2025 02:10 Post subject: |
|
|
ZorKon71
И еще очень может помочь плагин ExifToolWDX вместе с самой программой ExifTool, которая часто обновляется. Программа очень мощная, читает все существующие метаданные и не только. Правда, видимо сам плагин ограничивает ее использование только на файлах-изображениях, поэтому для переименования видеофайлов через поля плагина она не совсем подходит.
Для себя написал VBS-скрипт для отображения в блокноте (или другом редакторе) метаинформации о любом файле, быть может и вам поможет хотя бы посмотреть полную информацию о файле:
 Exiftool_All_Properties_User.vbs Code: | ' Отображает все доступные метаданные из EXIF, IPTC и т.п. в блокноте
' параметры: %P%N
On Error Resume Next
full = inputBox("0 - Отобразить основные данные" & vbcrlf & "1 - Отобразить все доступные данные", "Exiftool", 0)
if full=0 then fulltxt=" - кратко"
if full=1 then fulltxt=" - подробно": fulltext="-ee -api RequestAll=3 "
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
fil = WScript.Arguments(0)
fn = FSO.GetFileName(fil)
DT=replace(Now, ":", "-")
tmp = WshShell.ExpandEnvironmentStrings("%temp%")
txtfile = tmp & "\Exiftool (" & fn & fulltxt & ") - " & DT & ".txt"
WshShell.run "cmd /C """"" & FSO.GetParentFolderName(WScript.ScriptFullName) & "\exiftool.exe"" -api geolocation -G2 -c ""%d %d %.2f"" -charset Cyrillic " & fulltext & """" & fil & """" & ">""" & txtfile & """" ,0,True
' WshShell.run """%commander_path%\Plugins\exe\AkelPad\AkelPad.exe """ & txtfile & """", 1, true
WshShell.run "notepad.exe " & """" & txtfile & """", 1, true
FSO.DeleteFile(txtfile) |
Положить скрипт рядом с программой Exiftool.exe, вывести на панель кнопок с параметрами %P%N.
PS. Раньше программа представляла собой единый EXE-файл размером 10МБ, а теперь это сотни мелких файлов, по мне так раньше было удобнее, поэтому у себя использую версию 12.8.7.0 (ее возможностей мне с лихвой хватает). |
|