FINDSTR Befehl für strikt aufeinanderfolgende Sequenzelementen

D:>echo Benutzername : ABC1 |findstr /c:"Benutzername : ABC"
Benutzername : ABC1

D:\>echo Benutzername : FGH ABC1 |findstr /c:"Benutzername : ABC"

D:\>

D:\>type Text.txt
gibt's eine M÷glichkeit mit dem "findstr" Befehl die Sequenz ("Benutzername: ABC
 " (ohne die 1 am Ende, und auch wenn m÷glicherweise Leerzeichen dazwischen lieg
en) in der folgenden Struktur eindeutig zu erkennen?

Benutzername : ABC1


Die Sequenz soll aber in der Struktur

Benutzername : FGH ABC1

D:\>findstr /c:"Benutzername : ABC" Text.txt
Benutzername : ABC1

D:\>

findstr /r /c:"Benutzername : *ABC"

Imports System.IO

Module Module1

    Dim p_text As String()
    Dim p_DateinameInklPfad As String


    Sub Main()
        Dim zeile As Integer = 0
        Dim suchtext As String = ""  
        p_DateinameInklPfad = "C:\test.txt"  
        lesen()

        For i As Integer = 0 To p_text.Length - 1 Step 1
            If p_text(i).IndexOf(suchtext) > 0 Then
                zeile = i
                'etweder mit exit oder ausgabe aller  
                Console.WriteLine(p_text(i))
                Exit For
            End If
        Next
    End Sub

    Public Sub lesen(Optional ByVal ToLower As Boolean = False, Optional ByVal ToUpper As Boolean = False)
        ReDim Preserve p_text(0)
        p_text(0) = "false"  
        Try
            ' --- Datei öffnen  
            Dim fs As FileStream = New FileStream(p_DateinameInklPfad, FileMode.OpenOrCreate, FileAccess.ReadWrite)
            ' --- Stream öffnen  
            Dim r As StreamReader = New StreamReader(fs)
            ' --- Zeiger auf den Anfang  
            r.BaseStream.Seek(0, SeekOrigin.Begin)
            ' --- Alle Zeilen lesen und an Console ausgeben  
            Dim i As Integer = 0
            While r.Peek() > -1
                ReDim Preserve p_text(i)
                p_text(i) = r.ReadLine()
                If ToLower Then
                    p_text(i).ToLower()
                End If
                If ToUpper Then
                    p_text(i).ToUpper()
                End If
                i = i + 1
            End While
            ' --- Reader und Stream schließen  
            r.Close()
            fs.Close()
        Catch ex As Exception
            ' txtDatei_Logfile_Schreiben(ex.Message, txt_Logfile)  
        End Try
    End Sub

End Module

    Sub Main()
        Dim zeile As Integer = 0
        Dim suchtext As String = "Benutzername"  
        Dim suchtext As String = "ABC"  
        p_DateinameInklPfad = "C:\test.txt"  
        lesen()

        For i As Integer = 0 To p_text.Length - 1 Step 1
            If p_text(i).IndexOf(suchtext) > 0 and  p_text(i).IndexOf(suchtext2) > 0 Then
                zeile = i
                'etweder mit exit oder ausgabe aller  
                Console.WriteLine(p_text(i))
                Exit For
            End If
        Next
    End Sub

    Sub Main()
        Dim zeile As Integer = 0
        Dim myRegex As New Regex("")  
        Dim suchtext As String = ""  
        p_DateinameInklPfad = "C:\test.txt"  
        lesen()

        For i As Integer = 0 To p_text.Length - 1 Step 1
            If myRegex.IsMatch(p_text(i)) Then
                zeile = i
                'etweder mit exit oder ausgabe aller  
                Console.WriteLine(p_text(i))
                Exit For
            End If
        Next
    End Sub

Sub Main(ByVal Args As String())
Dim suchtext As String = Args(0)
Dim p_DateinameInklPfad As String = Args(1)
Dim p_text As String()
Try
    p_text = Split(My.Computer.FileSystem.ReadAllText(p_DateinameInklPfad), vbNewLine)
Catch ex As Exception
    Environment.ExitCode = 1
    Exit Sub
End Try
Dim myRegex As New System.Text.RegularExpressions.Regex(suchtext)
For i As Integer = 0 To p_text.Length - 1
    If myRegex.IsMatch(p_text(i)) Then Console.WriteLine(p_text(i))
Next
End Sub

Sub Main(ByVal Args As String())
Dim suchtext As String = Args(0)
Dim p_DateinameInklPfad As String = Args(1)
Dim p_text As String

Try
    p_text = My.Computer.FileSystem.ReadAllText(p_DateinameInklPfad)
Catch ex As Exception
    Environment.ExitCode = 1
    Exit Sub
End Try
Dim myRegex As New System.Text.RegularExpressions.Regex(suchtext)
For Each Match In myRegex.Matches(p_text)
    Console.WriteLine(Match)
Next
End Sub

"Benutzername : *ABC\S*"

Console.WriteLine(Match.Groups(1))

"Benutzername : *(ABC\S*)"