用 Mathematica 做的图片批量缩放工具

Mathematica 图片批量缩放工具

准备工作

工具：

• Mathematica 10

运行界面

使用方式代码

使用方式略

全部代码

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

答疑

请在评论提问