Серый форум — AHK: Деление значения на "строки", аля Fetch

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Irbis) — Mon, 12 Oct 2015 07:56:59 +0000

adddays := 3
indate := "*** Did your best friend try the Kleptomania? *** 08.10.2015 *** Did your best friend try the Kleptomania? ***"

If !RegExMatch(indate, "(?P\d{2}\.\d{2}\.\d{4})", ti) {
    MsgBox В переменной "indate" не содержится подстрока со временем вида dd.MM.yyyy
    Return
}
; MsgBox % time
outdate := (_:=StrSplit(time,"."))[3] _[2] _[1]
outdate += adddays, days
FormatTime, DayOfWeek, %outdate%, ddd
MsgBox % DayOfWeek
outdate += DayOfWeek="Вс", days
FormatTime, outdate, %outdate%, dd.MM.yyyy
MsgBox % outdate

Скорее всего, отображение дня недели (Вс, Пн и т.д.) зависит от установленного языка системы, то есть в общем случае нужно еще добавить проверки.

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Seva) — Mon, 12 Oct 2015 07:05:13 +0000

А подскажите еще один маленький нюанс, каким образом сделать проверку outdate - если попадает на воскресенье то + 1 день?

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Seva) — Wed, 09 Sep 2015 15:50:12 +0000

serzh82saratov пишет:

Вот сейчас очень сильно удивили, а предложенный мною код не катит?

Спасибо, катит Просто пока разбирался с синтаксисом... Не успел попробовать Еще раз спасибо!

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (serzh82saratov) — Wed, 09 Sep 2015 15:44:53 +0000

Вот сейчас очень сильно удивили, а предложенный мною код не катит?

adddays := 3
indate := "*** Did your best friend try the Kleptomania? *** 21.07.2014 *** Did your best friend try the Kleptomania? ***"

If !RegExMatch(indate, "(?P\d{2}\.\d{2}\.\d{4})", ti) {
    MsgBox В переменной "indate" не содержится подстрока со временем вида dd.MM.yyyy
    Return
}
MsgBox % time
outdate := (_:=StrSplit(time,"."))[3] _[2] _[1] 
outdate += adddays, days
FormatTime, outdate, %outdate%, dd.MM.yyyy
MsgBox % outdate

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Seva) — Wed, 09 Sep 2015 15:42:51 +0000

А можно ли удалить из буфера ВСЕ, кроме \d{2}\.\d{2}\.\d{4} ??

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Seva) — Wed, 09 Sep 2015 15:40:42 +0000

serzh82saratov пишет:

Да какие тут гарантии, если речь про распознаватель текста, мало ли что он ещё по краям понавесит.

Иногда "вешает" Enter

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (serzh82saratov) — Wed, 09 Sep 2015 15:39:57 +0000

Да какие тут гарантии, если речь про распознаватель текста, мало ли что он ещё по краям понавесит.

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Malcev) — Wed, 09 Sep 2015 15:34:52 +0000

Думаю, если хочется удостовериться в 100% правильности даты, то надо еще условий добавить:

adddays := 3
indate := "*** Did your best friend try the Kleptomania? *** 121.25.2014e *** Did your best friend try the Kleptomania? ***"

If !RegExMatch(indate, "(?P\d{2}\.\d{2}\.\d{4})", ti) {
    MsgBox В переменной "indate" не содержится подстрока со временем вида dd.MM.yyyy
    Return
}
outdate := (_:=StrSplit(time,"."))[3] _[2] _[1] 
outdate += adddays, days
FormatTime, outdate, %outdate%, dd.MM.yyyy
MsgBox % outdate

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (serzh82saratov) — Wed, 09 Sep 2015 15:27:25 +0000

Так время не проверить:

var := "2й1.0ё7.20ы14 *** Did your best friend try the Kleptomania? ***" 
msgbox % """" RegexReplace(var," ?\*\*\*.+?\*\*\* ?") """"

Может как то так:

adddays := 3
indate := "*** Did your best friend try the Kleptomania? *** 21.07.2014 *** Did your best friend try the Kleptomania? ***"

If !RegExMatch(indate, "(?P\d{2}\.\d{2}\.\d{4})", ti) {
    MsgBox В переменной "indate" не содержится подстрока со временем вида dd.MM.yyyy
    Return
}
outdate := (_:=StrSplit(time,"."))[3] _[2] _[1] 
outdate += adddays, days
FormatTime, outdate, %outdate%, dd.MM.yyyy
MsgBox % outdate

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Malcev) — Wed, 09 Sep 2015 14:36:27 +0000

var := "21.07.2014"
;var := "21.07.2014 *** Did your best friend try the Kleptomania? ***"
;var := "*** Did your best friend try the Kleptomania? *** 21.07.2014"
msgbox % """" RegexReplace(var," ?\*\*\*.+?\*\*\* ?") """"

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Seva) — Wed, 09 Sep 2015 13:44:08 +0000

Drugoy пишет:

Да, используя IfInString/RegExMatch/RegExReplace.

Спасибо, а на примере покажете? А то я "чайник"
*** Did your best friend try the Kleptomania? *** 21.07.2014
или
21.07.2014 *** Did your best friend try the Kleptomania? ***

Заранее спасибо.

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Drugoy) — Wed, 09 Sep 2015 12:24:34 +0000

Да, используя IfInString/RegExMatch/RegExReplace.

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Seva) — Wed, 09 Sep 2015 10:48:34 +0000

Есть еще один небольшой вопрос: Программа Kleptomania после нескольких распознаваний текста загоняет в буфер всякую рекламу типа - *** Did your best friend try the Kleptomania? *** или *** Kleptomania FAQ is at http://www.structurise.com/kleptomania/faq.htm *** (методом научного тыка выяснил, что реклама добавляется или ДО или ПОСЛЕ данных, скопированных в буфер обмена)
Можно ли как нибудь делать проверку на наличие ненужных символов (допустим ***) в буфере обмена и при наличии их обрезал содержимое буфера до даты, которая мне собственно и нужна?

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (Seva) — Mon, 07 Sep 2015 17:58:31 +0000

Спасибо всем, разобрался.

Re: AHK: Деление значения на "строки", аля Fetch

null@example.com (serzh82saratov) — Mon, 07 Sep 2015 17:58:03 +0000

\d{2}\.

Цифры только две, дальше точка. \ экранирует спец символы. RegEx он и в AutoHotkey RegEx.