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

msgbox % RegExReplace(Src, ".*<font style="".*font-size:x-small.*?"">(.*?)?<br/>.*", "$1")

Src =
(
<font style="font-size:x-small;font-style:italic;"> текст1 </font><font style="font-style:italic;font-size:x-small;"> текст2 <br/><font style="font-style:italic;font-size:x-small;"> текст3 <br/>
)

Src =
(
<font style="font-size:x-small;font-style:italic;"> текст1 </font><font style="font-style:italic;font-size:x-small;"> текст2 <br/>
)
RegExMatch(src, ">\K<f.*$", m)
MsgBox % m

msgbox % RegExReplace(Src, ".*(<font style=""(.*?)?"">.*?<br/>).*", "$2")
или
msgbox % RegExReplace(Src, ".*<font style=""(.*?)?"">.*", "$1")

msgbox % RegExReplace(Src, ".*(<font style=""(.*?)?"">.*?<br/>).*", "$1")

А_строка1
А_строка2
А_строка3
Б_строка4
Б_строка5
Б_строка6
Б_строка7
В_строка8
В_строка9
Г_строка10
Г_строка11
Г_строка12
Г_строка13
Д_строка14
Д_строка15
Д_строка16
Д_строка17
Д_строка18
Д_строка19
Е_строка20

_А_строка1
А_строка2
А_строка3
_Б_строка4
Б_строка5
Б_строка6
Б_строка7
_В_строка8
В_строка9
_Г_строка10
Г_строка11
Г_строка12
Г_строка13
_Д_строка14
Д_строка15
Д_строка16
Д_строка17
Д_строка18
Д_строка19
_Е_строка20

Exist := {} 
Loop, parse, text, `n 
    Pref := SubStr(A_LoopField, 1, InStr(A_LoopField, "_")-1)
    , Exist[Pref] ? Res .= A_LoopField "`n" : Res .= "_" A_LoopField "`n", Exist[Pref] := 1
MsgBox % Res

Exist := {}
Loop, parse, text, `n 
    Pref := SubStr(A_LoopField, 1, InStr(A_LoopField, "_") - 1)
    , Res .= (Exist[Pref] ? "" : "_") A_LoopField "`n"
    , Exist[Pref] := 1
MsgBox % Res

text =
(
А_БВГД1
А_строка2
А_строка3
Б_строка4
Б_строка5
Б_строка6
Б_строка7
В_строка8
В_строка9
Г_строка10
Г_строка11
Г_строка12
Г_строка13
Д_строка14
Д_строка15
Д_строка16
Д_строка17
Д_строка18
Д_строка19
Е_строка20
)

array := {А:"_А",Б:"_Б",В:"_В",Г:"_Г",Д:"_Д"}
For key, value in array
   StringReplace, text, text, %key%, %value%
msgbox % text

text := "`n" text
For key, value in ["А", "Б", "В", "Г", "Д"]
   StringReplace, text, text, `n%value%, `n_%value% 
msgbox % Trim(text, "`n")

text =
(
А_строка1
А_строка2
А_строка3
Б_строка4
Б_строка5
Б_строка6
Б_строка7
В_строка8
В_строка9
Г_строка10
Г_строка11
Г_строка12
Г_строка13
Д_строка14
Д_строка15
Д_строка16
Д_строка17
Д_строка18
Д_строка19
Е_строка20
)

Loop, parse, text, `n 
    Res .= (InStr("|1|4|8|10|14|20|", "|" A_Index "|") ? "_" : "") A_LoopField "`n" 
MsgBox % Res

log1 =
(
[00:38:53] Akeno_Ferrari и John_Hasber бросили кости. Ставка: 7000
[00:38:42] - делов то {FFFFFF}(Jon_Kros)
[00:38:42] {F7C306}[Casino Master] {009ACD}Амиго, да ты крут! Чистая прибыль: {2CC931}5000
[00:38:44] SF | Куплю дом в г.Лос-Сантос. Цена: Договорная | Отправил Evgenij_Patorson[110] (тел. 757474)
[00:38:44]   Объявление проверил сотрудник СМИ Jon_Abrams
[00:38:45] - булка всем нужна {FFFFFF}(Jon_Kros)
[00:38:49] - у кого то есть 100к? {FF6600}(Fo_Moreno)
[00:38:51] - -__ {FF6600}(Fo_Moreno)
[00:38:53] Akeno_Ferrari и John_Hasber бросили кости. Результат {FFCD00}2:5
[00:38:53] Akeno_Ferrari и John_Hasber бросили кости. Ставка: 2000
[00:38:53] Akeno_Ferrari и John_Hasber бросили кости. Результат {FFCD00}2:5
[00:38:53] Akeno_Fer34rari и John_34Hasber бросили кости. Ставка: 7000
)
Pos = 1
While Pos := regexmatch(log1, "Ставка: (\d+)", match, pos+StrLen(match))
   stavka := match1
msgbox % stavka

ӒӒӒӒӒӒӒ

[&#\d+;]*

str = ertger01230fgdf
RegExMatch(str, "0*(\d+)", Match)  
MsgBox % Match1
str = ertger0001230fgdf
RegExMatch(str, "0*(\d+)", Match)  
MsgBox % Match1
str = ertger1230fgdf
RegExMatch(str, "0*(\d+)", Match)  
MsgBox % Match1

Text =
(
Текст вне тегов <test abc>Текст внутри разрешённого тега</test>
Текст вне тегов <pre abc>Текст внутри запрещённого тега</pre> Текст вне тегов
Текст вне тегов
Текст вне тегов <style abc>Текст внутри запрещённого тега</style>
Текст вне тегов
Текст вне тегов <url abc>Текст внутри разрешённого тега</url>
Текст вне тегов <script abc>Текст внутри запрещённого тега</script>
)

MsgBox, % RegExReplace(Text, "<pre.*?>.*?</pre>|<style.*?>.*?</style>|<script.*?>.*?</script>|<.*?>")

RegExReplace(Text, "siU)<pre.*>.*</pre>|<style.*>.*</style>|<script.*>.*</script>|<.*>")

FileRead, file, C:\(Group1\wt$index.html
loop
{
   if regexmatch(file, "(\S+)\s+(\d+)", found)
   {
      output =
      loop %found2%
      {
         if A_Index = 1
            output := found1 " " found1
         else
            output .= "-" found1
      }  
      file := RegExReplace(file, found1 " " found2, output, ,1) 
   }
   else
      break
}
msgbox % file

<a href="069.html">2</a>(3)

<a href="069.html">2</a>, <a href="069.html">2</a>, <a href="069.html">2</a>, <a href="069.html">2</a>

string =
(
1. любой-текст (с указанием любой-текст
2. любой-текст и к которым любой-текст
3. любой-текст (<i><b>также</b></i>). любой-текст
4. <p class="p1">В&nbsp;Путеводителе любой-текст
)
    
MsgBox, % RegExReplace(string, "([^\s|>]*)&nbsp;([^\s|<]*)", "<nobr>$1 $2</nobr>") 

src =
(
строка
строка
строка
строка
символ
символ
символ
символ
скрипт
скрипт
скрипт
кодинг
кодинг
кодинг
кодинг
)

Pos := 1
While Pos := RegExMatch(src, "s)(.+?)(?:\R|$)",match,Pos+StrLen(match))
{
   if ("" match1 == matchPrev)    ; пустоту присваиваем для того, чтобы числа сравнивались как текст. 
      new .= match1 "`n"
   else
   {
      new .= "_" match1 "`n"
      matchPrev := match1
   }
}
msgbox % new

N := 6  ; предположим, учитываем первые шесть символов

src =
(
3.0
31
символ cvb
символ ert
скрипт sdft
скрипт cghj
скрипт werty
кодинг cghjk
кодинг qwert
кодинг qwervf
строка leaskgn
кодинг cgdtyu
кодинг qwervf
)

MsgBox, % RegExReplace(src, "(?P<n>.{" N "}).*?(\R|$)(\1.*?(\R|$))*", "_$0")

N := 6  ; предположим, учитываем первые шесть символов

src =
(
3.0
31
символ cvb
символ ert
скрипт sdft
скрипт cghj
скрипт werty
кодинг cghjk
кодинг qwert
кодинг qwervf
строка leaskgn
кодинг cgdtyu
кодинг qwervf
)

Pos := 1
While Pos := RegExMatch(src, "s)(.+?)(?:\R|$)",match,Pos+StrLen(match))
{
   if ("" SubStr(match1, 1, N)  == SubStr(matchPrev, 1, N))    ; пустоту присваиваем для того, чтобы числа сравнивались как текст. 
      new .= match1 "`n"
   else
   {
      new .= "_" match1 "`n"
      matchPrev := match1
   }
}
msgbox % new

html =
(
<p>В&nbsp;большинстве случаев женщины имеют некий нормальный и&nbsp;практичный женский ум. По&nbsp;моим наблюдениям, он&nbsp;в&nbsp;целом ряде параметров превосходит мужской, и&nbsp;причем весьма значительно. Когда мы&nbsp;организовывали с&nbsp;моей 'герлой' <nobr>какие-то</nobr> мероприятия, то&nbsp;я&nbsp;частенько замечал, что решения, ею предлагаемые, неожиданно оказываются куда лучше моих. Эффективнее, что&nbsp;ли... Это был кардинально иной подход, и&nbsp;проблема разрешалась проще, быстрее и, я&nbsp;бы даже сказал, красивее. Впоследствии, когда количество этих <nobr>неожиданно-оригинальных</nobr> и&nbsp;<nobr>изящно-простых</nobr> женских решений превзошли все мыслимые пределы, я&nbsp;не&nbsp;выдержал, и&nbsp;спросил: почему? Почему женские мозги в&nbsp;этих простых, чуть&nbsp;ли не&nbsp;бытовых вещах настолько превосходят мужские? И&nbsp;знаете, что мне ответили? 'Это потому, что мы, женщины,&nbsp;&#151; стервы. Все. Просто у&nbsp;одних это в&nbsp;явной форме, а&nbsp;у&nbsp;других в&nbsp;скрытой. Это не&nbsp;ум, а&nbsp;скорее, изворотливость. А&nbsp;вы, мужчины, можете быть просто умными. Ваш ум&nbsp;&#151; как&nbsp;бы это сказать?&nbsp;&#151; имеет благородный характер, что&nbsp;ли...' В&nbsp;общем, сообщаю вам о&nbsp;существовании мнения, что необыкновенная изворотливость женских мозгов следует из&nbsp;женской&nbsp;же стервозности. Тем не&nbsp;менее, мне кажется, что весьма неумно поступают те мужчины, которые стремятся <nobr>всё-всё-всё</nobr> делать по&nbsp;своему, не&nbsp;советуясь со&nbsp;своими подругами.</p>
<p>Но&nbsp;здесь речь идёт о&nbsp;настоящем, остром и&nbsp;сильном уме (связанным с&nbsp;врождённой интуицией), который зачастую даже в&nbsp;хорошем образовании не&nbsp;нуждается. Для пищи ему бывает достаточно <nobr>двух-трёх</nobr> книжечек, да <nobr>каких-нибудь</nobr> эпизодических общественных лекций... Характерная особенность женщин такого рода&nbsp;&#151; они никогда не&nbsp;занимаются никаким видом творческой деятельности&nbsp;&#151; не&nbsp;пишут умных книжек, например (из&nbsp;этого, кстати, следует, что те, кто пишет, таким умом не&nbsp;обладают заведомо). Возможно, происходит это потому, что такая женщина, в&nbsp;силу недюжинного ума прекрасно сознаёт, что всё равно пороху не&nbsp;выдумает&nbsp;&#151; в&nbsp;её творческом рвении неизбежно скажется чисто биологическая (то&nbsp;есть женская) особенность превращать муху в&nbsp;слона&nbsp;&#151; зацикливаться на&nbsp;мелкой проблемке и&nbsp;терять из&nbsp;виду всю перспективу.</p>
)
p := "[^ \t\r\n<>]"
html := RegExReplace(html, "i)" p "*(<nobr>" p "+?</nobr>|&(nbsp|#151);" p "+)", "<S>$0</S>")

Run, notepad.exe,,, PID
WinWait, ahk_pid %PID%
ControlSetText, Edit1, % html

txt := "&nbsp;<NOBR>txt1 &nbsp;txt2</NOBR>txt3 &nbsp;txt4<NOBR>txt5 &nbsp;txt6</NOBR>"
MsgBox, % RegExReplace(txt, "iU)(<NOBR>.*)&nbsp;(.*</NOBR>)", "$1$2")

txt := "&nbsp;<NOBR>&nbsp;txt1 &nbsp;&nbsp;txt2&nbsp;</NOBR>txt3 &nbsp;txt4<NOBR>txt5 &nbsp;txt6</NOBR>"

start := 1
while RegExMatch(txt, "iUO)(.*)(<NOBR>.*&nbsp;.*</NOBR>)", found, start)
   NewTxt .= found[1] . RegExReplace(found[2], "&nbsp;"), start := found.Pos(2) + found.Len(2)

NewTxt .= SubStr(txt, start)
MsgBox, % NewTxt

text =
(
ЮРЬЕВ<P><A HREF="Group039\33248.html">ЮРЬЕВ</A></P>
ЮСТИЦИЯ<P><A HREF="Group039\33249.html">ЮСТИЦИЯ</A></P>
ЮТИТЬСЯ<P><A HREF="Group039\33250.html">ЮТИТЬСЯ</A></P>
ЮФТЬ<P><A HREF="Group039\33251.html">ЮФТЬ</A></P>
ЯБЕДА<P><A HREF="Group039\33252.html">ЯБЕДА</A></P>
ЯБЕДНИК<P><A HREF="Group039\33253.html">ЯБЕДНИК</A></P>
ЯБЕДНИЧАТЬ<P><A HREF="Group039\33254.html">ЯБЕДНИЧАТЬ</A></P>
ЯБЛОКО<P><A HREF="Group039\33255.html">ЯБЛОКО</A></P>
ЯБЛОНЯ<P><A HREF="Group039\33256.html">ЯБЛОНЯ</A></P>
ЯБЛОЧКО<P><A HREF="Group039\33257.html">ЯБЛОЧКО</A></P>
)

Exist := {} 
Loop, parse, text, `n 
    Pref := SubStr(A_LoopField, 1, InStr(A_LoopField, "_")-1)
    , Exist[Pref] ? Res .= A_LoopField "`n" : Res .= "_" A_LoopField "`n", Exist[Pref] := 1

msgbox % Res

text =
(
А_строка1
А_строка2
А_строка3
Б_строка4
Б_строка5
Б_строка6
Б_строка7
В_строка8
В_строка9
Г_строка10
Г_строка11
Г_строка12
Г_строка13
Д_строка14
)

Exist := {} 
Loop, parse, text, `n 
    Pref := SubStr(A_LoopField, 1, InStr(A_LoopField, "_")-1)
    , Exist[Pref] ? Res .= A_LoopField "`n" : Res .= "_" A_LoopField "`n", Exist[Pref] := 1

msgbox % Res

N := 1

text =
(
ЮРЬЕВ<P><A HREF="Group039\33248.html">ЮРЬЕВ</A></P>
ЮСТИЦИЯ<P><A HREF="Group039\33249.html">ЮСТИЦИЯ</A></P>
ЮТИТЬСЯ<P><A HREF="Group039\33250.html">ЮТИТЬСЯ</A></P>
ЮФТЬ<P><A HREF="Group039\33251.html">ЮФТЬ</A></P>
ЯБЕДА<P><A HREF="Group039\33252.html">ЯБЕДА</A></P>
ЯБЕДНИК<P><A HREF="Group039\33253.html">ЯБЕДНИК</A></P>
ЯБЕДНИЧАТЬ<P><A HREF="Group039\33254.html">ЯБЕДНИЧАТЬ</A></P>
ЯБЛОКО<P><A HREF="Group039\33255.html">ЯБЛОКО</A></P>
ЯБЛОНЯ<P><A HREF="Group039\33256.html">ЯБЛОНЯ</A></P>
ЯБЛОЧКО<P><A HREF="Group039\33257.html">ЯБЛОЧКО</A></P>
)

MsgBox, % RegExReplace(text, "(?P<n>[^\r\n]{1," N "}).*?(\R|$)(\1.*?(\R|$))*", "_$0")

FileRecycle, D:\Out.txt
FileRead, text, D:\index.html

N := 1
text := RegExReplace(text, "(?P<n>[^\r\n]{1," N "}).*?(\R|$)(\1.*?(\R|$))*", "_$0")
msgbox % text
FileAppend, %text%, D:\Out.txt