#はじめに
プライベートですが、FireTVStickを導入しています。
TVでAmazonPrimeビデオが見れるようになるアレですね。
FireTVStickはAmazonDrive上の画像からスライドショーを表示できるんです。
スクリーンセーバーとしても設定できるので目の保養としていい感じです。

ところでTumblrっていいですよね（唐突）
dashboardは自分の好きなものストリームなので無限に見れますし、
自分のblogは好きなものの集合体なのでコレクションとしての価値が大きいです。
そんなTumblrの画像群から、スクリーンセーバー向けの画像のピックアップを行いたいとします。

要件としては以下

jpgかpngであること
GifファイルはFireTVStickのスライドショーでは動きませんでした。
横長の画像で、かつ縦幅の大きいものを優先すること。
画面に映したときに見栄えがいいです。
細長い画像だとあまり美しくないので…
ファイルサイズの大きいものを優先すること
これも見栄え重視。

対象画像は事前にスクレイピングされているものとします。
ファイル形式もサイズもへったくれもなく1フォルダに入れておきます。

#参考資料様
画像の仕分けスクリプトをPowerShellで書き直す
親元です。私は二番煎じです。
こちらではファイルのプロパティを取得してどうこうされていましたが、
「nnn ピクセル」のString型を整数型に直せず、わかっているやり方に変更。
この部分は「わからなかった部分」として記事末尾に記載しています。

#環境
-Windows10
-PowerShell

#テスト
諸般の事情によりテスト的なものを作成してから持ち込みました。
ランダム画像群を生成してそれに対してスクリプトを実行します。

makerandomfile.ps1

#Tumble2Amdrのためのランダムファイル群作成
$path = "C:\Workspace\picturetest"
Add-Type -AssemblyName System.Drawing
foreach($i in @(1..100)){
    $width = Get-Random -Minimum 160 -Maximum 640
    $height = Get-Random -Minimum 160 -Maximum 640
    $image= New-Object System.Drawing.Bitmap($width,$height)
    $image.Save($path+"\jpg_"+$i+".jpg",[System.Drawing.Imaging.ImageFormat]::Jpeg)
    $image.Dispose()
}
foreach($i in @(1..100)){
    $width = Get-Random -Minimum 160 -Maximum 640
    $height = Get-Random -Minimum 160 -Maximum 640
    $image= New-Object System.Drawing.Bitmap($width,$height)
    $image.Save($path+"\gif_"+$i+".gif",[System.Drawing.Imaging.ImageFormat]::gif)
    $image.Dispose()
}
foreach($i in @(1..100)){
    $width = Get-Random -Minimum 160 -Maximum 640
    $height = Get-Random -Minimum 160 -Maximum 640
    $image= New-Object System.Drawing.Bitmap($width,$height)
    $image.Save($path+"\png_"+$i+".png",[System.Drawing.Imaging.ImageFormat]::png)
    $image.Dispose()
}

で、これを実行すると…

実行結果

PS C:\Workspace\picturetest\item> Get-ChildItem


    ディレクトリ: C:\Workspace\picturetest\item


Mode                LastWriteTime         Length Name                                                                                            
----                -------------         ------ ----                                                                                            
-a----       2018/09/07      8:21           1297 gif_1.gif                                                                                       
-a----       2018/09/07      8:21           1749 gif_10.gif                                                                                      
-a----       2018/09/07      8:21           1413 gif_100.gif                                                                                     
-a----       2018/09/07      8:21           1564 gif_11.gif                                                                                      
-a----       2018/09/07      8:21           1811 gif_12.gif                                                                                      
            （中略）                                                                                 
-a----       2018/09/07      8:21            646 png_95.png                                                                                      
-a----       2018/09/07      8:21           1029 png_96.png                                                                                      
-a----       2018/09/07      8:21            507 png_97.png                                                                                      
-a----       2018/09/07      8:21            651 png_98.png                                                                                      
-a----       2018/09/07      8:21            971 png_99.png

さまざまな画像サイズのファイル群が作成されました。

#ソースコード
本題はこっち。

Tumble2Amdr.ps1

# Tumblrの画像群からスクリーンセーバー向けの画像をピックアップ

#画像を扱えるようにする
Add-Type -AssemblyName System.Drawing

#参考値
$ABSOLUTERATIO = 0.5625 #16:9のアス比
$BAND = [math]::round($ABSOLUTERATIO/4,4) 

$filepath = "C:\Workspace\picturetest\item"
$resultpath = "C:\Workspace\picturetest\Result"
$list = Get-ChildItem $filepath

#ファイルの抽出
$pickups = foreach($file in $list){
    if(($file.Extension -eq ".jpg") -or ($file.Extension -eq ".png")){
        #画像読み込み
        $image = [System.Drawing.Image]::FromFile($file.FullName) #画像を読み込む
        $width = $image.Width
        $height = $image.Height
        $image.Dispose()
        
        #下ごしらえ
        if($width -ge $height){
            $ratio = [math]::round($height/$width,4) #画像のアス比
            if(($ratio -ge $ABSOLUTERATIO-$BAND)){ # 許容アス比、これより細い画像は弾く
                [PSCustomObject]@{
                    Fullname = $file.FullName
                    Length = $file.Length
                    Width = $width
                    Height = $height
                }
            }
        }
    }
}

$annoited_list = $pickups | Sort-Object -Descending Width,Height,Length | Select-Object -First 50
$annoited_list|Export-Csv $resultpath"\result.csv" #結果のCSV出力

#ファイルのコピー
foreach($movefile in $annoited_list){
    Copy-Item -Path (($movefile).Fullname) -destination $resultpath
}

Excelizeの時の画像ノウハウで画像サイズだけ取得してリリース。
適宜条件で弾いてから、リストに入れて並べなおして上位をピックアップ。
アス比閾値を設定して条件に加えることで、クソ細い画像を排除している。

#出力

出力結果



    ディレクトリ: C:\Workspace\picturetest\Result


Mode                LastWriteTime         Length Name                                                                                            
----                -------------         ------ ----                                                                                            
-a----       2018/09/07      8:21           5775 jpg_100.jpg                                                                                     
-a----       2018/09/07      8:21           5379 jpg_11.jpg                                                                                      
-a----       2018/09/07      8:21           4211 jpg_12.jpg                                                                                      
-a----       2018/09/07      8:21           4947 jpg_15.jpg                                                                                      
-a----       2018/09/07      8:21           3515 jpg_18.jpg                                                                                      
-a----       2018/09/07      8:21           3187 jpg_19.jpg                                                                                      
-a----       2018/09/07      8:21           5587 jpg_21.jpg                                                                                      
-a----       2018/09/07      8:21           3059 jpg_39.jpg                                                                                      
-a----       2018/09/07      8:21           4427 jpg_48.jpg                                                                                      
-a----       2018/09/07      8:21           5747 jpg_5.jpg                                                                                       
-a----       2018/09/07      8:21           3727 jpg_51.jpg                                                                                      
-a----       2018/09/07      8:21           6099 jpg_56.jpg                                                                                      
-a----       2018/09/07      8:21           2939 jpg_59.jpg                                                                                      
-a----       2018/09/07      8:21           5659 jpg_62.jpg                                                                                      
-a----       2018/09/07      8:21           4427 jpg_66.jpg                                                                                      
-a----       2018/09/07      8:21           4527 jpg_71.jpg                                                                                      
-a----       2018/09/07      8:21           4059 jpg_72.jpg                                                                                      
-a----       2018/09/07      8:21           4147 jpg_74.jpg                                                                                      
-a----       2018/09/07      8:21           3483 jpg_76.jpg                                                                                      
-a----       2018/09/07      8:21           3507 jpg_78.jpg                                                                                      
-a----       2018/09/07      8:21           2611 jpg_8.jpg                                                                                       
-a----       2018/09/07      8:21           3003 jpg_80.jpg                                                                                      
-a----       2018/09/07      8:21           3291 jpg_81.jpg                                                                                      
-a----       2018/09/07      8:21            685 png_100.png                                                                                     
-a----       2018/09/07      8:21            556 png_12.png                                                                                      
-a----       2018/09/07      8:21           1161 png_19.png                                                                                      
-a----       2018/09/07      8:21            757 png_2.png                                                                                       
-a----       2018/09/07      8:21            641 png_20.png                                                                                      
-a----       2018/09/07      8:21           1028 png_21.png                                                                                      
-a----       2018/09/07      8:21           1064 png_26.png                                                                                      
-a----       2018/09/07      8:21            906 png_27.png                                                                                      
-a----       2018/09/07      8:21           1187 png_33.png                                                                                      
-a----       2018/09/07      8:21            997 png_34.png                                                                                      
-a----       2018/09/07      8:21           1217 png_39.png                                                                                      
-a----       2018/09/07      8:21            645 png_4.png                                                                                       
-a----       2018/09/07      8:21            705 png_42.png                                                                                      
-a----       2018/09/07      8:21            898 png_5.png                                                                                       
-a----       2018/09/07      8:21           1292 png_51.png                                                                                      
-a----       2018/09/07      8:21           1527 png_52.png                                                                                      
-a----       2018/09/07      8:21           1260 png_55.png                                                                                      
-a----       2018/09/07      8:21            741 png_60.png                                                                                      
-a----       2018/09/07      8:21            547 png_62.png                                                                                      
-a----       2018/09/07      8:21            631 png_72.png                                                                                      
-a----       2018/09/07      8:21            831 png_75.png                                                                                      
-a----       2018/09/07      8:21            990 png_8.png                                                                                       
-a----       2018/09/07      8:21           1247 png_84.png                                                                                      
-a----       2018/09/07      8:21            901 png_85.png                                                                                      
-a----       2018/09/07      8:21            610 png_93.png                                                                                      
-a----       2018/09/07      8:21            646 png_95.png                                                                                      
-a----       2018/09/07      8:21            971 png_99.png                                                                                      
-a----       2018/09/07      8:24           3226 result.csv

無事ピックアップされたようです。

#わからなかった部分
ここからは親元を参考に試したけどうまくいかなかった部分です。
ファイルのプロパティから画像サイズ自体は取得できそうだったんです。

get-option.ps1

#プロパティから対象を探し出す
$path = "C:\Workspace\item"
$list = ls $path *_1.*
# プロパティ取得の準備
# shellの機能を使えるようにする。多分GetDetailsOfのため。
$shell = New-Object -ComObject Shell.Application
# $folderに$pathのフォルダーオブジェクトを代入
$folder = $shell.NameSpace($path)
#ファイルの抽出
$object = $folder.ParseName($file.Name) #オプションを取得できるようにする

#プロパティの抽出
$pickups = foreach($file in $list){
    $object = $folder.ParseName($file.Name) #オプションを取得できるようにする
    Write-Host $file.Name #見やすくするため
    @(1..200)|%{
        $detail = $Folder.GetDetailsOf($object,$_)
        #if($detail -ne ""){
            Write-Host $_`t $detail`t $detail.GetType()
        #}
    }
    Write-Host `r`n`r`n #見やすくするため
}

拡張子によってプロパティの内容と位置が変わらないか一応確認しています。

結果

PS C:\Workspace> C:\Workspace\get-option.ps1
gif_1.gif
1	 1.25 KB	 System.String
2	 GIF ファイル	 System.String
3	 2018/09/07 9:00	 System.String
4	 2018/09/07 9:00	 System.String
5	 2018/09/07 9:00	 System.String
6	 A	 System.String
7	 	 System.String
8	 オフラインで利用可能	 System.String
9	 イメージ	 System.String
10	 TC\1501275	 System.String
11	 ピクチャ	 System.String
12	 	 System.String
（中略）
168	 	 System.String
169	 8	 System.String
170	 ‎96 dpi	 System.String
171	 ‎162 ピクセル	 System.String
172	 ‎96 dpi	 System.String
173	 ‎495 ピクセル	 System.String
174	 	 System.String
175	 	 System.String
176	 	 System.String
177	 	 System.String
178	 	 System.String
179	 	 System.String
180	 	 System.String
181	 	 System.String
182	 いいえ	 System.String
183	 	 System.String
184	 	 System.String
185	 item	 System.String
186	 C:\Workspace\item	 System.String
187	 item (C:\Workspace)	 System.String
188	 	 System.String
189	 C:\Workspace\item\gif_1.gif	 System.String
190	 	 System.String
191	 GIF ファイル	 System.String
192	 	 System.String
（中略）
289	 	 System.String
290	 非共有	 System.String
291	 利用可能	 System.String
292	 	 System.String
（中略）
499	 	 System.String
500	 	 System.String
（後略）

結論からするとどのファイルでもでも171番と173番が幅と高さでした。
ファイルのプロパティは291番が最後っぽいけど他のファイルだと変わるかも。

PS C:\Workspace> $width = $folder.GetDetailsOf($object,171)

PS C:\Workspace> $width
‎156 ピクセル

PS C:\Workspace> $width.GetType()

IsPublic IsSerial Name                                     BaseType                                                                              
-------- -------- ----                                     --------                                                                              
True     True     String                                   System.Object

まぁわかる。ピクセル入ってるもんな。

PS C:\Workspace> $a=$width.Split()[0]

PS C:\Workspace> $a
‎156

PS C:\Workspace> $a.GetType()

IsPublic IsSerial Name                                     BaseType                                                                              
-------- -------- ----                                     --------                                                                              
True     True     String                                   System.Object

そうなるんか。数字だけなら整数型に戻るわけではないのね。

PS C:\Workspace> $b = [int]$a
値 "‎156" を型 "System.Int32" に変換できません。エラー: "入力文字列の形式が正しくありません。"
発生場所 行:1 文字:1
+ $b = [int]$a
+ ~~~~~~~~~~~~
    + CategoryInfo          : InvalidArgument: (:) []、RuntimeException
    + FullyQualifiedErrorId : InvalidCastFromStringToInteger

うーん…？
数字だけだけど直ってはくれんのか？

#おわりに
実環境では約30000枚の画像から1000枚ちょいをピックアップします。
その後スクリーンセーバーにふさわしくない画像達を手動で弾きました。
あとはresultフォルダをAmazonDriveと同期してFireTVStickで設定すればOKです。

なおピックアップの結果はほとんどがアニメのキャプになりました。
Duh...

Takaaki-3110@Tumblr