指定ファイルのメタデータをTable UIで表示するAppleScriptです。
テーブル表示用のライブラリ「display table by list」のアップデート版（v1.3）を利用しています。同ライブラリは特定用途のために間に合わせで作っただけだったので、バグを直して汎用性を高めました（無駄なウィンドウの半透明表示をやめた）。また、アイコン表示用のURL指定を省略したときにエラーになる点を修正しました。
–> Download displayTable.scptd(AppleScript Library)
データのテキスト化ライブラリ「everythingToText」も利用していますが、これソースもオープンにしていてよく使っているのですが、とくに決まったURLから配布というのは行なっていませんね。機能が素朴すぎてライブラリとして配布するのがためらわれるところです。
–> Download displayMetadataByTablev2
というわけで、ライブラリを含んだScript Bundleをダウンロードできるようにしておきました（↑）。
| AppleScript名：指定ファイルのメタデータ表示 v2.scptd |
| — – Created by: Takaaki Naganoya – Created on: 2020/07/07 — – Copyright © 2020 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" use framework "Foundation" use scripting additions use easyTable : script "display table by list" use eText : script "everythingToTextKit" property |NSURL| : a reference to current application’s |NSURL| property NSMetadataItem : a reference to current application’s NSMetadataItem set aFile to choose file set aPOSIX to POSIX path of aFile set aURL to |NSURL|’s fileURLWithPath:(aPOSIX) set aMetaInfo to NSMetadataItem’s alloc()’s initWithURL:aURL set attrList to (aMetaInfo’s attributes()) as list set aList to {} repeat with i in attrList set metaDict to (aMetaInfo’s valuesForAttributes:{i as string}) as record set recStr to convToStr(metaDict) of eText set the end of aList to {i as string, recStr as string} –set the end of aList to (recStr as string) end repeat set fLabels to {"Attribute", "Value"} set aRes to (display table by list aList main message "Metadata" sub message aPOSIX size {1200, 800} labels fLabels) |
(Visited 66 times, 1 visits today)
