Разное

blackeangel · Отправлено: **00:16, 21-02-2017** | #41

Iska, посмотрите что получилось в этих строках

Код:

/system(/.*)?		u:object_r:system_file:s0               
/system/bin/e2fsck	--	u:object_r:fsck_exec:s0

Думаю в них так же пробелы будут. Ну не может один и тот же код, работать по разному на 3х компах.

Iska · Отправлено: **00:50, 21-02-2017** | #42

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

Код:

Debug.Print "[" & .Item(0) & "]" & vbTab & "[" & .Item(1) & "]"

дабы умещалось в окне Immediate. Результат (начало вывода):

Код:

/system(/.*)?       u:object_r:system_file:s0               
[/system(/.*)?] [u:object_r:system_file:s0]

/system/bin/e2fsck  --  u:object_r:fsck_exec:s0             
[/system/bin/e2fsck]    [u:object_r:fsck_exec:s0]

/system/bin/fsck\.f2fs  --  u:object_r:fsck_exec:s0
[/system/bin/fsck\.f2fs]    [u:object_r:fsck_exec:s0]

/system/bin/fsck_msdos  --  u:object_r:fsck_exec:s0
[/system/bin/fsck_msdos]    [u:object_r:fsck_exec:s0]

…

Показывайте Ваш код (можете весь проект упаковать в архив и выложить).

blackeangel · Отправлено: **05:49, 21-02-2017** | #43

Iska,

Код:

'file_contexts
file_contexts = CreateObject("Scripting.FileSystemObject").OpenTextFile(App.Path & "\file_contexts", 1).ReadAll
file_contexts = Replace(file_contexts, "  " & vbLf, vbCrLf)
file_contexts = Replace(file_contexts, " " & vbLf, vbCrLf)
file_contexts = Replace(file_contexts, vbTab & vbTab & vbLf, vbCrLf)
file_contexts = Replace(file_contexts, vbTab & vbLf, vbCrLf)
file_contexts = Replace(file_contexts, vbLf, vbCrLf)
'file_contexts = Replace(file_contexts, vbTab, " ")
'file_contexts = Replace(file_contexts, "--", "")
'file_contexts = Replace(file_contexts, "       ", " ")
'file_contexts = Replace(file_contexts, "      ", " ")
'file_contexts = Replace(file_contexts, "     ", " ")
'file_contexts = Replace(file_contexts, "    ", " ")
'file_contexts = Replace(file_contexts, "   ", " ")
'file_contexts = Replace(file_contexts, "  ", " ")
file_contexts = Replace(file_contexts, vbCrLf & vbCrLf, vbCrLf)
'разбиваем на строки
contexts = Split(file_contexts, vbCrLf)
'бьем на столбцы
ReDim arr5(UBound(contexts), 1)
'For i = LBound(contexts) To UBound(contexts)
'    If InStr(1, contexts(i), "#") = 0 Then
'     If InStr(1, contexts(i), "/system/") > 0 Then 'Or InStr(1, contexts(i), "/vendor/") > 0 Then 'âûáèðàåì òîëüêî ïàïêó system è vendor
'          arr = Split(contexts(i))
'        For j = LBound(arr) To UBound(arr)
'            arr5(i, j) = arr(j)
'        Next
'      End If
'    End If
'Next
'через регулярки
Set objRegExp = CreateObject("VBScript.RegExp")
'objRegExp.Pattern = "^(.*) +(u:object_r:.+)$"
'objRegExp.Pattern = "^(.*?) +(u:object_r:.+) *$"
objRegExp.Pattern = "^(.+?)[\s-]+(u:object_r:.*?) *$"
    For Each elem In contexts
    If InStr(1, elem, "/system/") > 0 Then
        If objRegExp.Test(elem) Then
         With objRegExp.Execute(elem).Item(0).Submatches
            For i = 0 To .Count - 1
                        arr5(j, i) = .Item(i)
            Next
            j = j + 1
        End With
   End If
 End If
Next

Erase contexts
contexts = DeleteBlankRows(arr5, 1) 'удаляем пустые строки по 2 столбцу
Erase arr5

blackeangel · Отправлено: **09:02, 21-02-2017** | #44

Iska, проблема решилась удалением всех строк с replace.
Спасибо.

Iska · Отправлено: **12:22, 21-02-2017** | #45

Цитата blackeangel:

… replace. »

Я подозревал что-то вроде этого.