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

[其他] [已解决]能把拉花的照片从众多照片里面剔出来吗?

<a href="https://imgse.com/i/pCWQcjO"><img src="https://s1.ax1x.com/2023/07/11/pCWQcjO.md.jpg" alt="pCWQcjO.jpg" border="0" /></a>https://s1.ax1x.com/2023/07/11/pCWQcjO.jpg
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

如题,能不能处理这种照片,或者说从众多的照片里面把这些拉花的照片找出来

TOP

本帖最后由 pd1 于 2023-7-11 20:49 编辑

需要多发几张有问题和没问题的图片做数据对比。
类似opencv这样的程序的来处理

TOP

回复 3# pd1 <img src="https://pic.imgdb.cn/item/64adfe8b1ddac507cc7eabc4.jpg">

TOP

回复 3# pd1 https://pic.imgdb.cn/item/64adfe8b1ddac507cc7eabc4.jpg

TOP

回复 3# pd1 https://pic.imgdb.cn/item/64adfed11ddac507cc7f8f2f.jpg

TOP

回复 3# pd1

TOP

每一张花掉的地方颜色都不一样,不知道怎么搞

TOP

回复 8# pd1


    虽然颜色不一样
但都是在下半部分有色块,颜色数量10左右吧
不知道能不能这样,只统计下半部分所有像素的颜色,按颜色占比来判断

TOP

回复 8# pd1


    好吧

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. var d = b.OrderBy(x => x.Value).Select(x => x.Value).ToArray();
  31. return width*h/(d[d.Length-1]) < 30 ? 1 : 0;
  32.     }
  33. }
  34. '@
  35. dir *.jpg|%{if([test]::main($_.FullName)){$_.fullname}}
复制代码
1

评分人数

TOP

回复 11# idwma

测试能找出拉花的照片了,感谢

TOP

发现纠错的图像都含有很多这样的数据:a28a2800
所以想着直接找出含有这些数据的文件,在busybox for windows里可用
  1. find . -iname "*.jpg" -exec sh -c 'xxd -p "{}" | grep -q "a28a2800"' \; -print
复制代码

TOP

回复 13# wanghan519


    感谢

TOP

回复 13# wanghan519


    你试试用系统自带的画图程序做一个矩形,填充为纯色,例如红色,另存为jpg文件,看看是否也包含这个十六进制串?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表