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

[viter.alex]

Анализирую код VB с помощью RegExp. Не могу правильно обработать многострочные комментарии.
Однострочный ищется просто:

Код: Выделить всё

  With oRegExp
    .IgnoreCase = True
    .MultiLine = True
    .Pattern = "('.*?\n)"
    txtCode.Text = .Replace(txtCode.Text, sGreen1 & "$1" & sGreen2)
  End With

А как найти многострочный комментарий? Который разделен на строки через символ подчеркивания?

[Хакер]

Я думаю (а фанаты регэкспов не думают), что ты замучаешься. Меняй подход.

[viter.alex]

Хотя бы наводку дай в каком направлении менять подход.

[Хакер]

Опиши задачу.

[alibek]

Многострочные комментарии в VB6?

[viter.alex]

Задача такая: в коде VB6 нужно обрамить ключевые слова тегами [сolor="blue"][/color]. Это я сделал.
И комментарии тегами [сolor="green"][/color]. Сделал только для однострочных комментариев.

[Хакер]

Если задача сделать подсветку синтаксиса (правильную подсветку), то регулярные выражения однозначно не годятся.

Подход: парсить код самому.

[viter.alex]

Нет, мне не нужна подсветка. Я делаю только для себя, чтобы можно было вставлять подсвеченый код на форум, где подсветки синтаксиса нет, но можно использовать теги цвета bbcode внутри тега [сode][/сode].

[Хакер]

Я под подсветкой имел в виду не саму по себе отрисовку кода разными цветами, а определение тех мест кода, которые особыми цветами должны быть выделены. Тебе ведь именно это надо. Найти места, где надо вставить [color=xxx] и [/color]?

[viter.alex]

Ну, в общем, да. Только как? Будем читать матчасть.

[Хакер]

Как что? Как поэлементно обрабатывать данные?

[viter.alex]

Общий принцип. Что и в какой последовательности делать.

[Хакер]

Обрабатывать код. Слева направо.

[viter.alex]

И все-таки я нашел решение. «Ну не может быть, чтобы его не было», — сказал я себе. Я бы в жизни не додумался до такой строки, но подсказала программа RegexBuddy. Просто роскошная штука для работы с регулярными выражениями.
Итак, вот так это делается:

Код: Выделить всё

    .Pattern = "('[^_\r\n]*+(?:_\r?+\n?+[^_\r\n]*+)*+)"
    txtCode.Text = .Replace(txtCode.Text, "[COLOR=""Green""]$1[/COLOR]")

Работает и для однострочного и для многострочного комментария.

Одно замечание. Не будет работать, если RegExp создавать через CreateObject. Нужно подключить библиотеку Microsoft VBScript Regular Expressions 5.5 и объявлять так:

Код: Выделить всё

Dim oRegExp As RegExp
Set oRegExp = New RegExp

Но это еще не конец, потому что если одинарная кавычка будет использована внутри строки, то это тоже будет считаться комментарием. Будем думать.

[Хакер]

Ты забыл, что есть ещё Rem. Ты забыл (но вспомнил сейчас), что есть есть строки.
А ещё Comment-like вхождения могут быть в строках. А последовательности, похожие на строки — в комментариях.

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

[viter.alex]

Ты забыл, что есть ещё Rem. …

Я делаю для себя. Rem давно не видел, но тем не менее это не проблема:
"((?:Rem|')[^_\r\n]*(?:_\r?\n?[^_\r\n]*)*)"

Про Comment-like вхождения я думаю, есть наметки.
Еще не пожалел. Наоборот.

[Хакер]

"((?:Rem|')[^_\r\n]*+(?:_\r?+\n?+[^_\r\n]*+)*+)"

Мне кажется Rembo подходит по это выражение. Разве нет?

[viter.alex]

Спасибо за подсказку.
((?:\bRem\b|')[^_\r\n]*(?:_\r?\n?+^_\r\n]*)*)

[alibek]

S = " Test: Rem Sample" : Rem "Test Sample"

?

[viter.alex]

Со вложенными я еще не разобрался.

Предложи свой способ, если таковой имеется

[Nord777]

А как найти многострочный комментарий? Который разделен на строки через символ подчеркивания?

А что, разве в VB6 такое прокатывает?

Код: Выделить всё

         'comment line1 _
          comment(line2)

[Хакер]

Прокатывает конечно.

[Nord777]

Глянь пойдёт или нет:

( (?<="[^"]+"\s*):*\s+(?<comment>(rem|').*(\s+_\r\n.*)*)) | ((?<!".*):*\s+(?<comment>(rem|').*(\s+_\r\n.*)*) )

опции:
IgnoreCase
RightToLeft
IgnorePatternWhitespace
ExplicitCapture

нужное значение в группе comment

[viter.alex]

Вложенные действительно пропускает, но берет только те комментарии, где перед одинарной кавычкой стоит пробел.

Это ты в .Net делал? VB6 не берет lookbehind

[Nord777]

Вложенные действительно пропускает, но берет только те комментарии, где перед одинарной кавычкой стоит пробел.

Так ведь VB6 автоформатирует так, что перед кавычкой ставится пробел(или нет?).

ну вот без пробелов:
( (?<="[^"]+"\s*):*\s*(?<comment>(rem|').*(\s+_\r\n.*)*)) | ((?<!".*):*\s*(?<comment>(rem|').*(\s+_\r\n.*)*) )

Это ты в .Net делал?

Да

[viter.alex]

Так ведь VB6 автоформатирует так, что перед кавычкой ставится пробел(или нет?).

А если комментарий начинается с начала строки?

И многострочный не берет

[Nord777]

А если комментарий начинается с начала строки?

Да, не сообразил. Последний регексп это понимает.

[Nord777]

И многострочный не берет

Покажи строку, которая не распознаётся.

[viter.alex]

Код: Выделить всё

  'Многострочный комментарий _
  Многострочный комментарий _
  Многострочный комментарий

[Nord777]

Если у тебя framework установлен могу скинуть прогу, чтоб потестил(у меня эти строки работают, но может я чего то не понял...)