@Echo OFF & Title Plantilla Batch por defecto by Elektro
 
Setlocal EnableDelayedExpansion
 
Set "sourceTextFile=%CD%\1.txt"
Set "targetTextFile=%CD%\New.txt"
 
:: Crear una variable dinámicada por cada linea "TOTALES DE LA TERMINAL XXXXX  :"" encontrada.
For /F "Tokens=* Delims=" %%a In ('Type "%sourceTextFile%" ^| Find /I "Totales"') Do (
	Set /A "matchIndex += 1"
	Set "var!matchIndex!=%%~a"
)
 
:: Iterar las lineas del archivo.
Set /A "varIndex += 1"
(For /F "UseBackQ Tokens=* Delims=" %%a In ("%sourceTextFile%") Do (
 
	(Echo "%%~a" | Find /I "TOTALES DE LA TERMINAL")1>NUL 2>&1 && (
		Set /A "varIndex += 1"
	) 
 
    REM Elimina esta condicioón si quieres que también se escriban lineas cómo esta:
    REM TOTALES DE LA TERMINAL 02602  :TOTALES DE LA TERMINAL 02602  :
	(Echo "%%~a" | Find /I "TRANSACCION")1>NUL 2>&1 && (
		Call Echo %%var!varIndex!%%%%~a
	) 
 
))>"%targetTextFile%"
 
Pause&Exit /B 0

TOTALES DE LA TERMINAL 02602  :TRANSACCION 1
TOTALES DE LA TERMINAL 02602  :TRANSACCION 2
TOTALES DE LA TERMINAL 02602  :TRANSACCION 3
TOTALES DE LA TERMINAL 02602  :TRANSACCION 4
TOTALES DE LA TERMINAL 02602  :TRANSACCION 5
TOTALES DE LA TERMINAL 02602  :TRANSACCION 6
TOTALES DE LA TERMINAL 02602  :TRANSACCION 7
TOTALES DE LA TERMINAL 02603  :TRANSACCION 8
TOTALES DE LA TERMINAL 02603  :TRANSACCION 9
TOTALES DE LA TERMINAL 02603  :TRANSACCION 10
TOTALES DE LA TERMINAL 02603  :TRANSACCION 11
TOTALES DE LA TERMINAL 02603  :TRANSACCION 12
TOTALES DE LA TERMINAL 02603  :TRANSACCION 13
TOTALES DE LA TERMINAL 02603  :TRANSACCION 14
TOTALES DE LA TERMINAL 02606  :TRANSACCION 15
TOTALES DE LA TERMINAL 02606  :TRANSACCION 16
TOTALES DE LA TERMINAL 02606  :TRANSACCION 17
TOTALES DE LA TERMINAL 02606  :TRANSACCION 18
TOTALES DE LA TERMINAL 02606  :TRANSACCION 19
TOTALES DE LA TERMINAL 02606  :TRANSACCION 20
TOTALES DE LA TERMINAL 02606  :TRANSACCION 21
TOTALES DE LA TERMINAL 02620  :TRANSACCION 22
TOTALES DE LA TERMINAL 02620  :TRANSACCION 23
TOTALES DE LA TERMINAL 02620  :TRANSACCION 24
TOTALES DE LA TERMINAL 02620  :TRANSACCION 25
TOTALES DE LA TERMINAL 02620  :TRANSACCION 26
TOTALES DE LA TERMINAL 02620  :TRANSACCION 27
TOTALES DE LA TERMINAL 02620  :TRANSACCION 28

    Sub Test()
 
        ' Restart the current computer in 30 seconds and wait for applications to close.
        ' Specify that the restart operation is planned because a consecuence of an installation.
        Dim success As Boolean =
            SystemRestarter.Restart("127.0.0.1", 30, "System is gonna be restarted quickly, go save all your data now...!",
                                    SystemRestarter.ShutdownMode.Wait,
                                    SystemRestarter.ShutdownReason.MajorOperatingSystem Or
                                    SystemRestarter.ShutdownReason.MinorInstallation,
                                    SystemRestarter.ShutdownPlanning.Planned)
 
        Console.WriteLine(String.Format("Restart operation initiated successfully?: {0}", CStr(success)))
 
        ' Abort the current operation.
        If success Then
            Dim isAborted As Boolean = SystemRestarter.Abort()
            Console.WriteLine(String.Format("Restart operation aborted   successfully?: {0}", CStr(isAborted)))
        Else
            Console.WriteLine("There is any restart operation to abort.")
        End If
        Console.ReadKey()
 
        ' Shutdown the current computer instantlly and force applications to close.
        ' ( When timeout is '0' the operation can't be aborted )
        SystemRestarter.Shutdown(Nothing, 0, Nothing, SystemRestarter.ShutdownMode.ForceSelf)
 
        ' LogOffs the current user.
        SystemRestarter.LogOff(SystemRestarter.LogOffMode.Wait)
 
    End Sub

Private Shared ReadOnly privilegeNameOfShutdown As String = "SeRemoteShutdownPrivilege"
Private Shared ReadOnly privilegeNameOfRemoteShutdown As String = "SeRemoteShutdownPrivilege"