NIKZZZZ
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
--------------------------------------------------------------------------------
-- ConsoleWritePattern(with_comment)
--
-- Returns the pattern used to find DebugConsoleWrite statements. This must be
-- a function so NewLineInUse() can be called on the correct document.
--
-- Paramters:
-- with_comment - If true, returns the pattern with a leading comment.
--
-- Returns:
-- The pattern used to find DebugConsoleWrite statements.
--------------------------------------------------------------------------------
function AutoItTools:ConsoleWritePattern(with_comment)
local nl = self:NewLineInUse()
if with_comment then
return nl .. "[%s]*;[%s]*(SetError%([^" .. nl .. "]-%) ;### Debug[^" .. nl .. "]+)"
else
return nl .. "[%s]*(SetError%([^" .. nl .. "]-%) ;### Debug[^" .. nl .. "]+)"
end
end -- ConsoleWritePattern()
--------------------------------------------------------------------------------
-- MsgBoxPattern(with_comment)
--
-- Returns the pattern used to find DebugMsgBox statements. This must be
-- a function so NewLineInUse() can be called on the correct document.
--
-- Paramters:
-- with_comment - If true, returns the pattern with a leading comment.
--
-- Returns:
-- The pattern used to find DebugMsgBox statements.
--------------------------------------------------------------------------------
function AutoItTools:MsgBoxPattern(with_comment)
local nl = self:NewLineInUse()
if with_comment then
return nl .. "[%s]*;[%s]*(SetError%([^" .. nl .. "]-%) ;### Debug[^" .. nl .. "]+)"
else
return nl .. "[%s]*(SetError%([^" .. nl .. "]-%) ;### Debug[^" .. nl .. "]+)"
end
end -- MsgBoxPattern()
--------------------------------------------------------------------------------
|
Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 15:59 01-06-2010 | Исправлено: NIKZZZZ, 16:06 01-06-2010 |
|
