JS: Регулярные выражения

К сожалению, оригинал выложить не могу. Сгенерировал тестовый файл.
Надо из него вытащить все

Start: Дата время
Stop: Дата время

в которых User=Admin

cscript user_info.js < test.txt

var lines = WScript.StdIn.ReadAll();

var re = /(Start: .+?)\r\nOS=.+?\r\nUSER=Admin\r\n\r\n(Stop: .+?)\r\n/g;

var r;
while ( r = re.exec(lines) ) {
    WScript.Echo(r[1] + '\t' + r[2]);
}

Пользуясь случаем хочу сказать, что утилиты командной строки, пришедшие из мира unix (например из пакетов UnxUtils, GnuWin32, Cygwin) делают аналогичную задачу, например так:

grep Admin -B 2 -A 2 test.txt | grep -e Start -e Stop | sed "N;s/\n/\t/"

или так:

grep Admin -B 2 -A 2 test.txt | grep -e Start -e Stop | paste - -

а можно и так:

grep Admin -B 2 -A 2 test.txt | grep -e Start -e Stop | xargs -n6

.+?
. - некие символы
+ - хотя бы один
? - если есть много, то не брать все сразу

Из предположения, что все-таки формат даты/времени может быть изменен.

alexii, Rumata,
спасибо!

Без «+» будет искаться строка «Start: » или «Stop: » плюс один любой символ перед переводом на новую строку, что даст нулевой результат.

Но хотелось бы сделать это более общим выражением. Т.е., используя только опорные строки Start:, Stop:, User=Admin без указания конкретного количества строк между ними.

Пробовал сделать вот таким регулярным выражением

/(Start: \d{2}\.\d{2}\.\d{4} \d{2}:\d{2}:\d{2})[\S\s]+?USER=Admin[\S\s]+?(Stop: \d{2}\.\d{2}\.\d{4} \d{2}:\d{2}:\d{2})/g

либо

/(Start: .+?)\r[\S\s]+?USER=Admin[\S\s]+?(Stop: .+?)\r/g

Но оно захватывает несколько больше, чем нужно.

Неа, результат тот же.

Так я ж проверил. Результат:

Т.е., выводится строка с первым вхождением Start, далее Stop, который попадается первым после User=Admin. К стопам претензий нет, а вот старты - не те.

Крепыш, у меня на Вашем примере и коде коллеги Rumata всё нормально:

Крепыш, мне вот тут подумалось: а мы не будем выбирать по пользователю, будем выбирать все значения, а затем будем отсеивать ненужные:

Option Explicit

Dim strUser
Dim strContent
Dim objMatch


strUser = "Admin"

With WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Песочница\020\test.txt")
    strContent = .ReadAll()
    .Close
End With

With WScript.CreateObject("VBScript.RegExp")
    .Global     = True
    .IgnoreCase = True
    .Pattern    = "(Start: \d{2}\.\d{2}\.\d{4} \d{2}:\d{2}:\d{2})\r\n(?:.|\n)*?USER=(.*?)\r\n(?:.|\n)*?(Stop: \d{2}\.\d{2}\.\d{4} \d{2}:\d{2}:\d{2})\r\n"
    
    If .Test(strContent) Then
        WScript.Echo "User: " & strUser
        WScript.Echo "--------------------------"
        
        For Each objMatch In .Execute(strContent)
            If objMatch.Submatches(1) = strUser Then
                WScript.Echo objMatch.Submatches(0), objMatch.Submatches(2)
            End If
        Next
    End If
End With

WScript.Quit 0

Rumata, превосходно! Работает.

Переписал регулярное выражение вот в таком виде:

var lines = WScript.StdIn.ReadAll();

var re = /(Start: \S+ \S+)(?:(?:(?!(?:Start|Stop): \S+ \S+)[\S\s])+)USER=Admin(?:(?:(?!(?:Start|Stop): \S+ \S+)[\S\s])+)(Stop: \S+ \S+|)/g;

var r;
while ( r = re.exec(lines) ) {
    WScript.Echo(r[1] + '\t' + r[2]);
}

Насчёт опции поиска m не понял. Что с ним, что без него - результат одинаковый. Для чего он нужен?

И ещё почему, если записать так:

while ( r = /(Start: \S+ \S+)(?:(?:(?!(?:Start|Stop): \S+ \S+)[\S\s])+)USER=Admin(?:(?:(?!(?:Start|Stop): \S+ \S+)[\S\s])+)(Stop: \S+ \S+|)/g.exec(lines) ) {
    WScript.Echo(r[1] + '\t' + r[2]);
}

то скрипт зацикливается?

при использовании конструкций
while (/...../g.exec(){})
while ((new RegExp(".....","g")).exec(){})
свойство lastIndex обнуляется (сбрасывается) при каждом шаге цикла.

И снова нужна помощь с регулярными выражениями. Задача следующая:
есть строки, содержащие набор натуральных чисел, разделённых запятой и пробелом

var stroka1 = "11, 12, 13, 14, 15, 17, 18, 19, 20"
var stroka2 = "11, 12, 13, 15, 18"
var stroka3 = "17, 19, 21, 25, 27"

и список чисел для поиска

var spisok = "14, 17, 19, 21, 25, 27"

Нужно выбрать строки, содержащие:
1) минимум 5 чисел;
2) содержащие хотя бы одно число из списка spisok
3) содержащие хотя бы одно число не из списка spisok

Такой запрос в строке "123" найдёт число 23

Сделал так:

var re = new RegExp('(?: |^)(?:' + spisok.replace(/, /g, '|') + ')(?:,|$)', 'g');
2) re.test(stroka);
3) var s = stroka.replace(re, '');

Rumata, спасибо!
В третьей задаче сам бы не додумался так сделать.

Вот регулярка, детектирующая UTF-16 LE в hex дампе:

/^..(\w{4})*(0[04]((\w[^0])|([^0]\w))){3}/

в принципе, работает, но нельзя ли записать более красиво условие "любая комбинация из двух символов, кроме 00", а то ((\w[^0])|([^0]\w)) выглядит костылём.
(Без двух точек в начале будет детектировать BE)

Спасибо, работает. Самое смешное, что до (?!00) додумался, а победить незапоминание с помощью \w\w не догадался...

Вопрос:
Даны две строки. Любая из них может представлять собой отдельную фразу либо фразы, объединённые каким-то сепаратором, например, #. Задача - убрать из строки все совпадения.

' строка, в которой меняем и в ней же смотрим совпадения:
Str = "аааа#bbbb#cccc#dddd#eeee#ffff"
Sym = "#"  ' символ замены
With New RegExp
  .Pattern = "((^|#)(" & Replace(Str, "#", "|") & ")(#|$))|#{2,}"
  .IgnoreCase = True : .Global = True
  MsgBox .Replace(Str, Sym)
End With

На выходе получаем  #bbbb#dddd#ffff (чередование) вместо #. Как исправить?

Если "получаем ... вместо #", то что должно получиться?

Для понимания достаточно прочесть внимательно задание и комментарии в коде.
Хотя, судя по ".*", в этом нет необходимости. ) Подождём спецов.

То, что аааа, bbbb - это фразы, разделённые решёткой понятно? Они могут быть какими угодно.
Суть не в том, что там окажется, а в том, как получить верный результат (даже, если исходная строка и проверочная совпадают, как в коде). Мне необходимо понять, почему мое выражение не является верным и на что надо обратить внимание.

Ну, да. А мораль сей басни такова - мне ни фига не понятно, что именно Вам непонятно (это к учебникам).
В "ничего" как-то ну совсем не верится.

Скорее второго долго ждать придётся. Может, ещё JSMan, YMP. Xameleon с alexii давно не видно.

Да. А если поменять местами, то на выходе - #4444.

Берём

Str = "аааа#bbbb"
Str2 = "bbbb#aaaa"

Результат: аааа#
Меняем местами, результат: bbbbaaaa

А вы напишите все символы на одном языке.

А так:

' строка, в которой меняем и в ней же смотрим совпадения:
s1 = "aaaa#bbbb#aaaa#cbbbbb#daaaa#eaaaa"
s2 = "aaaa#bbbb"
sym = "#"  ' символ замены
s1 = sym & s1 & sym
With New RegExp
    .Pattern = sym & Replace(s2, sym, sym & "|" & sym) & sym
    .IgnoreCase = True : .Global = True
    s1 = .Replace(s1, sym)
    s1 = .Replace(s1, sym)
    .Pattern = "^" & sym & "|" & sym & "$"
    s1 = .Replace(s1, "")
    MsgBox s1
End With

Правда не красивый код.

Вам принципиально VBS?

Ну, вот, казалось бы, нашёл выход...

Str = "aaa# aaa#aaa# aaaa# bbb bbb#baaa#bbb#cbbbb#bbb#daaa"
Str2 = "bbb#aaa"
With New RegExp
  .Pattern = "(?=\x20*\b|#)(" & Replace(Str2, "#", "|") & ")(#|$)"
  .IgnoreCase = True : .Global = True
  Str = .Replace(Str, "") : .Pattern = "#$"
  MsgBox """" & .Replace(Str, "") & """"
End With

Да вот с кириллицей не работает. Почему?

Add: Выяснил. Это проблема именно комбинаций с решёткой.
Т.к. я её приводил лишь в качестве примера, меня это не особо пугает.
Спасибо участникам дискуссии.

С кириллицей есть давно известная проблема — её символы не считаются буквами. Поэтому и граница слова \b не работает, и словесный символ \w. Хотя игнорирование регистра вроде работает.

DnsIs, с Вашим кодом тоже не всё в порядке. Попробуйте:

s1 = "bbbb#фффф#cccc#ffff#dddd#tttt#яяяя#eeee#ffff"
's1 = "bbbb#фффф#cccc#ffff#dddd#eeee#ffff"
s2 = s1