File name 0 0 755

for i=48 to 57
for j=48 to 57
for k=48 to 57
for l=48 to 57
for m=48 to 57
Arr=replace(1," "&chr(i)&" "&chr(j)&" "&chr(k)&chr(l)&chr(m),vbTab&chr(i)&vbTab&chr(j)&vbTab&chr(k)&chr(l)&chr(m))
Next
Next
Next
Next
Next

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
For j = 0 To UBound(arrContent)
        If objRegExp.Test(elem) Then
         With objRegExp.Execute(elem).Item(0).Submatches
            For i = 0 To .Count - 1
                        arr(j, i) = .Item(i)
                'WScript.Echo vbTab, i, ": [" & .Item(i) & "]"
            Next
            
        End With
    End If
Next
Stop
Next
End Sub

For j = 0 To UBound(arrContent)
  elem = arrContent(j)

For Each elem In arrContent
  j = j + 1

"/system/bin/mcd          "

"/system/bin/mcd"

"^(.*) +(\s) +(u:object_r:.+)$"

"/system/bin/sh mini      u:object:r_shell         "

"/system/bin/sh mini" "u:object:r_shell"

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

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

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

'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