遍历图片，如何判断错误图片。

ning84

1. ''
   
2. Function TraverseFile(oFolder As Folder, Dict As Dictionary)
   
3.     Dim oFile As File
   
4.        For Each oFile In oFolder.Files
   
5.            If InStr(UCase(oFile.Name), "IMG") > 0 Or InStr(UCase(oFile.Name), "SCREEN") > 0 Then
   
6.                 Set Dict(oFile.Path) = oFile
   
7.                 'Set Dict = TraverseFile(oFile, Dict)
   
8.            End If
   
9.        Next oFile
   
10.         ''
    
11.         Set TraverseFile = Dict
    
12. End Function
    

复制代码

tanglf188

判断是否为图片还是用TYPE吧，你这枚举难免有遗漏

gwjkkkkk

可通过文件头判断是否为图片文件

gwjkkkkk

这个AI代码。。。
Function IsPictureFile(filePath As String) As Boolean
    Dim fileNumber As Integer
    Dim fileHeader As String
    Dim pictureHeaders As Variant
    Dim i As Integer
   
    ' 文件描述符
    fileNumber = FreeFile()
   
    ' 打开文件用于二进制读取
    Open filePath For Binary As #fileNumber
   
    ' 读取前8个字节（通常足够判断文件类型）
    fileHeader = Space$(8)
    Get #fileNumber, 1, fileHeader
   
    ' 关闭文件
    Close #fileNumber
   
    ' 图片文件头部信息
    pictureHeaders = Array( _
        "FFD8FFE0", "FFD8FFE1", "FFD8FFE8", "FFD9", "89504E47", _
        "47494638", "0A000200", "00000022", "00000018", "49492A00", _
        "424D", "4D42", "414331303130313800", "000001BA", "000001B3")
   
    ' 判断文件头是否匹配图片文件头部信息
    For i = LBound(pictureHeaders) To UBound(pictureHeaders)
        If HexToString(Left$(fileHeader, Len(pictureHeaders(i)))) = pictureHeaders(i) Then
            IsPictureFile = True
            Exit Function
        End If
    Next i
   
    IsPictureFile = False
End Function

' 将十六进制字符串转换为二进制字符串
Function HexToString(hexStr As String) As String
    Dim i As Integer
    Dim bStr As String
    For i = 1 To Len(hexStr) Step 2
        bStr = bStr & Chr$("&H" & Mid$(hexStr, i, 2))
    Next i
    HexToString = bStr
End Function

ning84

gwjkkkkk 发表于 2024-4-17 20:32
这个AI代码。。。
Function IsPictureFile(filePath As String) As Boolean
    Dim fileNumber As Integ ...

谢谢指点和回复，按现在图片处理知识水平很难消化理解。必须花时间和精力，慢慢消化理解。