Тема: AHK: Send до знака
У меня есть функция Send которая выводит текст книги из txt файла.
Как сделать чтобы она выводила текст только до точки ?
Re: AHK: Send до знака
У меня получилось так:
1::
Text = Серый форум.Разработка скриптов
RegExMatch(Text, "(.*[.])", Result)
StringTrimRight, Result1, Result1, 1
SendInput, % Result1Как сказал мой дед - Я твой дед
- Рейтинг : [940|0]
Re: AHK: Send до знака
sergeiplugatyr пишет:
У меня получилось так
Плохо получилось, читайте хелп по RegEx.
Re: AHK: Send до знака
teadrinker пишет:
sergeiplugatyr пишет:У меня получилось так
Плохо получилось, читайте хелп по RegEx.
Читал, другого варианта у меня не получается.
Как сказал мой дед - Я твой дед
- Рейтинг : [940|0]
Re: AHK: Send до знака
sergeiplugatyr пишет:
Читал
Не верю. Например, зачем там квадратные скобки? Они обычно используются для объединения списка символов, когда может использоваться любой из них. А тут в них всего один. Понятно, что схватили первое, что под руку попалось. 
Re: AHK: Send до знака
Раскусили вы меня, я читал но много не понял.
Как сказал мой дед - Я твой дед
- Рейтинг : [940|0]
Re: AHK: Send до знака
Смотрите, ваш вариант не работает:
Text = Серый форум.Разработка скриптов.
RegExMatch(Text, "(.*[.])", Result)
StringTrimRight, Result1, Result1, 1
MsgBox, % Result1Правильно:
Text = Серый форум.Разработка скриптов.
RegExMatch(Text, "(.*?)\.", Result)
MsgBox, % Result1
; или
MsgBox, % RegExReplace(Text, "s)(.*?)\..*", "$1")Re: AHK: Send до знака
Почитав, немного "укоротил" код:
1::
Text = Серый форум.Разработка скриптов
RegExMatch(Text, "(.*)\.", Result)
SendInput, % Result1Как сказал мой дед - Я твой дед
- Рейтинг : [940|0]
Re: AHK: Send до знака
Так тоже не сработает, если
Text = Серый форум.Разработка скриптов.Re: AHK: Send до знака
Действительно, значок "?" знает свое дело 
.
Как сказал мой дед - Я твой дед
11 2014-01-31 22:37:26 (изменено: serzh82saratov, 2014-01-31 22:37:37)
- Рейтинг : [425|0]
Re: AHK: Send до знака
Для такого случая мучать RegEx избыточно, только если в целях ознакомления на простой задаче.
Text = Серый форум.Разработка скриптов.
MsgBox % SubStr(Text, 1, InStr(Text, ".")-1)
По вопросам возмездной помощи пишите на E-Mail: serzh82saratov@mail.ru Telegram: https://t.me/sergiol982
Win10x64 AhkSpy, Hotkey, ClockGui
Win10x64 AhkSpy, Hotkey, ClockGui
- Рейтинг : [940|0]
Re: AHK: Send до знака
Не знаю, в твоём варианте используются 2 функции вместо одной.
13 2014-01-31 23:07:59 (изменено: serzh82saratov, 2014-01-31 23:10:54)
- Рейтинг : [425|0]
Re: AHK: Send до знака
Справка пишет:
To search for a simple substring inside a larger string, use InStr() because it is faster than RegExMatch().
Ну так эти функции намного проще, в сравнении с RegEx.?
По вопросам возмездной помощи пишите на E-Mail: serzh82saratov@mail.ru Telegram: https://t.me/sergiol982
Win10x64 AhkSpy, Hotkey, ClockGui
Win10x64 AhkSpy, Hotkey, ClockGui
- Рейтинг : [940|0]
Re: AHK: Send до знака
Насчёт скорости — тут экспериментировать нужно, что будет быстрее. Для начинающих, конечно, проще твой вариант, для меня без разницы.
- Рейтинг : [425|0]
Re: AHK: Send до знака
У меня получилось в 6 раз быстрее:
Text = Серый форум.Разработка скриптов.
Start := A_TickCount
Loop 1000000
SubStr(Text, 1, InStr(Text, ".")-1)
MsgBox % A_TickCount - StartText = Серый форум.Разработка скриптов.
Start := A_TickCount
Loop 1000000
RegExReplace(Text, "s)(.*?)\..*", "$1")
MsgBox % A_TickCount - StartПо вопросам возмездной помощи пишите на E-Mail: serzh82saratov@mail.ru Telegram: https://t.me/sergiol982
Win10x64 AhkSpy, Hotkey, ClockGui
Win10x64 AhkSpy, Hotkey, ClockGui
- Рейтинг : [425|0]
Re: AHK: Send до знака
И в 3 раза быстрее RegExMatch:
Text = Серый форум.Разработка скриптов.
Start := A_TickCount
Loop 1000000
RegExMatch(Text, "(.*?)\.", Result)
MsgBox % A_TickCount - Start
По вопросам возмездной помощи пишите на E-Mail: serzh82saratov@mail.ru Telegram: https://t.me/sergiol982
Win10x64 AhkSpy, Hotkey, ClockGui
Win10x64 AhkSpy, Hotkey, ClockGui
- Рейтинг : [940|0]
Re: AHK: Send до знака
В реальной ситуации точка будет недалеко от начала текста, и разница не станет принципиальной.
Text = Серый форум Разработка скриптов.
Loop 100000
BigText .= "Серый форум Разработка скриптов."
MsgBox Текст готов.
RegExMatch(BigText, "(.*?)\.", Result)
MsgBox % Result1
MsgBox % RegExReplace(BigText, "s)(.*?)\..*", "$1")- Рейтинг : [425|0]
Re: AHK: Send до знака
Да, так и есть. И даже если нужно последнее предложение, разница на глаз небудет заметна:
Loop 100000
BigText .= "Серый форум.Разработка скриптов"
MsgBox Текст готов.
RegExMatch(BigText, ".*\.(.*)", Result)
MsgBox % Result1
MsgBox % SubStr(BigText, InStr(BigText, ".",,0)+1)
Но думаю что пригодится это учитывать в программах с большими циклами.
По вопросам возмездной помощи пишите на E-Mail: serzh82saratov@mail.ru Telegram: https://t.me/sergiol982
Win10x64 AhkSpy, Hotkey, ClockGui
Win10x64 AhkSpy, Hotkey, ClockGui
- Рейтинг : [940|0]
Re: AHK: Send до знака
Согласен.
