[Iska]

Что значит «частичное совпадение»? Поясните и проиллюстрируйте кодом.

[blackeangel]

Что значит «частичное совпадение»? Поясните и проиллюстрируйте кодом.

Код:

For i = 1 To UBound(Arr1, 1)
For j = 1 To UBound(Arr2, 1)
If Len(Arr2(j, 1)) > 0 Then
If InStr(1, Arr2(j, 1), Arr1(i, 1)) > 0 Then
Arr2(j, 2) = Arr1(i, 1)
End If
End If
Next j
Next i

For i = 1 To UBound(Arr3, 1)
For j = 1 To UBound(Arr2, 1)
If Len(Arr2(j, 1)) > 0 Then
If InStr(1, Arr2(j, 1), Arr3(i, 1)) > 0 Then
Arr2(j, 3) = Arr3(i, 1)
End If
End If
Next j
Next i
rn = Arr2

Например 2 массива, в одном есть перечень обозначений, во втором такой же перечень но с различными добавками на конце. Надо наложить один массив на другой, и определить есть или нет хотя бы обозначений из массива 2 в массиве 1. То есть только instr. Словарь такое может?

ПС вы даже не сходили по ссылке и не глянули что например в массиве я потом делю на файлы и папки те строки. Словарь это тоже не может. Ну и зачем инструмент который не может того что мне нужно? Да, он быстрый, но не гибкий.

[Iska]

blackeangel, «проиллюстрируйте кодом» подразумевает код, который можно исполнить и увидеть результат. То есть, готовый пример. Каково содержимое Arr1, Arr2 и Arr3?

ПС вы даже не сходили по ссылке и не глянули »

Я ходил и глядел. У меня нет большого желания сидеть и детально разбираться в портянке плохо структурированного кода. Смотрю на него — и будто во времена Fortran-IV вернулся. Я про то и говорю, что Вы зарылись в эти массивы, и не делаете ни шага влево, ни шага вправо, хотя есть ещё целая куча объектов, но Вы их не используете.

например в массиве я потом делю на файлы и папки те строки. Словарь это тоже не может. »

Может, может .

Ваш шаблон подо все подойдет? Вроде да. Или ошибаюсь? »

Прогнал по шаблону — совпали все строки.

P.S. Добавлю ещё про массивы: у Вас куча кода уходит попросту на борьбу с недостатками многомерных массивов.

[blackeangel]

Может, может .

Ну ка ну ка, а то вдруг откажусь сегодня ж от массивов?

P.S. Добавлю ещё про массивы: у Вас куча кода уходит попросту на борьбу с недостатками многомерных массивов.

Количество строк мне не мешает
Ну ка что там за борьба с коррупцией?

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

[blackeangel]

Iska, трудно было подсказать?
Вот так работает в массив

Код:

Private Sub Command1_Click()
Dim objFSO
Dim arrContent
Dim objRegExp

Dim elem
Dim i


Set objFSO = CreateObject("Scripting.FileSystemObject")

With objFSO.OpenTextFile("C:\system_statfile.txt")
    arrContent = Split(.ReadAll(), vbCrLf)
    .Close
End With
ReDim arr(UBound(arrContent), 4)
Set objRegExp = CreateObject("VBScript.RegExp")

objRegExp.Pattern = "^(.+) (\d+) (\d+) (\d+)(?:| (.+))$"
'
    For Each elem In arrContent
        If objRegExp.Test(elem) Then
         With objRegExp.Execute(elem).Item(0).Submatches
            For i = 0 To .Count - 1
                        arr(j, i) = .Item(i)
            Next
            j = j + 1
        End With
    End If
Next
End Sub

[Iska]

blackeangel, подсказать мне не трудно. Но Вы должны отчётливо понимать две вещи:

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

[blackeangel]

blackeangel, подсказать мне не трудно.

В чем же тогда было дело? Зачем надо было настаивать на том что не нужно?
В прочем, этот форум не для выяснения отношений.
А теперь о погоде.
Как теперь наступила пора подобрать другой шаблон разбивающий на 2 столбца например, такое

Код:

/system/children mad u:object_r:childrens mad

Где разделитель на столбцы может быть одним, двумя, тремя ... n пробелами. Вторая часть всегда начинается с

Код:

u:object_r:

Что надо менять уже в имеющемся шаблоне?

[Iska]

В чем же тогда было дело? »

Я же написал — в чём. В предыдущем собщении.

Что надо менять уже в имеющемся шаблоне? »

Как-то так (не проверялось):

Код:

^(.+) +(u:object_r:.*)$

Ну, и подгрупп будет, соответственно, две.

Если не сработает, попробуйте заэкранировать часть шаблона так: «u\:object_r\:». Не помню, надо ли экранировать двоеточие, або нет.

[blackeangel]

Iska, все хорошо, только он оставляет пробелы в конце 1го столбца, а этого не надо бы....
в переменных типа такого проскакивает

Код:

"/system/bin/mcd          "

а хотелось бы чтобы разбивал правильно

Код:

"/system/bin/mcd"

[Iska]

Iska, все хорошо, только он оставляет пробелы в конце 1го столбца, а этого не надо бы.... »

Вот что значит — не проверять. Попробуйте так (и опять не проверялось ):

Код:

^(.+?) +(u:object_r:.*)$