Серый форум — AHK: if делает неверное сравнение...

Re: AHK: if делает неверное сравнение...

null@example.com (iSerge) — Mon, 01 May 2017 17:47:16 +0000

stealzy
Понял, спасибо, тогда буду дожидаться железа.
За совет спасибо, уже раскидал SendMode до/после ^{vk43}.

Re: AHK: if делает неверное сравнение...

null@example.com (iSerge) — Mon, 01 May 2017 11:34:30 +0000

stealzy
Проблема то уже решена, остался вопрос только по скорости "автомата".
Т.е. это уже от экселя зависит, а не от железа/ahk? Я спрашиваю потому, что ожидается обновление железа в ближайшее время и интересует, стоит ли дождаться его, что бы все это быстрее сделалось или же ждать смысла нет ибо на скорость выполнения это не повлияет?
Indomito
За совет спасибо, почитаю что и для чего можно использовать.
Однако, в данном случае, уже готово решение, которое меня устраивает.

Re: AHK: if делает неверное сравнение...

null@example.com (Indomito) — Sun, 30 Apr 2017 22:31:18 +0000

iSerge
Я извиняюсь, что вклиниваюсь в вашу милую беседу.
Может стоит использовать проверенные средства?
Например Microsoft Visual Studio Professional там есть ну скажем куча языков и готовые библиотеки, если денег жалко или не знаешь где скачать, то я могу дать Microsoft Visual Studio 2010 Express, она бесплатная и обрезанная, но всё делает + она проще.

Бесплатное ПО от Microsoft

Re: AHK: if делает неверное сравнение...

null@example.com (iSerge) — Sun, 30 Apr 2017 13:24:32 +0000

stealzy
Ну, например, делает не то, что нужно (Goto тоже иногда то встанет, то сделает не то, что нужно. На параметре SetKeyDelay 33, но реже, чем это делает вариант с Loop. А на более высоких значениях (~60) оба нормально работают).
Просто интересно, это уже от того, что проц у меня не очень, а при наличии более быстрого проца и параметр у SetKeyDelay можно меньше ставить? (Или других комплектующих ПК) Или это "предельные скорости" самого ahk?

Re: AHK: if делает неверное сравнение...

null@example.com (iSerge) — Sun, 30 Apr 2017 09:34:25 +0000

stealzy
Доделал вариант с Loop, что бы автоматом переходил к следующим артикулам, однако, при одинаковых значениях SetKeyDelay 33, вариант с Goto показал себя более надежно (меньше сбоев, не тех действий).
Может, моя вина опять, в Loop не доразобрался? Хотя, при SetKeyDelay 60 Loop не сбоит, но 60 слишком медленно.

Loop


CoordMode, Mouse , Screen
SetKeyDelay 33

Numpad9::
	{
		Reload
		return
	}

\::

	Loop {
		var100:=""
		var101:=""
		nstroki:=0
		clipboard := ""
		Send ^{vk43}
		ClipWait 10
		StringReplace, clipboard, clipboard, `r`n,,All
		var100 := clipboard	;;, clipboard := ""
		Send {down}^{vk43}
		ClipWait 10
		StringReplace, clipboard, clipboard, `r`n,,All
		var101 := clipboard
	
		Loop {
			
			If InStr(var100, "_") {
				Loop {
					Send, ^{vk43}
					ClipWait 10
					StringReplace, clipboard, clipboard, `r`n,,All
					var101=%clipboard%
					If InStr(var101, "_") {
						send, {down}
						Continue
					}
					Else Break
				}
				Break
			}
			Else If InStr(var101, "_") {
				if (nstroki=0) {
					send {up}{LShift down}{right}{LShift up}
					MouseClick left, 280, 100
					Send, {down %nstroki%}{down}
					var100+=1				
				}
				else if (nstroki>0) {
					send {up}{up %nstroki%}{LShift down}{right}{LShift up}^{vk43}{LShift down}{down %nstroki%}{LShift up}^{vk56}{down %nstroki%}{down}
					var100+=1	
				}
				else {
					msgbox if __ error
				}
			}
			Else If (var100>var101) {
				nstroki+=1
				clipboard := ""
				send {down}^{vk43}
				ClipWait 10
				StringReplace, clipboard, clipboard, `r`n,,All
				var101 := clipboard
				Continue
			}
			else if (var1000)	{
					send {up}{up %nstroki%}{LShift down}{right}{LShift up}^{vk43}{LShift down}{down %nstroki%}{LShift up}^{vk56}
					Send, {down %nstroki%}{down}
					var100+=1	
				}
				else {
					msgbox if var100

Goto


CoordMode, Mouse , Screen
SetKeyDelay 33

Numpad9::
	{
		send, {LShift up}{Ctrl up}
		Reload
		return
	}

\::
nachalo:
var100=
var101=
nstroki=0
var55=0
Send, ^{vk43}
sleep 1
StringReplace, clipboard, clipboard, `r`n,,All
sleep 1
var100=%clipboard%
send, {down}
Send, ^{vk43}
sleep 1
StringReplace, clipboard, clipboard, `r`n,,All
sleep 1
var101=%clipboard%
start:
;;stringreplace, var100,var100,`n,,all
;;stringreplace, var101,var101,`n,,all
;;msgbox %var100% %var101%
IfInString, var101, _												;; if __
	{
		if (nstroki=0)													;; if __ =0
			{
			send, {up}{LShift down}{right}{LShift up}
			MouseClick, left, 280, 100
			MouseMove, 195, 637
			send, {down %nstroki%}{down}
			var100+=1
			goto next													;; goto next
			}
		else if (nstroki>0)												;; if __ >0
			{
			send, {up}{up %nstroki%}{LShift down}{right}{LShift up}
			Send, ^{vk43}
			send, {LShift down}{down %nstroki%}{LShift up}
			Send, ^{vk56}
			send, {down %nstroki%}{down}
			var100+=1
			goto next													;; goto next
			}
		else
			{
			msgbox if __ error
			return
			}
	}
else if (var100>var101)													;; if var100>var101
	{
	nstroki+=1
	send, {down}
	Send, ^{vk43}
	sleep 1
	StringReplace, clipboard, clipboard, `r`n,,All
	sleep 1
	var101=%clipboard%
	goto start
	}
else if (var1000)												;; if var1000
			{
			send, {up}{up %nstroki%}{LShift down}{right}{LShift up}
			Send, ^{vk43}
			send, {LShift down}{down %nstroki%}{LShift up} 
			Send, ^{vk56}
			send, {down %nstroki%}{down}
			var100+=1
			goto next													;; goto next
			}
		else
			{
			msgbox if var100



Re: AHK: if делает неверное сравнение...
null@example.com (iSerge) — Sat, 29 Apr 2017 13:49:01 +0000
stealzy
Благодарю!
Моя версия иногда сбоит, сейчас потестю вашу.


Re: AHK: if делает неверное сравнение...
null@example.com (stealzy) — Sat, 29 Apr 2017 13:38:51 +0000
Без goto:
SetKeyDelay 30
var100:="", var101:="", nstroki:=0, var55:=0

\::
	clipboard := ""
	Send ^{vk43}
	ClipWait 1
	var100 := clipboard, clipboard := ""
	Send {down}^{vk43}
	ClipWait 1
	var101 := clipboard

	Loop {
		Msgbox % var100 " " var101

		If InStr(var101, "____") {
			if (nstroki=0) {
				send {up}{LShift down}{right}{LShift up}
				MouseClick left, 280, 100
				MsgBox next
			}
			else if (nstroki>0) {
				send {up}{up %nstroki%}{LShift down}{right}{LShift up}^{vk43}{LShift down}{down %nstroki%}{LShift up}^{vk56}
				MsgBox next
			}
			else {
				msgbox if __ error
			}
		}
		else if (var100>var101) {
			nstroki+=1
			clipboard := ""
			send {down}^{vk43}
			ClipWait 1
			var101 := clipboard
			Continue
		}
		else if (var1000)	{
				send {up}{up %nstroki%}{LShift down}{right}{LShift up}^{vk43}{LShift down}{down %nstroki%}{LShift up}^{vk56}
				MsgBox next
			}
			else {
				msgbox if var100



Re: AHK: if делает неверное сравнение...
null@example.com (iSerge) — Sat, 29 Apr 2017 12:10:12 +0000
Malcev
Понятно, спасибо.
Добавил в закладки, как-нибудь посижу, почитаю.


Re: AHK: if делает неверное сравнение...
null@example.com (Malcev) — Sat, 29 Apr 2017 11:59:51 +0000
Ваш вариант менее надежный (зависит от нажатий клавиш) и более медленный (слипы).
А через апи библиотеку вы даёте команды напрямую приложению.


Re: AHK: if делает неверное сравнение...
null@example.com (iSerge) — Sat, 29 Apr 2017 11:44:57 +0000
Malcev
Я, конечно, не знаю каким методом там происходит работа, но, помимо описанных мной требований к вносимым изменениям, имеются еще несколько условий, встречающихся крайне редко (внесение этих условий в скрипт - затормозит скорость выполнения. Проще ручками при визуальном обнаружении во время слежения за правильнотью хода и полнотой выполнения).
Поэтому я решил все таки остановиться на моем варианте, ввиду отсутствия необходимости в чем либо дополнительно разбираться, а так же его достаточности для моих нужд в конкретном варианте.
Если не сложно, можете вкратце описать, чем тот вариант будет лучше и принцип его работы? Он работает в фоне или так же, в активном окне? Спасибо.


Re: AHK: if делает неверное сравнение...
null@example.com (Malcev) — Sat, 29 Apr 2017 11:01:16 +0000
iSerge, а чем вам не понравилось предложение stealzy автоматизировать через COM?


Re: AHK: if делает неверное сравнение...
null@example.com (iSerge) — Sat, 29 Apr 2017 09:43:24 +0000
stealzy
Спасибо за знакомство с "SetKeyDelay"!
По поводу Goto next - там будет прокрутка до следующего артикула, в случае кучи строк с "___".
Хотя, после вашего сообщения, думаю затисать это в условие с "___".
Alectric
Спасибо! Проблема решилась по вашей наводке.
Только `n не помогало, заменил на `r`n.
Думал конечно, что может быть из-за ентеров, только до этого момента же все норм было.
Главное, проблема решена, еще раз спасибо за помощь!


Re: AHK: if делает неверное сравнение...
null@example.com (Flasher) — Sat, 29 Apr 2017 05:20:12 +0000
iSerge
Ознакомьтесь с правилами полностью. В частности:
Избегайте избыточного цитирования! Не цитируйте пост, на который отвечаете, целиком. Используйте цитирование только в том случае, если иначе не будет понятно, на что Вы отвечаете, и старайтесь выбирать только ключевые фразы.
Вместо полных цитат последних постов участников достаточно обращений по нику (см. в правый угол поста). Прошу принять во внимание и исправить в своих постах. Тем более не нужно цитировать модераторские обращения, достаточно выполнить просьбу.


Re: AHK: if делает неверное сравнение...
null@example.com (Alectric) — Sat, 29 Apr 2017 04:55:18 +0000
В переменную ентер затисался.
var100:=7161259 "`n", var101:=8
msgbox % var100 " " var101 ; - тут "7161259" и "8"
IfInString, var101, ___ ; 1ое условие, проверка на "____", не подходит
	MsgBox ok
else if (var100>var101) ; 2ое условие (если (7161259>8)), не подходит!!! <<<
	MsgBox Опять врешь
else if (var100
Чисть переменные от ентеров перед сравнением.
stringreplace,var100,var100,`n,,all
stringreplace,var101,var101,`n,,all



Re: AHK: if делает неверное сравнение...
null@example.com (stealzy) — Fri, 28 Apr 2017 19:56:04 +0000
Без Sleep 1 не успевает
SetKeyDelay 30 попробуйте.
Без Goto не обойтись
Да ну? В редакторе замените все "goto next" на "MsgBox next".
var100:=7161259, var101:=8
msgbox % var100 " " var101 ; - тут "7161259" и "8"
IfInString, var101, ___ ; 1ое условие, проверка на "____", не подходит
	MsgBox ok
else if (var100>var101) ; 2ое условие (если (7161259>8)), не подходит!!! <<<
	MsgBox Опять врешь
else if (var100
Еще какие претензии к If остались?
Метки nachalo и start не нужны. На месте метки start делаете цикл, на месте goto start ставите continue.
Return из процедуры по горячей клавише / не обозначен.
Вообще ничего путного из такой работы с экселем через нажатия клавиш не выйдет.
Если "ексель не нужен" используйте ahk gui. Если нужен, используйте предназначенные для него средства.