AHK: Регулярные выражения (Страница 3 из 5)

#include tf.ahk
msg =
(
123
456
789
000000
)
msgbox % TF_RemoveLines(msg, 1,3)
MsgBox % msg

[17:36:30]  Max_Reelood[34] [тел: 454660]
[17:36:30]  Sara_Kinoshita[81] [тел: 589941]
[17:36:30]  Vadim_Ernestto[113] [тел: 901777]
[17:36:30]  Brabus_Binjo[148] [тел: 55329]
[17:36:30]  Dimas_Kozlov[252] [тел: 782006]
[17:36:30]  Jek_Savage[278] [тел: 752324]
[17:36:30]  Frank_Castello[371] [тел: 231541]
[17:36:30]  Nekit_Joker[437] [тел: 819062]
[17:36:30]  vasilia_harlamov[457] [тел: 499172]
[17:36:30]  Andrey_Derix[564] [тел: 221539]

	log := {str:"",find:0,num:0}    ,    log.str := []
	Loop, read, %path_log%
	log.str.Insert(A_LoopReadLine)    ,log.num := A_Index
	loop 50
		if RegExMatch(log.str[log.num + 1 - A_Index],"\[(.*)\]  (.*)_(.*)\[(.*)\] \[тел: (.*)\]", mn) and (log.find:=log.num + 1 - A_Index)
	break

FilePath := A_Temp . "\test.log"

text =
(
[17:36:30]  Max_Reelood[34] [тел: 454660]
[17:36:30]  Sara_Kinoshita[81] [тел: 589941]
[17:36:30]  Vadim_Ernestto[113] [тел: 901777]
[17:36:30]  Brabus_Binjo[148] [тел: 55329]
[17:36:30]  Dimas_Kozlov[252] [тел: 782006]
[17:36:30]  Jek_Savage[278] [тел: 752324]
[17:36:30]  Frank_Castello[371] [тел: 231541]
)

FileAppend, % text, % FilePath

oFile := FileOpen(FilePath, "r")
MsgBox,, Начальный текст, % oFile.Read()
pos := oFile.Pos
oFile.Close()

newText =
(

[17:36:30]  Nekit_Joker[437] [тел: 819062]
[17:36:30]  vasilia_harlamov[457] [тел: 499172]
[17:36:30]  Andrey_Derix[564] [тел: 221539]
)

FileAppend, % newText, % FilePath

FileRead, text, % FilePath
MsgBox,, Полный текст файла с добавленными строками, % text

; но можно перейти сразу к последней запомненной позиции
oFile := FileOpen(FilePath, "r")
oFile.Pos := pos
; только новый текст с обрезанным переносом строки
MsgBox,, Только новый текст, % Trim(oFile.Read(), "`r`n")

oFile.Close()
FileDelete, % FilePath

§50§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
§52§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
§line§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline

§50§linelinelinelinelineline
§50§linelinelinelinelinelineline
§50§linelinelinelinelinelineline
§50§linelinelinelinelinelineline
§52§linelinelinelinelineline
§52§linelinelinelinelinelineline
§52§linelinelinelinelinelineline
§52§linelinelinelinelinelineline
§line§linelinelinelinelineline
§line§linelinelinelinelinelineline
§line§linelinelinelinelinelineline

text =
(
§50§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
§52§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
§line§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
)
loop 10 
text := RegexReplace(text, "(§\w+§)(.*?\n)(?!§)", "$1$2$1")
msgbox % text

str=
(
§50§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
§52§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
§line§linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
)

Loop {
	str := new_str ? new_str : str
	new_str := RegExReplace(str, "(§\w+§)(\w+\R)(?!§)", "$1$2$1")
} Until (str = new_str)

MsgBox % new_str

str=
(
<dd>50<dd>linelinelinelinelineline
linelinelinelinelinelineline
<dd>52<dd>linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline

linelinelinelinelinelineline
linelinelinelinelinelineline
<dd>line<dd>linelinelinelinelineline
linelinelinelinelinelineline
linelinelinelinelinelineline
)
MsgBox % MultiRegExReplace(str, "(<dd>\w+<dd>)(\w*?\R+)(?!<dd>|\R)", "$1$2$1")
Return

; рекурсивная ф-ия, делающая замены, пока существуют подходящие под условия замены подстроки
MultiRegExReplace(str, regex, replacement) {
	Return str = (next_str := RegExReplace(str, regex, replacement))
	 ? str
	 : MultiRegExReplace(next_str, regex, replacement)
}

str=
(
<dd>50<dd>lineli nelin elinelineline
linelinelinel inelinelineline
<dd>52<dd>linelinelinelinelineline
linelinelinelinelinelineli ne
linelinel inelinelinelineline

linelinelineline linelineline
linelinelinelineli nelineline
<dd>line<dd>linel inelinelinelineline
linelin elinelinelinelineline
linelinelinelinelinel ineline
)
MsgBox % MultiRegExReplace(str, "(<dd>\w+<dd>)(.*?\R+)(?!<dd>|\R)", "$1$2$1")
Return

; рекурсивная ф-ия, делающая замены, пока существуют подходящие под условия замены подстроки
MultiRegExReplace(str, regex, replacement) {
	Return str = (next_str := RegExReplace(str, regex, replacement))
	 ? str
	 : MultiRegExReplace(next_str, regex, replacement)
}

str=
(
test<dd>50<dd>lineli nelin elinelineline
linelinelinel inelinelineline
<dd>52<dd>linelinelinelinelineline
test<dd>50<dd>lineli nelin elinelineline
linelinelinel inelinelineline
)

msgbox % MultiRegExReplace(str, "(<dd>[^\n\r]+?<dd>)([^\n\r]+?\R+)(?!<dd>|\R)", "$1$2$1")

; рекурсивная ф-ия, делающая замены, пока существуют подходящие под условия замены подстроки
MultiRegExReplace(str, regex, replacement) {
	Return str = (next_str := RegExReplace(str, regex, replacement))
	 ? str
	 : MultiRegExReplace(next_str, regex, replacement)
}

Src =
(
symbolssymbolssymbols27551,29397,29387,29367,29354,29344,29328,29323,29317,29311,29303,29296,29267,29249,29237symbolssymbolssymbols
)

Src := RegExReplace(Src, "\D+", "`n=$1") 

MsgBox, %Src%

text =
(
Пройдя мимо длинных рядов всяких товаров, я подошел к рабочим, медленно подошел нагруженный вагон. Передвижение на себе вагонов и очистку платформ от снега, как я узнал потом, рабочие обязаны делать бесплатно. Это стоит и в печатном условии. Рабочие были такие же оборванные и исхудалые, как и те, с которыми я говорил. Когда они докатили вагон до места и остановились, я подошел к ним и спросил, когда они стали на работу и когда обедали. Мне ответили, что стали на работу в 7 часов, а обедали только сейчас. Так по работе надо было, не отпускали.
)

while RegExMatch(text, "O)(*UCP)((подошел|вагон)\w*)(\W+\w+){1,10}?\W+(?1)(?=\W)", match, match ? match.Pos + match.Len : 1)
   MsgBox, % match[0]

text =
(
Пройдя мимо длинных рядов всяких товаров, я _подошел к рабочим, медленно подошел нагруженный вагон_. Передвижение на себе вагонов и очистку платформ от снега, как я узнал потом, рабочие обязаны делать бесплатно. Это стоит и в печатном условии. Рабочие были такие же оборванные и исхудалые, как и те, с которыми я говорил. Когда они докатили _вагон до места и остановились, я подошел_ к ним и спросил, когда они стали на работу и когда обедали. Мне ответили, что стали на работу в 7 часов, а обедали только сейчас. Так по работе надо было, не отпускали.
Пройдя мимо длинных рядов всяких товаров, я _подошел к рабочим, медленно подошел нагруженный вагон_. Передвижение на себе вагонов и очистку платформ от снега, как я узнал потом, рабочие обязаны делать бесплатно. Это стоит и в печатном условии. Рабочие были такие же оборванные и исхудалые, как и те, с которыми я говорил. Когда они докатили _вагон до места и остановились, я подошел_ к ним и спросил, когда они стали на работу и когда обедали. Мне ответили, что стали на работу в 7 часов, а обедали только сейчас. Так по работе надо было, не отпускали.
)
while RegExMatch(text, "O)(*UCP)(подошел\w*)(\W+\w+){1,10}?\W+(вагон\w*)|(вагон\w*)(\W+\w+){1,10}?\W+(подошел\w*)", match, match ? match.Pos + match.Len : 1)
   MsgBox, % match[0]

...
</div></div></div></div></div>
</div></div></div></div>
</div></div></div>
</div></div>
</div>

match4 =
(
</div></div></div></div>
)
   match4 := RegExReplace(match4, "s)(</div>{1,10}?)", "«$1»")

MsgBox % match4

match4 =
(
</div></div></div></div></div></p>
)
   match4 := RegExReplace(match4, "s)([</div>]+)", "«$1»")

MsgBox % match4

var = aaaababbb
RegExMatch(var, "[ab]+", match)
MsgBox % match
RegExMatch(var, "(ab)+", match)
MsgBox % match

RegExMatch(My_text, "<data>(.+?)</data>", match)
Result := match1