Серый форум — AHK: Подсчет стоимости по списку

Re: AHK: Подсчет стоимости по списку

null@example.com (ppvladis) — Fri, 28 Nov 2014 16:53:42 +0000

Malcev
Обратите внимание на сообщение 11.
Выложенный мной вариант я уже начал тестировать на тот момент.

teadrinker
Ещё раз спасибо! Протестировал предложенные варианты.
Первый и третий работают стабильно, даже при попадании лишнего в буфер обмена.
В тарой вариант выдает пустую строку.
Разбираться почему нет времени.
Тем более я не до конца с функцией regexmatch.
А я предпочитаю понимать как работает мой скрипт.

Re: AHK: Подсчет стоимости по списку

null@example.com (Malcev) — Tue, 25 Nov 2014 13:06:24 +0000

Malcev
Да действительно есть такая проблем.
И я с ней столкнулся.
Но её легко обойти поставив в начале составные выражения а затем одиночные.

А чем не устраивает вариант teadrinkerа в 10 сообщении?

Re: AHK: Подсчет стоимости по списку

null@example.com (ppvladis) — Tue, 25 Nov 2014 10:01:50 +0000

YMP большое спасибо!
Я там искал но почему то не увидел. И как баран пытался понять гугловский перевод английской версии.
ypppu
Регулярные выражения (RegEx) - краткий справочник
Я читал. Они не содержат описание функции regexmatch.
Malcev
Да действительно есть такая проблем.
И я с ней столкнулся.
Но её легко обойти поставив в начале составные выражения а затем одиночные.

Re: AHK: Подсчет стоимости по списку

null@example.com (ypppu) — Thu, 20 Nov 2014 16:06:13 +0000

ppvladis пишет:

Пытался найти описание функции regexmatch, не нашёл!

Регулярные выражения (RegEx) - краткий справочник

Re: AHK: Подсчет стоимости по списку

null@example.com (Malcev) — Thu, 20 Nov 2014 12:31:59 +0000

Плохой вариант заменять:

StringReplace, spisok, spisok, сыр, 300, all

Так как потом если будет сырный салат, то выйдет заминка.

Re: AHK: Подсчет стоимости по списку

null@example.com (YMP) — Wed, 19 Nov 2014 18:56:21 +0000

http://www.script-coding.com/AutoHotkey/RegExMatch.html

Re: AHK: Подсчет стоимости по списку

null@example.com (ppvladis) — Wed, 19 Nov 2014 18:51:57 +0000

Протестировал свой вариант, работает без сбоев.


3::
MouseClick, left,  619,  385, , ,D ;Верхний левый угол списка
Sleep, 100
MouseMove,  879,  610
Sleep, 100
MouseClick, left,  879,  610, , ,U ;Нижний правый угол списка
Sleep, 100
Send, ^{vk43}       ; Ctrl-C, копирование.
Sleep, 100
StringReplace, spisok, clipboard, %A_Space%, _, all ;замена пробелов подчеркиванием
StringReplace, spisok, spisok, кормовая_свёкла, 3.95, all
StringReplace, spisok, spisok, цветная_капуста, 3.69, all
StringReplace, spisok, spisok, Козье_молоко, 100, all
StringReplace, spisok, spisok, зерно, 0.5, all
StringReplace, spisok, spisok, кукуруза, 1.1, all
StringReplace, spisok, spisok, клевер, 1.34, all
StringReplace, spisok, spisok, рапс, 2.75, all
StringReplace, spisok, spisok, ботва, 8.05, all
StringReplace, spisok, spisok, яйца, 15, all
StringReplace, spisok, spisok, молоко, 80, all
StringReplace, spisok, spisok, подсолнух, 17.8, all
StringReplace, spisok, spisok, василёк, 18.5, all
StringReplace, spisok, spisok, морковь, 0.16, all
StringReplace, spisok, spisok, огурцы, 0.52, all
StringReplace, spisok, spisok, редиска, 1.02, all
StringReplace, spisok, spisok, клубника, 1.44, all
StringReplace, spisok, spisok, помидоры, 1.96, all
StringReplace, spisok, spisok, лук, 2.28, all
StringReplace, spisok, spisok, шпинат, 3.8, all
StringReplace, spisok, spisok, шерсть, 49, all
StringReplace, spisok, spisok, мёд, 70, all
StringReplace, spisok, spisok, майонез, 40, all
StringReplace, spisok, spisok, сыр, 300, all
StringReplace, spisok, spisok, рыбка, 250, all
StringReplace, spisok, spisok, картофель, 4.38, all
StringReplace, spisok, spisok, спаржа, 12.4, all
StringReplace, spisok, spisok, кабачки, 3.3, all
StringReplace, spisok, spisok, Герань, 10.12, all
StringReplace, spisok, spisok, Маргаритка, 3.72, all
StringReplace, spisok, spisok, Йогурт, 300, all
StringReplace, spisok, spisok, Кетчуп, 290, all
pos = 1
price := ""
;msgbox % spisok
while pos := regexmatch(spisok, "([0-9]*)x_([0-9]*.[0-9]*)", found, pos+StrLen(found))
{
   price += found1*found2
}
MouseClick, left,  691,  648, , , D ;
Sleep, 100
MouseMove,  814,  637
Sleep, 100
MouseClick, left,  814,  637, , , U
Sleep, 100
Send, ^{vk43}       ; Ctrl-C, копирование.
Sleep, 100
StringReplace, clipboard, clipboard, ., , all
StringReplace, clipboard, clipboard, ",", ., all
regexmatch(clipboard, "(^[0-9]*)", ceha)
otvet = net
x = 893
if (ceha > price)
{
otvet = da 
x := 619
}
MouseClick, left,  %x%,  703
;msgbox % spisok "`n" price "`n" ceha "`n" otvet " " x

Вышло несколько громоздка.
Вместо ([0-9]) пытался ставить (\d), почему то не срабатывало.
В переменную записывалось пустое значение.
Пытался найти описание функции regexmatch, не нашёл!
Если знаете где есть дайте пожалуйста ссылку.
Еще раз спасибо всем за помощь!

Re: AHK: Подсчет стоимости по списку

null@example.com (ppvladis) — Mon, 17 Nov 2014 08:02:33 +0000

Teadrinker большое спасибо!
Попробую ваши варианты и отпишусь.
Я нашел вариант вариант без сбоев, пока тестирую.
Правда он более громоздкий.
Протестирую выложу и его, может кому пригодится.

Re: AHK: Подсчет стоимости по списку

null@example.com (teadrinker) — Sun, 16 Nov 2014 21:37:10 +0000

Malcev пишет:

"([^\n]*)x_([^\n]*)"

Не учтён вид переноса строк в буфере обмена, правильно так: "([^\n\r]*)x_([^\n\r]*)"

шпинат = 1
зерно = 2
цветная_капуста = 3

clipboard =
( 
135x шпинат
30x зерно
126x цветная капуста
)
StringReplace, clipboard, clipboard, %A_Space%, _, all
pos = 1
price := ""
while pos := regexmatch(clipboard, "([^\n\r]*)x_([^\n\r]*)", found, pos+StrLen(found))
   price += found1*%found2%
msgbox % price

А проще, да и надёжнее так:

шпинат = 1
зерно = 2
цветная_капуста = 3

clipboard =
( 
135x шпинат
30x зерно
126x цветная капуста
)

StringReplace, clipboard, clipboard, %A_Space%, _, all

price := 0
Loop, parse, Clipboard, `n, `r
   RegExMatch(A_LoopField, "(\d+)._(.*)", found)
   , price += found1*%found2%

msgbox % price

Здесь в паттерне "икс" заменён на точку (любой символ), чтобы не возникло путаницы между "икс" и "х" в русской раскладке.

ppvladis пишет:

Согласно списку, скопированному в буфер обмена

Вообще-то такой подход чреват ошибками. В буфер обмена ведь случайно может попасть лишний знак, например пробел. Код ошибки не выдаст, а результат будет неверным. Несколько более надёжным будет такой вариант:

шпинат = 1
зерно = 2
цветная_капуста = 3

clipboard =
( 
135x шпинат
30x зерно
126x цветная капуста
)

price := 0
Loop, parse, Clipboard, `n, `r
{
   RegExMatch(A_LoopField, "(\d+)\S\s+(.*\S)\s*", found)
   found2 := RegExReplace(found2, "\s+", "_")
   price += found1 * %found2%
}

msgbox % price

Он, по-крайней мере, от лишних пробелов спасёт.

Re: AHK: Подсчет стоимости по списку

null@example.com (ppvladis) — Sun, 16 Nov 2014 17:05:29 +0000

Скачал заработало!
Переписал скрипт под себя и столкнулся с новой проблемой.

3::
зерно = 0.5
кукуруза = 1.1
клевер = 1.34
рапс = 2.75 ;
кормовая_свёкла = 3.95 ;
ботва = 8.05 
яйца = 15
молоко = 80
подсолнух = 17.8
василёк = 18.5
морковь = 0.16 ;
огурцы = 0.52 ;
редиска = 1.02
клубника = 1.44
помидоры = 1.96 
лук = 2.28
шпинат = 3.8 
Цветная_капуста = 3.69
шерсть = 49 
мед = 70
майонез = 40
сыр = 300
Рыбка = 250
картофель = 4.38
спаржа = 12.4 
Кабачки = 3.3
Герань = 10.12
Маргаритка = 3.72
Козе_молоко = 100
Йогурт = 300
Кетчуп = 290

StringReplace, clipboard, clipboard, %A_Space%, _, all
pos = 1
price := ""
msgbox % clipboard
while pos := regexmatch(clipboard, "([^\n]*)x_([^\n]*)", found, pos+StrLen(found))
   price += found1*%found2%
msgbox % price
Return

При длине списка больше одной строки. Выскакивает ошибка ( the following variable name contains an illegal cyfracter )
указывающая на переменную второй строки списка.
Причем если при копировании того же списка, пропустив первую строку, ошибка уже указывает на третью переменную.

Re: AHK: Подсчет стоимости по списку

null@example.com (Malcev) — Sun, 16 Nov 2014 13:31:48 +0000

Скачайте актуальную версию.
Ссылка выше.

Re: AHK: Подсчет стоимости по списку

null@example.com (ppvladis) — Sun, 16 Nov 2014 13:23:52 +0000

Версия 1,0,47,06

Re: AHK: Подсчет стоимости по списку

null@example.com (Malcev) — Sun, 16 Nov 2014 12:47:01 +0000

А версия autohotkey последняя?
http://ahkscript.org/

Re: AHK: Подсчет стоимости по списку

null@example.com (ppvladis) — Sun, 16 Nov 2014 12:05:42 +0000

Malcev спасибо, но в строке

while pos := regexmatch(clipboard, "([^\n]*)x_([^\n]*)", found, pos+StrLen(found))

выдает ошибку и я не как не пойму в чем она!

Re: AHK: Подсчет стоимости по списку

null@example.com (Malcev) — Sun, 16 Nov 2014 03:21:01 +0000

Например так:

шпинат = 1
зерно = 2
цветная_капуста = 3

clipboard =
( 
135x шпинат
30x зерно
126x цветная капуста
)
StringReplace, clipboard, clipboard, %A_Space%, _, all
pos = 1
price := ""
while pos := regexmatch(clipboard, "([^\n]*)x_([^\n]*)", found, pos+StrLen(found))
   price += found1*%found2%
msgbox % price