Вверх ↑
Ответов: 2059
Рейтинг: 131
#1: 2021-07-11 14:22:13 ЛС | профиль | цитата
Sersey, в своё время, давно, я переделывал RegExpr.pas, чтобы соответствовал стандартам.
https://disk.yandex.ru/d/DlE8wogzKlXduw
Если не используешь компоненты hiRegExp и hiRegExpr, то достаточно заменить RegExpr.pas.
Не помню, всё ли там поправил, но для моих нужд - копипастить из интернета, вполне хватало.

Add(MainForm,5638695,231,42)
{
}
Add(RE_Search,12804012,301,105)
{
Expression="New.*?\d{4}"
link(onMatch,10198821:doAdd,[])
link(SourceStr,4521982:Text,[])
}
Add(StrList,4521982,301,56)
{
Strings=#16:New video - 0003|0:|275:[IMG]https://i115.fastpic.ru/thumb/2021/0705/7c/9ffd1391023d2fd9c0874d2d7d91577c.jpeg[/IMG] [IMG]https://i115.fastpic.ru/thumb/2021/0705/06/b4da5036533ef0128b559fe4758e1506.jpeg[/IMG] [IMG]https://i115.fastpic.ru/thumb/2021/0705/b6/ef89b6f8be82875635f3bcd30e132bb6.jpeg[/IMG]|0:|61:[IMG]https://thumbs4.imagebam.com/78/f8/f2/geVQOL_t.jpg[/IMG]|0:|0:|30:111111111111111111111111111111|16:New video - 0004|0:|275:[IMG]https://i115.fastpic.ru/thumb/2021/0705/a4/3bdc1ab6b9b5432918385b1a8889b9a4.jpeg[/IMG] [IMG]https://i115.fastpic.ru/thumb/2021/0705/41/783b55efad0b07212e93ac491299c341.jpeg[/IMG] [IMG]https://i115.fastpic.ru/thumb/2021/0705/f8/d739cf5fa0d5765b11ab2521d8023ff8.jpeg[/IMG]|0:|61:[IMG]https://thumbs4.imagebam.com/d7/f2/5c/MgeQOQ_t.jpg[/IMG]|0:|0:|30:111111111111111111111111111111|16:New video - 0005|0:|275:[IMG]https://i115.fastpic.ru/thumb/2021/0705/bc/832981220cbde1222ae489413df5acbc.jpeg[/IMG] [IMG]https://i115.fastpic.ru/thumb/2021/0705/a5/db048f65827b89cdb1d380d208703ea5.jpeg[/IMG] [IMG]https://i115.fastpic.ru/thumb/2021/0705/ad/5075597c25b2e134323f0580f975b0ad.jpeg[/IMG]|0:|61:[IMG]https://thumbs4.imagebam.com/9f/ff/58/geVQOR_t.jpg[/IMG]|0:|0:|30:111111111111111111111111111111|0:|11:и так далее|1:,|1:,|1:,|1:,|2:,,|1:,|1:,|2:,,|1:,|16:New video - 0006|
}
Add(Memo,10198821,357,105)
{
Left=245
Top=185
Align=5
ScrollBars=2
link(onChange,12804012:doExecNext,[(401,111)(401,115)(289,115)(289,118)])
}
Add(Button,12984757,231,105)
{
Left=115
Top=185
link(onClick,12804012:doExec,[])
}
Понятно почему нельзя ставит "$", как конец строки?
Попробуй ^New.*?\d{4} и ^New.*?\d{4}$, или New.*?\d{4}$
Лучше делать на моей схеме в примере, в архиве. Там нагляднее.
карма: 6

0
Редактировалось 5 раз(а), последний 2021-07-11 22:30:31