Function GetColorNum_HSV(x1, y1, x2, y2, color_, sim) y2 = y2 - 1 Dim num num = 0 Dim x, y For x = x1 To x2 For y = y1 To y2 If CmpColor_HSV(x, y, color_, sim) = 0 Then num = num + 1 End If Next Next GetColorNum_HSV = num End Function

Function CmpColor_HSV(x, y, color_, sim)If sim < 0.1 Thensim = 0.1ElseIf sim > 1.0 Thensim = 1.0End IfEnd IfCmpColor_HSV = 1Dim HSV组合,HSV, H, S, V, HSV偏, H偏, S偏, V偏Dim U_color_,icolor_ = Split(color_, "|")U_color_ = UBound(color_)Dim 指定点HSV, 指定点H, 指定点S, 指定点V指定点HSV = Split(dm.Get ...

系统临时文件夹里有很多个子文件夹，有些子文件夹里有几个文件（命名为001或者Z-1之类） 需要实现，遍历所有子文件夹，如果子文件夹里面有（命名为001或者Z-1之类）的文件就把这个子文件夹包括里面的文件一并删除