AHK: Поиск в буфере обмена по нескольким регекспам

Если известна позиция, а она известна, то можно вычислить сработавший шаблон по этому признаку. Например, если "FoundPos" равен единице — сработал первый шаблон, иначе если "FoundPos" плюс "LastLine" равно длине строки — сработал второй шаблон, а если не то и не другое, то — третий.

Ещё можно поместить шаблоны в массив и в цикле передавать их по очереди, пока "FoundPos" не отличается от нуля, тогда, сработавший шаблон вычисляется по текущему индексу цикла.

Поясните пожалуйста. Я понял ситуацию так:

str1 := "text  text"
str2 := " text"
str3 := "text "
	
r01 = (^\s+) ; Начальные пробелы.
r02 = (\s+$) ; Конечные пробелы.
r03 = (\s{2,}) ; Несколько пробелов подряд.

Loop 3 {
	current_str := str%A_Index%
	; Таких переменных может быть и около сотни.
	FoundPos := RegExMatch(current_str, "P)(" r01 "|" r02 "|" r03 ")", LastLine)
	MsgBox Позиция %FoundPos%`nДлина совпадения %LastLine%.
	
	if (FoundPos == 1)
		MsgBox, В строке - '%current_str%'`nШаблон №1 - '%r01%'
	else if (FoundPos + LastLine - 1 == StrLen(current_str))
		MsgBox, В строке - '%current_str%'`nШаблон №2 - '%r02%'
	else if (FoundPos)
		MsgBox, В строке - '%current_str%'`nШаблон №3 - '%r03%'
	else
		MsgBox, В строке - '%current_str%'`nНичего не найдено
	
	For i, reg_ex in [r01, r02, r03] {
		if (FoundPos := RegExMatch(current_str, "P)(" reg_ex ")", LastLine)) {
			MsgBox,% Format("В строке - '{}'`nШаблон №{} - '{}'", current_str, i, reg_ex)
		}
	}
}

Очевидно — "r2". Разве нет?

str := "ab"
r1 := "(cd)"
r2 := "(ab)"

For i, reg_ex in [r1, r2] {
	if (FoundPos := RegExMatch(str, "P)(" reg_ex ")", LastLine)) {
		MsgBox,% Format("В строке - '{}'`nШаблон №{} - '{}'", str, i, reg_ex)
	}
}

Возможно, Вы правы, но на мой взгляд, автор обозначил это решение как подход, которым он воспользовался, а задача в том, чтобы помимо нахождения позиции и длины совпадения, обозначить так же шаблон, который сработал.

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

Спасибо всем откликнувшимся. Обсуждение ушло немного как бы вширь. Мне, как пользовавшемуся в AHK большей частью эмуляцией клавиатуры нужно некоторое время для переваривания. Извиняюсь, что не внес сразу ясность в назначение скрипта. Попробую объяснить общий алгоритм. Скрипт задумывался для поиска, а при достаточно точном позиционировании и для замены совпадений в программах, в которых поиск по регуляркам не предусмотрен (напр. Fine Reader). С помощью эмуляций клавиш в программе выделяется текст от курсора до конца страницы (как вариант — абзаца). Копируем. Возвращаем курсор в исходное положение. Вычисляем в буфере обмена позицию и длину ПЕРВОГО совпадения — первого (ОДНОГО) совпадения от начала скопированного текста по всей совокупности регекспов). Эмуляцией {Right %FoundPos%} и +{Right %LastLine%} находим это совпадение в FR. Скрипт завершает свою работу. Следующее совпадение ищем от этого нового положения курсора. В общем речь идет о последовательном поиске совпадений по некоторому количеству регулярных выражений. По типу, как это делается в спеллчекере. Как-то же там это работает… Задача — найти какой из регекспов ПЕРВЫМ нашел это совпадение и выдать сообщение типа: "Найден начальный пробел". Ну и чтоб эти регулярки удобно и прозрачно было править.

Да, уже попробовал. Это то, что надо. Всем спасибо!

Спасибо! Для себя перелицевал вот таким образом:

str := "CDcd1233cdABCD123"
r1 := "(*:r1#строчные буквы)cd"
r2 := "(*:r2#Прописные буквы)AB"
r3 := "(*:r3#Числа)\d+"
oPatterns := [r1, r2, r3]
for k, v in oPatterns
	patterns .= "(" v ")|"
RegExMatch(str, "O)" RTrim(patterns, "|"), Match)
loop,parse, % Match.Mark, #
	c%A_Index%:=A_LoopField	
MsgBox, % "Шаблон: " c1 "`nКомментарий: " c2 "`nПозиция: " Match.Pos "`nДлина: " Match.Len "`nСтрока: " Match.Value

И два вопроса не дают покоя.
1. Хотел исхитриться, хоть и не очень на это и надеялся, отдельным регекспам присвоить ключи регистронезависимости i). Пришел к выводу, что это невозможно. Или всё-таки?
2. И в связи с п.1 и не только… Изначально решил пойти путем создания одного большого регулярного выражения с альтернативами. Вопрос: существует ли в AHK возможность сделать шаблоны соответствия более независимыми друг от друга, чтобы они могли иметь свои ключи и пополнялись бы простым добавлением и исключались бы комментированием?

Опции можно добавить в третьем параметре шаблона.

str := "CDcd1233cdABCD123"

oPatterns := [
	, ["r2_Прописные буквы", "AB"]
	, ["r1_строчные буквы", "cd", "i"]
	, ["r3_Числа", "\d+"]]

for k, v in oPatterns 
	patterns .= "((*:" v[1] ")" . (v[3] ? "(?" v[3] ")" : "") . v[2] ")|"  
	
RegExMatch(str, "O)" RTrim(patterns, "|"), Match)
c := StrSplit(Match.Mark, "_")

MsgBox, % "шаблон: " c[1] "`nКомментарий: " c[2]  "`nпозиция: " Match.Pos "`nдлинна: " Match.Len "`nстрока: " Match.Value

Так вы зачем из 17 код берёте, если про ключи (Опции) я только в 18 упоминаю.

oPatterns := [
	, ["r2_Прописные буквы", "AB"]
	, ["r1_строчные буквы", "cd", "i"]
	, ["r3_Числа", "\d+"]]

Ничего не понял из вашего ответа, но к «А-ЯЁ» вписать по моему проще "i", чего вы и хотели добиться, а сейчас вдруг перехотели.

Скорее последнее.
Почему нельзя сразу сказать об этом, и привести скриншот ошибки?
Или код который не работает.

Опять ничего не понял. Ощущение что есть проблемы, но я о них сам должен догадаться.
Это откуда?

	patterns .= "((*:" v[1] ")" . (v[3] ? "(?" v[3] ")" : "") . v[2] ")|"  
	patterns .= "((*:" k ")" v ")|"

Да уж. Смешались кони, люди… Тысяча извинений. И огромное спасибо за долготерпение и отзывчивость. Всего доброго!
Пора, наверное, спать.