[Iska]

Ну, тогда как-то так:

Код:

^(.+) (\d+) (\d+) (\d+)(?:| (.+))$

VB6 у меня под рукой нету, на WSH выглядит так:

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

Код:

Option Explicit

Dim objFSO
Dim arrContent
Dim objRegExp

Dim elem
Dim i


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

With objFSO.OpenTextFile("C:\Мои проекты\0041\0001.txt")
	arrContent = Split(.ReadAll(), vbCrLf)
	.Close
End With

Set objRegExp = WScript.CreateObject("VBScript.RegExp")

objRegExp.Pattern = "^(.+) (\d+) (\d+) (\d+)(?:| (.+))$"

For Each elem In arrContent
	WScript.Echo elem
	
	If objRegExp.Test(elem) Then
		With objRegExp.Execute(elem).Item(0).Submatches
			For i = 0 To .Count - 1
				WScript.Echo vbTab, i, ": [" & .Item(i) & "]"
			Next
		End With
	End If
	
	WScript.Echo
Next

Set objRegExp = Nothing
Set objFSO = Nothing

WScript.Quit 0

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

Обратите внимание: поскольку Вы пишете про «андроид, юникс система» — вероятно, концы строк в файле будут в формате Unix, и тогда потребуется заменить в Split() vbCrLf на vbLf.