[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 15# Batcher


   确实,纯白含有很多a28a2800,纯红则是a28a0028这种换了个位置的,很长一大坨连续的这种数据。
上面完全是猜的很不准
网上搜来的用imagemagick等判断图片是否损坏的方法都不会报错,可能这些图片都纠错过,还是用其他方法吧。。。

TOP

回复 11# idwma

这个测试过的确有用。能否改进下把挑选结果移动到一个文件夹下,或 统计输出名字到一个文档出来更完美。

TOP

回复 11# idwma

#@&cls&powershell "type '%~f0'|out-string|iex"&pause&exit
Add-Type -AssemblyName System.Drawing
$cp = New-Object CodeDom.Compiler.CompilerParameters
$cp.ReferencedAssemblies.Add([Reflection.Assembly]::GetAssembly([Drawing.Image]).Location) >$null
$cp.ReferencedAssemblies.Add([Reflection.Assembly]::GetAssembly([Linq.Enumerable]).Location) >$null
$cp.CompilerOptions ='/unsafe'

Add-Type -CompilerParameters $cp -TypeDefinition @'
using System;
using System.Drawing;
using System.Drawing.Imaging;
using System.Collections.Generic;
using System.Linq;

public class test
{
    unsafe public static int main(string f)
    {
        Bitmap bitmap = new Bitmap(@f);
        int width = bitmap.Width;
        int height = bitmap.Height;
        int h = height/2;
        BitmapData bitmapData = bitmap.LockBits(new Rectangle(0, h, width, height-h), ImageLockMode.ReadOnly, PixelFormat.Format32bppArgb);
        byte* p = (byte*)(IntPtr)bitmapData.Scan0;
        Dictionary<int, int> b = new Dictionary<int, int>();
        for (int i = 0; i < width * (height-h) * 4; i+=4)
        {
            int c = (p[i+3] << 24) | (p[i+2] << 16) | (p[i+1] << 8) | p;
            b[c] = b.ContainsKey(c) ? b[c] + 1 : 1;
        }
        bitmap.UnlockBits(bitmapData);
        var d = b.OrderBy(x => x.Value).Select(x => x.Value).ToArray();
        return width*h/(d[d.Length-1]) < 30 ? 1 : 0;
    }
}
'@

mkdir 123
dir *.jpg|%{if([test]::main($_.FullName)){move $_.fullname '123'}}

TOP

回复 11# idwma
我加了你说的创建文件夹那句话过后运行他提示我+ ~~~~~~~~~
    + CategoryInfo          : ResourceExists: (C:\Users\Admin\Desktop\新建文件夹\123:String) [New-Item], IOException
    + FullyQualifiedErrorId : DirectoryExist,Microsoft.PowerShell.Commands.NewItemCommand

move : 另一个进程正在使用此文件,因此该进程无法访问此文件。
所在位置 行:39 字符: 43
+ dir *.jpg|%{if([test]::main($_.FullName)){move $_.fullname '123'}}
+                                           ~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : WriteError: (C:\Users\Admin\Desktop\新建文件夹\003.jpg:FileInfo) [Move-Item], IOException
    + FullyQualifiedErrorId : MoveFileInfoItemIOError,Microsoft.PowerShell.Commands.MoveItemCommand

move : 另一个进程正在使用此文件,因此该进程无法访问此文件。
所在位置 行:39 字符: 43
+ dir *.jpg|%{if([test]::main($_.FullName)){move $_.fullname '123'}}
+                                           ~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : WriteError: (C:\Users\Admin\Desktop\新建文件夹\005.jpg:FileInfo) [Move-Item], IOException
    + FullyQualifiedErrorId : MoveFileInfoItemIOError,Microsoft.PowerShell.Commands.MoveItemCommand

TOP

  1. #@&cls&powershell "type '%~f0'|out-string|iex"&pause&exit
  2. Add-Type -AssemblyName System.Drawing
  3. $cp = New-Object CodeDom.Compiler.CompilerParameters
  4. $cp.ReferencedAssemblies.Add([Reflection.Assembly]::GetAssembly([Drawing.Image]).Location) >$null
  5. $cp.ReferencedAssemblies.Add([Reflection.Assembly]::GetAssembly([Linq.Enumerable]).Location) >$null
  6. $cp.CompilerOptions ='/unsafe'
  7. Add-Type -CompilerParameters $cp -TypeDefinition @'
  8. using System;
  9. using System.Drawing;
  10. using System.Drawing.Imaging;
  11. using System.Collections.Generic;
  12. using System.Linq;
  13. public class test
  14. {
  15.     unsafe public static int main(string f)
  16.     {
  17. Bitmap bitmap = new Bitmap(@f);
  18. int width = bitmap.Width;
  19. int height = bitmap.Height;
  20. int h = height/2;
  21. BitmapData bitmapData = bitmap.LockBits(new Rectangle(0, h, width, height-h), ImageLockMode.ReadOnly, PixelFormat.Format32bppArgb);
  22. byte* p = (byte*)(IntPtr)bitmapData.Scan0;
  23. Dictionary<int, int> b = new Dictionary<int, int>();
  24. for (int i = 0; i < width * (height-h) * 4; i+=4)
  25. {
  26.     int c = (p[i+3] << 24) | (p[i+2] << 16) | (p[i+1] << 8) | p[i];
  27.             b[c] = b.ContainsKey(c) ? b[c] + 1 : 1;
  28. }
  29. bitmap.UnlockBits(bitmapData);
  30.         bitmap.Dispose();
  31. var d = b.OrderBy(x => x.Value).Select(x => x.Value).ToArray();
  32. return width*h/(d[d.Length-1]) < 30 ? 1 : 0;
  33.     }
  34. }
  35. '@
  36. mkdir 123
  37. $a=dir *.jpg|%{if([test]::main($_.FullName)){move $_.fullname '123'}}
复制代码
2

评分人数

TOP

OK 完美测试通过,非常好的脚本,建议收藏

TOP

回复 20# idwma


感谢感谢,达到效果了

TOP

返回列表