Поиск цифр на картинке

adiv18 · 27 Май 2022

Добрый день.
Подскажите пожалуйста каким способом можно найти цифры на картинке(jpg), вырезать эту область картинки и сохранить в отдельный файл ?
буду рад любому похожему примеру.
Спасибо.

Webarion · 30 Май 2022

adiv18 сказал(а):
Добрый день.
Подскажите пожалуйста каким способом можно найти цифры на картинке(jpg), вырезать эту область картинки и сохранить в отдельный файл ?
буду рад любому похожему примеру.
Спасибо.

С примерами здесь не просто. Здесь проще с советами. Из того, что я понимаю в этой теме, вариантов парочка:

Если на картинке, определённый шрифт, с определённым размером и с минимальным количеством помех, и вы знаете об этом, то алгоритм возможно создать. Правда придётся затратить на это достаточно ментальных усилий. Это старый вариант, возможно даже не рентабельный.
Использовать нейросеть. Тут либо ищите кто знает и готов делиться (это будет дороже), либо изучайте сами (это будет дешевле, но ценнее для вашего личного опыта)

Norm · 30 Май 2022

Ещё как вариант, использовать стороннюю программу управляемую с помощью Autoit

Webarion · 30 Май 2022

Norm сказал(а):
Ещё как вариант, использовать стороннюю программу управляемую с помощью Autoit

Ну, это само собой скорее всего. Потому-что самому писать, задача только для энтузиастов.
А как вариант, вот ссылка по нейросети, уж цифры то она уже хорошо научилась определять)):
Введение в машинное зрение или работа с нейросетями для самых маленьких
Сам не проверял. Надобности не было.

InnI · 30 Май 2022

Тоже сам не проверял, но... вдруг поможет

UWPOCR - Windows Platform Optical character recognition API Implementation

Hello guys. I recently saw some posts that Windows 10 provides OCR API. So I decided to create a UDF. What's UWPOCR? UWPOCR UDF is a simple library to use Universal Windows Platform Optical character recognition API. Features. Get Text From Image File. Get Text From GDI+ Bitmap. Easy to use. Usag...

www.autoitscript.com

sngr · 30 Май 2022

https://autoit-script.ru/attachments/212-png.5423/?hash=486573c4cdf441c8a3546bd846266ad1

Код:

HotKeySet('1', 'fu1')
HotKeySet('^1', 'ex')
While 1
	Sleep(100)
WEnd
Func fu1()
	Local $x = 255, $y = 206
	Local $aArr[100], $zz = 0, $xt, $yt
	$pi = PixelSearch($x, $y, $x, $y + 300, 0xFFFFFF)
	If @error Then Return 111
	$er = 0
	For $i = 0 To 99
		$er = 0
		If ($y + 16 + 15 * $i) > $pi[1] + 13 Then ExitLoop
		PixelSearch($x + 101, $y + 11 + 15 * $i, $x + 101, $y + 11 + 15 * $i, 0xFFFFFF)
		If Not @error Then $er += 1
		PixelSearch($x + 101, $y + 12 + 15 * $i, $x + 101, $y + 12 + 15 * $i, 0xFFFFFF)
		If Not @error Then $er += 1
		PixelSearch($x + 101, $y + 14 + 15 * $i, $x + 101, $y + 14 + 15 * $i, 0xFFFFFF)
		If Not @error Then $er += 1
		If $er = 3 Then ContinueLoop
		ConsoleWrite('@@@@@@@@@@@@' & @LF)
		$app = PixelSearch($x + 191, $y + 17 + 15 * $i, $x + 400, $y + 17 + 15 * $i, 0xFFFFFF);запятая
		If Not @error Then ConsoleWrite('app ' & $app[0] - 102 & ',' & $app[1] - 6 & @LF)
		$depos = PixelSearch($app[0] - 85, $app[1], $app[0] - 175, $app[1], 0xFFFFFF); deposit p понизу
		Select
			Case Not @error
				$xt = $depos[0] + 78
				$yt = $depos[1] - 6
			Case @error
				$tmp1 = PixelSearch($app[0] - 102, $app[1] - 6, $app[0] - 125, $app[1] - 6, 0xFFFFFF); transfered
				If @error Then ContinueLoop ;
				ConsoleWrite('$tmp1 ' & $tmp1[0] & ',' & $tmp1[1] & @LF)
				PixelSearch($tmp1[0] + 6, $tmp1[1], $tmp1[0] + 6, $tmp1[1], 0xFFFFFF); transfered To
				If Not @error Then $xt = $tmp1[0] + 29
				If Not @error Then $yt = $tmp1[1]
				PixelSearch($tmp1[0] - 6, $tmp1[1], $tmp1[0] - 6, $tmp1[1], 0xFFFFFF);transfereD to
				If Not @error Then $xt = $tmp1[0] + 23
				If Not @error Then $yt = $tmp1[1]
				PixelSearch($tmp1[0] - 1, $tmp1[1], $tmp1[0] - 1, $tmp1[1], 0xFFFFFF);transFered to
				If Not @error Then $xt = $tmp1[0] + 51
				If Not @error Then $yt = $tmp1[1]
		EndSelect
		Select
			Case $xt
				$os1 = osr($xt, $yt)
				$os2 = osr(@extended + 40, $yt)
				$aArr[$zz] = $os1
				$aArr[$zz + 1] = $os2
				$zz += 2
		EndSelect
		$xt = 0
	Next
EndFunc   ;==>fu1
Func osr($x = 205, $y = 168)
	Local $str
	$Timer = TimerInit()
	While TimerDiff($Timer) < 1000
		PixelSearch($x + 1, $y, $x + 1, $y + 5, 0xFFFFFF)
		Select
			Case @error
;~ 				ConsoleWrite('$x+1' & @LF)
				PixelSearch($x + 2, $y, $x + 2, $y + 5, 0xFFFFFF)
				Select
					Case @error
;~ 						ConsoleWrite('$x+2' & @LF)
						PixelSearch($x + 3, $y, $x + 3, $y + 5, 0xFFFFFF)
						Select
							Case @error
;~ 	 								ConsoleWrite(@LF& @LF & @LF & @LF & @LF & @LF & @LF & @LF&  $str& @LF)
								ConsoleWrite($str & @LF)
								Return SetError(0, $x, $str)
						EndSelect
					Case Else
						$x += 1
;~ 						ConsoleWrite('$x+' &$x& @LF)
				EndSelect
		EndSelect
		$di = dig($x, $y)
		$x += @error
		Select
			Case @extended = 12
			Case @extended = 11
				$str &= '.'
			Case Else
				$str &= @extended
		EndSelect
;~ 		ConsoleWrite($di & @LF)
;~ 		ConsoleWrite('x '&$x & @LF)
		Sleep(40)
	WEnd
	If TimerDiff($Timer) > 1000 Then ConsoleWrite('tim' & @LF)
EndFunc   ;==>osr
Func dig($ix = 150, $iy = 175)
	PixelSearch($ix + 2, $iy, $ix + 2, $iy, 0xFFFFFF)
	Select;1
		Case Not @error
			PixelSearch($ix + 2, $iy + 1, $ix + 2, $iy + 1, 0xFFFFFF)
			Select
				Case Not @error
					PixelSearch($ix + 2, $iy + 5, $ix + 2, $iy + 5, 0xFFFFFF)
					Select
						Case Not @error
							Return SetError(4, 1, 0)
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy, $ix + 1, $iy, 0xFFFFFF)
	Select;2
		Case Not @error
			PixelSearch($ix + 1, $iy + 4, $ix + 1, $iy + 4, 0xFFFFFF)
			Select
				Case Not @error
					PixelSearch($ix + 5, $iy + 5, $ix + 5, $iy + 5, 0xFFFFFF)
					Select
						Case Not @error
							Return SetError(6, 2, 0)
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 4, $iy + 3, $ix + 4, $iy + 3, 0xFFFFFF)
	Select;3
		Case Not @error
			PixelSearch($ix + 5, $iy + 3, $ix + 5, $iy + 3, 0xFFFFFF)
			Select
				Case @error
					PixelSearch($ix + 1, $iy + 1, $ix + 1, $iy + 1, 0xFFFFFF)
					Select
						Case @error
							PixelSearch($ix + 1, $iy + 4, $ix + 1, $iy + 4, 0xFFFFFF)
							Select
								Case @error
									PixelSearch($ix + 2, $iy + 3, $ix + 2, $iy + 3, 0xFFFFFF)
									Select
										Case Not @error
											Return SetError(6, 3, 0)
									EndSelect
							EndSelect
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy + 3, $ix + 1, $iy + 3, 0xFFFFFF)
	Select;4
		Case Not @error
			PixelSearch($ix + 2, $iy + 2, $ix + 2, $iy + 2, 0xFFFFFF)
			Select
				Case Not @error
					PixelSearch($ix + 3, $iy + 1, $ix + 3, $iy + 1, 0xFFFFFF)
					Select
						Case Not @error
							Return SetError(7, 4, 0)
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy, $ix + 1, $iy, 0xFFFFFF)
	Select;5
		Case Not @error
			PixelSearch($ix + 5, $iy, $ix + 5, $iy, 0xFFFFFF)
			Select
				Case Not @error
					PixelSearch($ix + 1, $iy + 1, $ix + 1, $iy + 1, 0xFFFFFF)
					Select
						Case Not @error
							Return SetError(6, 5, 0)
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy + 1, $ix + 1, $iy + 1, 0xFFFFFF)
	Select;6
		Case Not @error
			PixelSearch($ix + 5, $iy + 1, $ix + 5, $iy + 1, 0xFFFFFF)
			Select
				Case @error
					PixelSearch($ix + 1, $iy + 4, $ix + 1, $iy + 4, 0xFFFFFF)
					Select
						Case Not @error
							Return SetError(6, 6, 0)
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy, $ix + 1, $iy, 0xFFFFFF)
	Select;7
		Case Not @error
			PixelSearch($ix + 3, $iy + 3, $ix + 3, $iy + 3, 0xFFFFFF)
			Select
				Case Not @error
					PixelSearch($ix + 4, $iy + 2, $ix + 4, $iy + 2, 0xFFFFFF)
					Select
						Case Not @error
							Return SetError(6, 7, 0)
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy + 1, $ix + 1, $iy + 1, 0xFFFFFF)
	Select;8
		Case Not @error
			PixelSearch($ix + 1, $iy + 4, $ix + 1, $iy + 4, 0xFFFFFF)
			Select
				Case Not @error
					PixelSearch($ix + 5, $iy + 1, $ix + 5, $iy + 1, 0xFFFFFF)
					Select
						Case Not @error
							PixelSearch($ix + 5, $iy + 4, $ix + 5, $iy + 4, 0xFFFFFF)
							Select
								Case Not @error
									PixelSearch($ix + 2, $iy + 2, $ix + 2, $iy + 2, 0xFFFFFF)
									Select
										Case Not @error
											Return SetError(6, 8, 0)
									EndSelect
							EndSelect
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy + 1, $ix + 1, $iy + 1, 0xFFFFFF)
	Select;9
		Case Not @error
			PixelSearch($ix + 1, $iy + 4, $ix + 1, $iy + 4, 0xFFFFFF)
			Select
				Case @error
					PixelSearch($ix + 5, $iy + 4, $ix + 5, $iy + 4, 0xFFFFFF)
					Select
						Case Not @error
							PixelSearch($ix + 5, $iy + 1, $ix + 5, $iy + 1, 0xFFFFFF)
							Select
								Case Not @error
									Return SetError(6, 9, 0)
							EndSelect
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 1, $iy + 1, $ix + 1, $iy + 1, 0xFFFFFF)
	Select;0
		Case Not @error
			PixelSearch($ix + 1, $iy + 4, $ix + 1, $iy + 4, 0xFFFFFF)
			Select
				Case Not @error
					PixelSearch($ix + 5, $iy + 1, $ix + 5, $iy + 1, 0xFFFFFF)
					Select
						Case Not @error
							PixelSearch($ix + 5, $iy + 4, $ix + 5, $iy + 4, 0xFFFFFF)
							Select
								Case Not @error
									PixelSearch($ix + 2, $iy + 2, $ix + 2, $iy + 2, 0xFFFFFF)
									Select
										Case @error
											PixelSearch($ix + 2, $iy + 3, $ix + 2, $iy + 3, 0xFFFFFF)
											Select
												Case @error
													Return SetError(6, 0, 0)
											EndSelect
									EndSelect
							EndSelect
					EndSelect
			EndSelect
	EndSelect
	PixelSearch($ix + 2, $iy + 6, $ix + 2, $iy + 6, 0xFFFFFF)
	Select; ,
		Case Not @error
			Return SetError(3, 12, 0)
	EndSelect
	PixelSearch($ix, $iy, $ix + 1, $iy + 4, 0xFFFFFF)
	Select; .
		Case @error
			PixelSearch($ix + 2, $iy, $ix + 3, $iy + 4, 0xFFFFFF)
			Select
				Case @error
					PixelSearch($ix + 1, $iy, $ix + 1, $iy + 5, 0xFFFFFF)
					Select
						Case Not @error
							PixelSearch($ix + 2, $iy, $ix + 2, $iy + 5, 0xFFFFFF)
							Select
								Case Not @error
									Return SetError(3, 11, 0)
							EndSelect
					EndSelect
			EndSelect
	EndSelect

	Return -1
EndFunc   ;==>dig
Func ex()
	Exit
EndFunc   ;==>ex

Вот картина, вот определение с неё цифирь. В fu1 $x = 255, $y = 206 это координаты левого нижнего синего пикселя где Date, их нужно определить руками.

adiv18 · 1 Июн 2022

Спасибо за информацию, по распознаванию понял куда копать, буду разбираться.
Можете еще помочь по второй части задачи - "вырезать область картинки и сохранить в отдельный файл". Тут уже с участием пользователя, процесс будет примерно такой - открыть картинку в GUI, пользователь выделяет нужную область мышкой (как пример, выделение в любом графическом редакторе) и сохраняет эту выделенную область в файл. Не знаю пока как организовать выделение области с сохранение. Любой пример реализации очень бы помог,

InnI · 3 Июн 2022

adiv18 сказал(а):
как организовать выделение области

Выделение области

Необходим скрипт для выделения области с фиксацией четырёх координат прямоугольника а именно лево верх по X/Y и право низ по X/Y. Сейчас у меня это реализовано через две функции на хоткеях. Необходимо "Упростить" для юзверя. Т3: 1) Зажать ЛКМ - Фиксация первых двух координат. 2) Перетаскивание...

autoit-script.ru

adiv18 · 6 Июн 2022

Спасибо.!!!

Norm · 6 Июн 2022

adiv18 сказал(а):
Спасибо.!!!

Правильнее было бы так поблагодарить

Belfigor · 27 Июн 2022

Norm сказал(а):
Правильнее было бы так поблагодарить

Правильнее было бы не отвечать на благодарность вообще, чем лайки попрошайничать.

Norm · 28 Июн 2022

Belfigor сказал(а):
Правильнее было бы не отвечать на благодарность вообще, чем лайки попрошайничать.

Вы вот зашли, и не разобравшись, сразу "шашкой начали махать". На эмоциях даже дизлайк поставили. :biggrin:

Где Вы увидели, что я тут или гдето ещё что-то выпрашиваю.
Я вообще не за себя говорил. В теме моей помощи как таковой нету.
Именно об этом я adiv18 и сказал, что вместо того что бы тему этим безполезным Спасибо поднимать, лучше просто правильно поблагодарить, тех кто помогал. Ну или подробнее написать чей код помог или оказался более эфективнее.
Пройдите по ссылке и нажмёте [Подтвердить], потом посмотрите, кого Вы поблагодарили.
И если посмотрите, то увидите, что adiv18 после этого действительно поблагодарил каждого, кто помог.
В чём я не прав?, и почему Вы так реагируете. :acute:

Belfigor · 7 Июл 2022

Norm сказал(а):
Вы вот зашли, и не разобравшись, сразу "шашкой начали махать". На эмоциях даже дизлайк поставили.
Где Вы увидели, что я тут или гдето ещё что-то выпрашиваю.
Я вообще не за себя говорил. В теме моей помощи как таковой нету.
Именно об этом я adiv18 и сказал, что вместо того что бы тему этим безполезным Спасибо поднимать, лучше просто правильно поблагодарить, тех кто помогал. Ну или подробнее написать чей код помог или оказался более эфективнее.
Пройдите по ссылке и нажмёте [Подтвердить], потом посмотрите, кого Вы поблагодарили.
И если посмотрите, то увидите, что adiv18 после этого действительно поблагодарил каждого, кто помог.
В чём я не прав?, и почему Вы так реагируете.

Как я и написал выше, не надо попрошайничать лайки. Для себя или для кого-то другого - совершенно без разницы. Данные сообщения не несут никакой смысловой нагрузки. Это лишь выклянчивание увеличения бессмысленных ничего не значащих цифр. За сим прошу прекратить флуд.

Автор темы	Похожие темы	Форум	Ответы	Дата
K	поиск статистического адреса CHEAT ENGINE	Разработка ботов	2	19 Мар 2025
M	Поиск слов в тексте файла txt	Общие вопросы по AutoIt	4	17 Мар 2025
I	Автоматизация поиска изображение и нажатия ЛКМ	Стол заказов	3	24 Янв 2025
G	Поиск в памяти игры значений threadstack 0 через cheat engine для ботов и прочего	Боты для игр	0	26 Сен 2024
T	Автоматизация Поиск исполнителя на решение задачи автоматизации выгрузки - загрузки данных между 1С-ками	Покупка/продажа, поиск услуг	2	1 Июл 2024

Поиск

Поиск

Поиск цифр на картинке

adiv18

Новичок

Webarion

Осваивающий

Norm

Продвинутый

Webarion

Осваивающий

InnI

AutoIT Гуру

UWPOCR - Windows Platform Optical character recognition API Implementation

sngr

AutoIT Гуру

Вложения

adiv18

Новичок

InnI

AutoIT Гуру

Выделение области

adiv18

Новичок

Norm

Продвинутый

Belfigor

Модератор

Norm

Продвинутый

Belfigor

Модератор