Здравствуйте, гость ( Вход | Регистрация )

> Регулярные выражения
Fire73
сообщение 16.9.2019, 16:01
Сообщение #1


**

Neophyte
Сообщений: 34
Регистрация: 5.6.2019
Группа: Пользователи
Наличность: 0
Пользователь №: 19.343
Возраст: 23



Ребят, такая ситуация, такой скрипт.

В текстовом документе REG.txt следующее:
@Zolotoy Serebro Bronza


Код
load_array %arr C:\Users\REG.txt
//log %arr [1]   // первая строка из файла
//log %arr [2]   // вторая

log clear
log mode compact

set $regexp "[^ ]+"
set #n regexp (#pos $one %arr[1] $regexp)  // поиск в строке любого текста до пробела
if  #n = 1
end_if

set $regexp "(?<= )[^ ]+"
set #n regexp (#pos $two %arr[1] $regexp)  // поиск в строке текста после пробела
if  #n = 1
end_if

set clipboard $two
sendex ^v


Вопрос:
1) $two в моем случае это - Serebro, но как сделать так, чтобы к слову генерировался дополнительный случайный символ, чтобы, например, в итоге получилось Serebrom, Serebroz...?
2) Какое составить регулярное выражение, чтобы к 3 слову в REG.txt было тоже присвоено имя #three
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Ответить в эту темуОткрыть новую тему
Ответов
FREEON
сообщение 19.3.2020, 20:46
Сообщение #2


*****

Journeyman
Сообщений: 365
Регистрация: 14.2.2017
Группа: Пользователи
Наличность: 1317
Пользователь №: 18.346
Возраст: 25



Цитата(Fors1k @ 18.2.2020, 13:22) *

code
Код
--lua
log "clear"  log "mode compact"
local f = io.open([[C:\qwe.txt]], "rb")  -- открыть файл для чтения
local f2 = io.open([[C:\qwe_result.txt]], "wb")  -- открыть файл для записи

if f and f2 then   -- если открылся
       local s = f:read("*a")     -- прочитать файл
       f:close()  -- закрыть файл

        for w in s:gmatch("<%!%-%-.-%-%->") do   -- поиск
            log (w .. "\r\n")
            f2:write(w .. "\r\n")
        end
        f2:close()  -- закрыть файл
end

Удобно, что в луа есть поиск сразу по всему файлу, всех совпадений. Надеюсь в новой версии пилота тоже скоро появится такая возможность.

Попытался я извлечь текст который находится между символами «.+» и как бы до первого совпадения работает норм, а после переписывает весь файл
Пример текста
Уважаемые игроки!
Напоминаем, что 20 марта в 5:00 по московскому времени все серверы игры будут закрыты для входа в связи с проведением технических работ. Ориентировочная длительность - 2 часа.
Пожалуйста, учтите данную информацию при планировании своей игровой активности.
В этой новости мы расскажем о том, какие события ожидают нас уже завтра. Пожалуйста, учтите, что ряд ивентов, объявленных на 20 марта, начнутся только после открытия серверов по завершении тех. работ.
1. 20 и 21 марта пополнение счета будет особенно выгодно с акцией «Сбор урожая».
uploads/images/custom/dk/events_png/xxsborurozhaya.png,Mic.HpRi9XL-ET.png.pagespeed.ic.5SAMOKHFIv.webp
2. С 20 по 23 марта вращайте «Великое колесо фортуны» - и пусть она будет к вам благосклонна.
uploads/images/custom/dk/events_png/xvelikoekolesofortuny.png.pagespeed.ic._RlGMxw727.webp
3. С 20 по 22 марта будет доступно «Колесо призывателя» - прокачайте своего маленького помощника.
uploads/images/custom/dk/events_png/xkolesoprizyvatelya.png.pagespeed.ic.IBjssuocCS.webp
4. С 20 по 24 марта вы можете активировать «Сундук бога войны» и получать ценные призы в течение 10 дней.
uploads/images/custom/dk/events_png/xsundukbogavoiny.png.pagespeed.ic.8E2SiWweBq.webp
5. С 20 по 26 марта вступайте на «Тропу войны», сражайтесь со своими двойниками и получайте ценные награды за победу!
uploads/images/custom/dk/events_png/xtropavoiny.png.pagespeed.ic.C6OSPVjGdA.webp
6. С 21 марта по 1 апреля пополняйте счет в игре и получайте бонусы «Возврата ресурсами за длительное пополнение счета».
uploads/images/custom/dk/events_png/xvozvrat_resursami.png.pagespeed.ic.0k0xkDUjAS.webp
7. С 22 по 26 марта открывайте «Сундук сокровищ» ключами, полученными за пополнение счета от 1000 баленов
uploads/images/custom/dk/events_png/xsunduksokrovisch.png.pagespeed.ic.3vBGWkRtJ2.webp
8. С 23 по 26 марта вас ждет «Статуя дракона». Монеты для молитвы можно добыть в Подземелье и Зале героев.
uploads/images/custom/dk/events_png/xstatuyadrakona.png.pagespeed.ic.g0Su0awTLR.webp
9. С 24 по 28 марта можно будет раскрыть «Тайны старого замка» и получить за это ценные призы.
uploads/images/custom/dk/events_png/xtainystarogozamka.png.pagespeed.ic.HQzn3ld2nC.webp
10. С 25 по 28 марта участвуйте в «Модной лотерее» и получайте редкие предметы моды

11. С 25 по 31 марта пройдет ивент «Яркий луч» и «Распродажа» - становитесь сильнее с каждым днем.
uploads/images/custom/dk/1time/xyarky_luch.jpg.pagespeed.ic.1jgaNiaOGW.webp
12. С 27 по 31 марта за пополнение счета от 1000 баленов вы получите возможность «Забить гол» и получить награду.
uploads/images/custom/dk/events_png/xxzabitgol.png,Mic.54WdjgC-hd.png.pagespeed.ic.jak0p7fh9b.webp
13. С 27 по 29 марта будут открыты двери «Мистического магазина» - добро пожаловать за покупками!
uploads/images/custom/dk/events_png/xmisticheskymagazin.png.pagespeed.ic.cxuz-xPADa.webp
14. С 29 марта по 2 апреля используйте винные бочки для получения напитков и наград «Королевской винодельни»
uploads/images/custom/dk/events_png/xxkorolevskayavinodelnya.png,Mic.adrXEpPFeb.png.pagespeed.ic.OdUsVYkFLK.webp
15. С 29 марта по 2 апреля откроется «Алтарь отважного героя». Побеждайте боссов ивента, зарабатывайте очки – и получайте награды!
uploads/images/custom/dk/events_png/xaltar.png.pagespeed.ic.Q1beNPj1zx.webp
16. С 30 марта по 2 апреля за прохождение Подземелья и Зала героев вы будете получать золотоискатели для «Таинственных сокровищ богов».
uploads/images/custom/dk/events_png/xtainstvennyesokrovischabogov.png.pagespeed.ic.pmh0cNlznp.webp
17. 1 и 2 апреля пополнение счета будет особенно выгодным с «Добычей баленов»
uploads/images/custom/dk/events_png/xxdobychabalenov.png,Mic.-sVxj5Gi8s.png.pagespeed.ic.pPhe4nABzJ.webp


На пилоте по-прывычней будет
Код
log clear
load_array %a "C:\qwe.txt"

log mode compact
for #i 1 size(%a)
   set $regexp "«.+»"
   set #n regexp (#position $hitstring %a[#i] $regexp)
   if #n = 1
       log $hitstring
   end_if
end_for
End_script

Только что нужно научить пилот понимать кодировку файлов уж часто у меня после обработки приходится менять кодировку т.к. получаются сплошные крокозябры особено если файл был UTF-8
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Сообщений в этой теме
Fire73   Регулярные выражения   16.9.2019, 16:01
cirus   set $two serebro set #rand 97 + random(2...   17.9.2019, 1:32
Fors1k   Ребят, такая ситуация, такой скрипт. В текстовом...   17.9.2019, 12:30
Fire73   Спасибо, ребят! А вот если добавить 2 рандомн...   18.9.2019, 13:05
Fors1k   load_array %arr C:\Users\REG.txt get...   18.9.2019, 13:48
FREEON   Все разабрауся   14.2.2020, 21:38
FREEON   Есть регулярное вырожение: -0x[0-5][0-9]$ как...   16.2.2020, 16:52
Fors1k   Есть регулярное вырожение: [b]-0x[0-5][0-9]...   16.2.2020, 17:06
cirus   Или так: set $rgxp "-0x(0[1-9...   16.2.2020, 17:55
Fors1k   Или так: [code]set $rgxp "-0x(0...   16.2.2020, 18:09
FREEON   Вот еще задачка. нужно найти все комментарии однос...   17.2.2020, 15:38
Fors1k   Вот еще задачка. нужно найти все комментарии одно...   17.2.2020, 19:07
cirus   Fors1k, в твоём коде считаются как один комментар...   18.2.2020, 1:35
Fors1k   Fors1k, в твоём кодесчитаются как один комментарий...   18.2.2020, 4:03
FREEON   Можно и так: <!--(??!-->)[\s...   18.2.2020, 12:40
Fors1k   --lua log "clear" log "mode compact...   18.2.2020, 13:22
FREEON   В какое место кода это вставить? Простите, нужно...   18.2.2020, 13:31


Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 27.4.2024, 19:46
Designed by Nickostyle