Type "archivo.txt" | Find /I "nombre a mostrar"

Type "archivo.txt" | Find /I /V "nombre a eliiminar"

for /f "tokens=*" %%c in (amigo-invisible.txt) do (set amigo=%%c)

Public Class TestForm
 
    ' Aquí guardas los dos combos, y la diferencia de la resta entre ambos.
    Public NotInheritable Class ComboDiff
 
        ''' <summary>
        ''' Gets or sets the first combination.
        ''' </summary>
        ''' <value>The first combination.</value>
        Public Property First As IEnumerable(Of Integer)
 
        ''' <summary>
        ''' Gets or sets the second combination.
        ''' </summary>
        ''' <value>The second combination.</value>
        Public Property Second As IEnumerable(Of Integer)
 
        ''' <summary>
        ''' Gets the combination difference.
        ''' </summary>
        ''' <value>The combination difference.</value>
        Public ReadOnly Property Difference As IEnumerable(Of Integer)
            Get
                Dim comdoDiff As New List(Of Integer)
                For i As Integer = 0 To (First.Count - 1)
                    comdoDiff.Add(Me.Second(i) - Me.First(i))
                Next i
                Return comdoDiff
            End Get
        End Property
 
    End Class
 
    Private Sub Test() Handles MyBase.Shown
 
        Dim comboDiffs As New List(Of ComboDiff)
        Dim txtFilePath As String = "C:\Archivo.txt"
        Dim txtLines As IEnumerable(Of String) = IO.File.ReadAllText(txtFilePath).
                                                         Split({ControlChars.NewLine},
                                                               StringSplitOptions.RemoveEmptyEntries)
 
        For i As Integer = 0 To (txtLines.Count - 1) Step 2
 
            Dim comboDiff As New ComboDiff
            With comboDiff
                .First = From value As String In txtLines(i).Split({" "c}, StringSplitOptions.RemoveEmptyEntries)
                         Select Integer.Parse(value)
 
                .Second = From value As String In txtLines(i + 1).Split({" "c}, StringSplitOptions.RemoveEmptyEntries)
                          Select Integer.Parse(value)
            End With
            comboDiffs.Add(comboDiff)
 
        Next i
 
        For Each comboDiff As ComboDiff In comboDiffs
            Dim sb As New System.Text.StringBuilder
            With sb
                .AppendLine(String.Format("Primer combo : {0}", String.Join(",", comboDiff.First)))
                .AppendLine(String.Format("Segundo combo: {0}", String.Join(",", comboDiff.Second)))
                .AppendLine(String.Format("Diferencia   : {0}", String.Join(",", comboDiff.Difference)))
            End With
            MessageBox.Show(sb.ToString, "", MessageBoxButtons.OK)
        Next comboDiff
 
    End Sub
 
End Class

REG.exe ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\ImmersiveShell\EdgeUi" /V "DisableTLCorner" /T "REG_DWORD" /D "0x00000000" /F 1>NUL
REG.exe ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\ImmersiveShell\EdgeUi" /V "DisableTRCorner" /T "REG_DWORD" /D "0x00000000" /F 1>NUL