雪星实验室

Mathematica 批量缩放图片

背景

批量缩放图片到某个大小,嗯。

准备工作

你需要有安装 Mathematica,官网见此:Wolfram Mathematica:现代科技计算

运行界面

效果如图

全部代码

ReName[img_, size_] := (
   FileNameJoin[Insert[FileNameSplit[img], ToString[size], -2]] //
    (If[! DirectoryQ[#], CreateDirectory[DirectoryName[#]]]; #) &
   );
ReSize[img_, size_] := (
   If[ListQ[img],
    Return[ReSize[#, size] & /@ img]];
   If[StringQ[img] && FileExistsQ[img], 
    Return[Export[ReName[img, size], ReSize[Import[img], size]]]];
   If[ImageQ[img],
    Return[ImageResize[img, size]]];
   Null
   );

Functions = <|
   "缩放到200宽" -> ReSize[f, 200],
   "缩放到500宽" -> ReSize[f, 500]
   |>;

"图片批量缩放器" // Labeled[#,
      FileNameSetter[Dynamic[f], "OpenList"], Right] & // Labeled[#,
     Grid[
      {KeyValueMap[Button[#1, f = #2] &, Functions]}
      ]
     ] & // Labeled[#,
    Dynamic[MatrixForm[f]]] & // Framed

Snowstar Miao
Snowstar Miao.