.NET (Core and Framework)

Richard MacCutchan wrote:

Why make things more complicated than they need to be?

Alan Burkhart wrote:

I'm using Regex to search inside files, which GetFiles doesn't support

Richard MacCutchan wrote:

I don't understand what that means. Once you have a list of filenames you still need to open and read each one in order to search the contents.

Shared Iterator Function GroupAccounts(ByVal lines As IEnumerable(Of String)) As IEnumerable(Of IList(Of String))
    Dim currentAccount As List(Of String) = Nothing
    For Each line As String In lines
        If String.IsNullOrWhiteSpace(line) Then Continue For
        
        If String.Equals(line, "[account]", StringComparison.OrdinalIgnoreCase) Then
            If currentAccount IsNot Nothing Then Yield currentAccount
            currentAccount = New List(Of String)()
        End If
        
        If currentAccount IsNot Nothing Then
            currentAccount.Add(line)
        End If
    Next
    
    If currentAccount IsNot Nothing Then
        Yield currentAccount
    End If
End Function

Shared Iterator Function UngroupAccounts(ByVal groupedAccounts As IEnumerable(Of IEnumerable(Of String))) As IEnumerable(Of String)
    Dim started As Boolean = False
    For Each account As IEnumerable(Of String) In groupedAccounts
        If started Then
            Yield String.Empty
            Yield String.Empty
        End If
        
        For Each line As String In account
            Yield line
        Next
        
        started = True
    Next
End Function

Shared Function RemoveUser(ByVal groupedAccounts As IList(Of IList(Of String)), ByVal userToRemove As String) As Boolean
    Dim found As Boolean = False
    For index As Integer = groupedAccounts.Count - 1 To 0 Step -1
        If groupedAccounts(index).Any(Function (line) String.Equals(line, "user = " & userToRemove, StringComparison.OrdinalIgnoreCase)) Then
            groupedAccounts.RemoveAt(index)
            Found = true
        End If
    Next
    
    Return found
End Function

Dim sourceLines As IEnumerable(Of String) = IO.File.ReadLines(textpath)
Dim groupedAccounts As IList(Of IList(Of String)) = GroupAccounts(sourceLines).ToList()
If RemoveUser(groupedAccounts, txtuser.Text.Trim()) Then
    Dim resultLines As IEnumerable(Of String) = UngroupAccounts(groupedAccounts)
    IO.File.WriteAllLines(textpath, resultLines)
End If