Серый форум — AHK: Send до знака

Re: AHK: Send до знака

null@example.com (teadrinker) — Fri, 31 Jan 2014 20:00:32 +0000

Согласен.

Re: AHK: Send до знака

null@example.com (serzh82saratov) — Fri, 31 Jan 2014 19:58:42 +0000

Да, так и есть. И даже если нужно последнее предложение, разница на глаз небудет заметна:

 
Loop 100000
   BigText .= "Серый форум.Разработка скриптов"
MsgBox Текст готов.
RegExMatch(BigText, ".*\.(.*)", Result)
MsgBox % Result1
MsgBox % SubStr(BigText, InStr(BigText, ".",,0)+1)

Но думаю что пригодится это учитывать в программах с большими циклами.

Re: AHK: Send до знака

null@example.com (teadrinker) — Fri, 31 Jan 2014 19:39:16 +0000

В реальной ситуации точка будет недалеко от начала текста, и разница не станет принципиальной.

Text = Серый форум Разработка скриптов.
Loop 100000
   BigText .= "Серый форум Разработка скриптов."
MsgBox Текст готов.
RegExMatch(BigText, "(.*?)\.", Result)
MsgBox % Result1
MsgBox % RegExReplace(BigText, "s)(.*?)\..*", "$1")

Re: AHK: Send до знака

null@example.com (serzh82saratov) — Fri, 31 Jan 2014 19:21:33 +0000

И в 3 раза быстрее RegExMatch:


Text = Серый форум.Разработка скриптов.
Start := A_TickCount
Loop 1000000
    RegExMatch(Text, "(.*?)\.", Result)
MsgBox % A_TickCount - Start

Re: AHK: Send до знака

null@example.com (serzh82saratov) — Fri, 31 Jan 2014 19:19:38 +0000

У меня получилось в 6 раз быстрее:

Text = Серый форум.Разработка скриптов.
Start := A_TickCount
Loop 1000000
    SubStr(Text, 1, InStr(Text, ".")-1) 
MsgBox % A_TickCount - Start

Text = Серый форум.Разработка скриптов.
Start := A_TickCount
Loop 1000000
    RegExReplace(Text, "s)(.*?)\..*", "$1")
MsgBox % A_TickCount - Start

Re: AHK: Send до знака

null@example.com (teadrinker) — Fri, 31 Jan 2014 19:13:11 +0000

Насчёт скорости — тут экспериментировать нужно, что будет быстрее. Для начинающих, конечно, проще твой вариант, для меня без разницы.

Re: AHK: Send до знака

null@example.com (serzh82saratov) — Fri, 31 Jan 2014 19:07:59 +0000

Справка пишет:

To search for a simple substring inside a larger string, use InStr() because it is faster than RegExMatch().

Ну так эти функции намного проще, в сравнении с RegEx.?

Re: AHK: Send до знака

null@example.com (teadrinker) — Fri, 31 Jan 2014 18:58:11 +0000

Не знаю, в твоём варианте используются 2 функции вместо одной.

Re: AHK: Send до знака

null@example.com (serzh82saratov) — Fri, 31 Jan 2014 18:37:26 +0000

Для такого случая мучать RegEx избыточно, только если в целях ознакомления на простой задаче.


Text = Серый форум.Разработка скриптов.
MsgBox % SubStr(Text, 1, InStr(Text, ".")-1)

Re: AHK: Send до знака

null@example.com (sergeiplugatyr) — Fri, 31 Jan 2014 18:21:12 +0000

Действительно, значок "?" знает свое дело .

Re: AHK: Send до знака

null@example.com (teadrinker) — Fri, 31 Jan 2014 18:11:12 +0000

Так тоже не сработает, если

Text = Серый форум.Разработка скриптов.

Re: AHK: Send до знака

null@example.com (sergeiplugatyr) — Fri, 31 Jan 2014 18:07:03 +0000

Почитав, немного "укоротил" код:

1::
Text = Серый форум.Разработка скриптов
RegExMatch(Text, "(.*)\.", Result)
SendInput, % Result1

Re: AHK: Send до знака

null@example.com (teadrinker) — Fri, 31 Jan 2014 18:06:41 +0000

Смотрите, ваш вариант не работает:

Text = Серый форум.Разработка скриптов.
RegExMatch(Text, "(.*[.])", Result)
StringTrimRight, Result1, Result1, 1
MsgBox, % Result1

Правильно:

Text = Серый форум.Разработка скриптов.
RegExMatch(Text, "(.*?)\.", Result)
MsgBox, % Result1
; или
MsgBox, % RegExReplace(Text, "s)(.*?)\..*", "$1")

Re: AHK: Send до знака

null@example.com (sergeiplugatyr) — Fri, 31 Jan 2014 17:45:29 +0000

Раскусили вы меня, я читал но много не понял.

Re: AHK: Send до знака

null@example.com (teadrinker) — Fri, 31 Jan 2014 17:42:39 +0000

sergeiplugatyr пишет:

Читал

Не верю. Например, зачем там квадратные скобки? Они обычно используются для объединения списка символов, когда может использоваться любой из них. А тут в них всего один. Понятно, что схватили первое, что под руку попалось.