[blackeangel]

Iska, все хорошо, только он оставляет пробелы в конце 1го столбца, а этого не надо бы.... » Вот что значит — не проверять. Попробуйте так (и опять не проверялось ): Код: ^(.+?) +(u:object_r:.*)$

Отлично сработало, спасибо.
А вот если есть пробелы в конце строки, то можно шаблон расширить для этого? Или все таки лучше заменами?

[Iska]

А вот если есть пробелы в конце строки, »

Например? Так:

Код:

/system/children    mad____u:object_r:childrens mad_____

скажем?!

Тогда можно попробовать так:

Код:

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

Update: Ну, вот, опять: концевые пробелы в тэге code движок хранит, но не отображает. Поменял пробелы на подчёркивания.

[blackeangel]

А вот если есть пробелы в конце строки, » Например? Так: Код: /system/children mad____u:object_r:childrens mad_____ скажем?! Тогда можно попробовать так: Код: ^(.+?) +(u:object_r:.*?) *$ Update: Ну, вот, опять: концевые пробелы в тэге code движок хранит, но не отображает. Поменял пробелы на подчёркивания.

Не, не прокатывает, тоже уже попробовал.

[Iska]

Не, не прокатывает, тоже уже попробовал. »

А у меня прокатывает:

Пример кода

Код:

Option Explicit

Dim strString


strString =  "/system/children    mad    u:object_r:childrens mad     "

With WScript.CreateObject("VBScript.RegExp")
	.Pattern = "^(.+?) +(u:object_r:.*?) *$"
	
	If .Test(strString) Then
		With .Execute(strString).Item(0).Submatches
			WScript.Echo "[" & .Item(0) & "]"
			WScript.Echo "[" & .Item(1) & "]"
		End With
	End If
End With

WScript.Quit 0

Результат

Код:

[/system/children    mad]
[u:object_r:childrens mad]

Если у Вас не так — выкладывайте образец исходного файла, упакованный в архив.

[blackeangel]

Iska, странно, так же пробовал и по нулям. Вот файле.

[Iska]

А где там, простите, пробелы между именами и «u:object_r:», ась? Я лично вижу там малоудобоваримую мешанину из символов табуляции, пробелов и дефисов:

Скрытый текст

Каким образом Вы получаете данный файл?

P.S. Попробуйте такой шаблон:

Код:

^(.+?)[ \t-]+(u:object_r:.*?) *$

[blackeangel]

Iska, между именами в этом файле нет, но есть в конце строк.
Дефисы двойные и табы заменяются на пробелы.
Опять же, его делает производитель прошивок.

[Iska]

blackeangel, я работаю с тем файлом, который Вы выкладываете, не строя каких-то иных предположений. У меня шаблон, показанный в сообщении #36, корректно разбирает строки выложенного Вами файла на две подгруппы. А у Вас?

[blackeangel]

Iska, а у меня нет, пробелы в конце остаются, смотрите скриншоты
и, думаю вместо

Код:

[ \t-]

надо использовать

Код:

[\s-]

[Iska]

Не подтверждаю.

Вот код

Код:

Option Explicit

Sub Main()
    Dim objFSO As New FileSystemObject
    Dim arrContent() As String
    Dim objRegExp As New RegExp
    Dim objTokens As New Dictionary
    
    Dim strString As Variant
    
    
    With objFSO.OpenTextFile("\\tsclient\C\Мои проекты\0046\file_contexts")
        arrContent = Split(.ReadAll(), vbLf)
        .Close
    End With
    
    objRegExp.Pattern = "^(.+?)[ \t-]+(u:object_r:.*?) *$"
    
    For Each strString In arrContent
        Debug.Print strString
        
        If objRegExp.Test(strString) Then
            With objRegExp.Execute(strString).Item(0).SubMatches
                Debug.Print "[" & .Item(0) & "]"
                Debug.Print "[" & .Item(1) & "]"
            End With
        End If
        
        Debug.Print
    Next
    
    Set objRegExp = Nothing
    Set objFSO = Nothing
End Sub

Выжимки из вывода

Код:

/system/bin/logcat  --  u:object_r:logcat_exec:s0       
[/system/bin/logcat]
[u:object_r:logcat_exec:s0]

/system/bin/sh          --  u:object_r:shell_exec:s0               
[/system/bin/sh]
[u:object_r:shell_exec:s0]

/system/bin/run-as  --  u:object_r:runas_exec:s0
[/system/bin/run-as]
[u:object_r:runas_exec:s0]

Вот скриншот

и, думаю вместо [ \t-] надо использовать [\s-] »

Не вижу принципиальной необходимости.