求一段能获取文件夹内图片特定属性的代码

lilyhcn1

哈哈，实现读取exif

zl1st

wanghan519 发表于 2022-5-25 13:26
我这转完用PS打开另存不会选中图层（问下PS用的哪个版本我想试试），上网搜了一下，确实有说imagemagick ...

我试着用Get-ChildItem -Recurse *.tif | % {if ((identify -format '%C' $_) -ne 'NONE') {convert $_ tmp.bmp; convert  tmp.bmp $_}}，转成BMP再转回来，部分能转成功，能通过我那个挑剔的软件。问题是有的转、有的不转，同样的文件当前目录转，子目录可能就不转。还有就是能转的几个最后都变成一个了。请看看命令行是不是写的不对。

wanghan519

$_改成$_.FullName吧，这样是完整路径，原来那样写确实不妥

zl1st

wanghan519 发表于 2022-5-27 07:32
$_改成$_.FullName吧，这样是完整路径，原来那样写确实不妥

还是有点问题，转换能过，转换成的TIF能用。接近成功了。
但还是转换后的TIF都是同一个图像，查看中间过程转出的BMP文件是正确的。
测试图发给您，您有时间再试一下。

wanghan519

好像有图层的会多转出几个bmp，所以还是加上layers参数，再在两次转换后加上一句删除tmp bmp试试吧

1. Get-ChildItem -Recurse *.tif | % {if ((identify -format '%C' $_.FullName) -ne 'NONE') {convert +compress -layers merge $_.FullName tmp.bmp; convert tmp.bmp $_.FullName; Remove-Item tmp.bmp}}

复制代码

tspliu

我觉得你走入了一个歧途，你只是要判断tif是否压缩而已，没必要弄那么复杂。刚才特意了解了一下tif格式，你只要读文件tag进行判断就可以了。安装一堆插件不如自己学几十分钟，还能提高一些基础。我并没有写完整代码，自己学习一下吧。帮忙的都肯花时间学习无关的图片格式了，正主也应该学一下吧。

tspliu

注意：上面代码中的偏移量需要从文件头提取，然后再查找压缩标签。

游乐缘

抛砖引玉，自定义函数IsLZW，返回值True或False或为空

游乐缘

IsLZW代码及用法如下：

1. Sub testIsLZW()
   
2. 
   
3. Debug.Print IsLZW("C:\Temp\IsLZW\43.tif")
   
4. Debug.Print IsLZW("C:\Temp\IsLZW\44.tif")
   
5. Debug.Print IsLZW("C:\Temp\IsLZW\999.tif") 'Test
   
6. 
   
7. End Sub
   
8. 
   
9. Function IsLZW(sImage As String)
   
10.     On Error GoTo err
    
11.     If Not Dir(sImage, vbDirectory) = "" Then
    
12.         Dim oIF As Object, oP As Object
    
13.         Set oIF = CreateObject("WIA.ImageFile")
    
14.         oIF.LoadFile sImage
    
15.         Set oP = oIF.Properties 'Item 5 - Name:Compression
    
16.         If oP(5).Value = 5 Then 'LZW
    
17.             IsLZW = True
    
18.         ElseIf oP(5).Value = 1 Then 'Uncompressed
    
19.             IsLZW = False
    
20.         End If
    
21.     End If
    
22. err:
    
23. End Function

复制代码

zl1st

tspliu 发表于 2022-5-27 09:29
我觉得你走入了一个歧途，你只是要判断tif是否压缩而已，没必要弄那么复杂。刚才特意了解了一下tif格式，你 ...

谢谢，已用 perfect131提供的wia代码解决了，您讲的这些我有时间再深入学习。