我已经完成了以下步骤:
在上面的图片中,我能够找到数字,但是我需要将它们剪切出来以保留顺序等信息。然而,随着数字的增加,间距会发生变化,数字的位置也会改变。
因此,我认为应该先找到一个白色像素点,然后继续查找直到找到一个实心黑色列,然后使用这些点进行简单的剪切。如果有任何帮助,那就太好了。
![图片](https://imgur.com/6hBxJ6s.jpg)
因此,我认为应该先找到一个白色像素点,然后继续查找直到找到一个实心黑色列,然后使用这些点进行简单的剪切。如果有任何帮助,那就太好了。
Sub FindTopBorder(image As MyImage) As Integer
For y = 0 to image.Height - 1
For x = 0 to image.Width - 1
Dim pixel = image.GetPixel(x, y)
If ('Check if pixel is white here with RGB or Color') Then
Return y
End If
Next
Next
' Just in case there are no white pixels or use an exception instead
Return -1
End Sub
http://en.wikipedia.org/wiki/Connected-component_labeling
如果您可以使用库,我相信OpenCV或类似的库可以直接支持此功能。