Серый форум — AHK: Поиск и замена нескольких строк

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Tue, 19 Feb 2013 23:51:59 +0000


Str := "1001" , List := ["Первое", "Второе", "Третье", "Четвёртое"]
    for index, value in list
        SubStr(Str, index, 1) = 1 ? Res .= value . "+"
MsgBox  %Res%

или лучше без массива:


Str := "1010" , List := "Первое|Второе|Третье|Четвёртое"
    Loop, Parse, List, |
        SubStr(Str, A_Index, 1) = 1 ? Res .= A_LoopField . "+"
MsgBox  %Res%

плодить лишние index и value

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Tue, 19 Feb 2013 23:33:32 +0000

Прикольно, я и незнал что тернарные операторы используются внутри RegEx для присваивания.

Re: AHK: Поиск и замена нескольких строк

null@example.com (Grey) — Tue, 19 Feb 2013 23:25:28 +0000

someVar:=0101, pattern:="O)(1)", sArr:=["Первое", "Второе", "Третье", "Четвёртое"]

While, RegExMatch(someVar, pattern, outVar, outVar.Pos(1) ? outVar.Pos(1)+outVar.Len:1)
   outList.=sArr[outVar.Pos]

MsgBox, % 262 . (outList ? 208:160)
      , % outList ? "Result:":"Oops!"
      , % outList ? outList:"No matches"
      , % (outList ? 3:0) . .5

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Tue, 19 Feb 2013 22:41:22 +0000

Настолько сложно, что даже непонимаю как это использовать
Можно на примере:

Str := "0101"
****
Res := "ВтороеЧетвёртое"

Re: AHK: Поиск и замена нескольких строк

null@example.com (Grey) — Tue, 19 Feb 2013 22:09:02 +0000

serzh82saratov пишет:

...попроще, без массивов...

str:="ICQ - 00011110111000111101", pattern:="(1)", cnt:=0

While, match:=RegExMatch(str, pattern, outVar, match ? match+StrLen(outVar):1)
{
   cnt++
   While, outVar%A_Index%
      tmp:="match position: "match+(StrLen(outVar)-StrLen(outVar%A_Index%))" ("cnt ")`n"
   outList.=RTrim(tmp, "`n")"`n", tmp:=""
}

MsgBox, % 262 . (outList ? 208:160)
      , % outList ? "Result:":"Oops!"
      , % outList ? RTrim(outList, "`n"):"No matches"
      , % (outList ? 3:0) . .5

Или:

str:="ICQ - 00011110111000111101", pattern:="O)(1)"

While, RegExMatch(str, pattern, outVar , outVar.Pos(1) ? outVar.Pos(1)+outVar.Len:1)
   outList.="match position: "outVar.Pos " ("A_Index ")`n"

MsgBox, % 262 . (outList ? 208:160)
      , % outList ? "Result:":"Oops!"
      , % outList ? RTrim(outList, "`n"):"No matches"
      , % (outList ? 3:0) . .5

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Tue, 19 Feb 2013 16:57:34 +0000

Как бы мне на выходе из этой строки:
Str := "1010"
попроще, без массивов и.т.п. получить:
Res := "ПервоеТретье"
или:
Str := "0101"
Res := "ВтороеЧетвёртое"

В строке могут быть только 1 и 0, если все нули то результат пустой.
------------------------------------
ничего хорошего пока непридумал:

Str := "1010"
MsgBox  % RegExReplace(RegExReplace(RegExReplace(SubStr(Str,1,1),"1","Первое")SubStr(Str,2,1),"1","Второе")
 . RegExReplace(RegExReplace(SubStr(Str,3,1),"1","Третье")SubStr(Str,4,1),"1","Четвёртое"),"0")

Re: AHK: Поиск и замена нескольких строк

null@example.com (Grey) — Tue, 19 Feb 2013 02:16:14 +0000

Слона (!), и не заметил.

Re: AHK: Поиск и замена нескольких строк

null@example.com (teadrinker) — Mon, 18 Feb 2013 22:30:50 +0000

Коллега Grey перемудрил слегка

Mod = Win+Alt+Shift+Ctrl+Результат
list := {Win: "#", Ctrl: "^", Alt: "!", Shift: "+"}

for k, v in list
   StringReplace, Mod, Mod, %k%+, %v%

MsgBox  %Mod%

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Mon, 18 Feb 2013 20:33:43 +0000

Вот так упростили

Re: AHK: Поиск и замена нескольких строк

null@example.com (Grey) — Mon, 18 Feb 2013 20:28:38 +0000

str:="Alt+Shift+Ctrl+Win+result", d:="+"
arr:={Win:"#", Alt:"!", Shift:"+", Ctrl:"^"}

StringSplit, outArr, str, % d

Loop, % outArr0-1
   StringReplace, str, str, % outArr%A_Index% d, % arr[outArr%A_Index%]

MsgBox, 262144, % A_Space, % str

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Mon, 18 Feb 2013 19:20:04 +0000

Всю голову сломал, подскажите как упростить код:


Mod = Win+Alt+Shift+Ctrl+Результат
StringReplace, Pref, Mod, Win+, #
StringReplace, Pref, Pref, Ctrl+, ^
StringReplace, Pref, Pref, Alt+, !
StringReplace, Pref, Pref, Shift+, +
MsgBox  %Pref%

на каком месте будет например Win+ неизвестно.
пока вот так получилось:

Mod = Win+Alt+Shift+Ctrl+Результат
MsgBox  % RegExReplace(RegExReplace(RegExReplace(RegExReplace(Mod,"Shift\+","+"),"Alt\+","!"),"Ctrl\+","^"),"Win\+","#")

Re: AHK: Поиск и замена нескольких строк

null@example.com (creature.ws) — Fri, 15 Feb 2013 11:55:02 +0000

Нет, это я поспешил.

MsgBox,, % "" := RegExMatch("str1`nstr2`nstr3`nstr4", "`am)(?:.*\R){2}\K.+$", m),  % m

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Fri, 15 Feb 2013 11:45:36 +0000

Спасибо!
С одной строкой я конечно погорячился....

Re: AHK: Поиск и замена нескольких строк

null@example.com (creature.ws) — Fri, 15 Feb 2013 11:38:37 +0000

C учётом, что RegExMatch возвращает номер символа с которого начинается соответствие выражению, а команда MsgBox не может быть записана в одну строку с выражением — в одну строку не получится.

text := "
(
str1
str2
str3
str4
)"
RegExMatch(text, "`am)(?:.*\R){2}\K.+$", m)
MsgBox % m

Re: AHK: Поиск и замена нескольких строк

null@example.com (serzh82saratov) — Fri, 15 Feb 2013 11:15:59 +0000

А можно ли по аналогии:


Loop, parse, clipboard, `n, `r
{
Str := A_LoopField 
if A_Index = 3
break
}
MsgBox %Str%

вернуть строку по её номеру?

MsgBox % RegExMatch (clipboard, "***", 3строка)

"одной строкой кода"