Ms-Dos - Cortar líneas y crear nuevo txt

@echo off

mode con cols=70 lines=20

REM COLOR 17

Title: Reconstruir Libro de visitas de Trusky

echo.

echo.

rem "Crea" el fichero nuevo guestbook493 y le inserta 10 primeras líneas que

corta del fichero guestbook.txt

rem Realmente crea los ficheros:

rem guestbook4931

rem guestbook4930

csplit" -f guestbook493" -k -n 1 -s guestbook.txt" 11

rem Los renombro 

rename guestbook4931 guestbook.txt

rename guestbook4930 guestbook493.txt

@echo off

set /a contador=1

for /F "tokens=*" %%i in (TEXTO1.txt) do (set linea=%%i&call :cuentalineas)

:cuentalineas

if %contador% GTR 10 EXIT FOR

echo %linea%>>TEXTO2.TXT

set /a contador += 1

GOTO:EOF

@echo off

set /a contador=1

for /F "tokens=*" %%i in (texto1.txt) do (set linea=%%i&call :cuentalineas)

:cuentalineas

if %contador% GTR 10 (GOTO :EFECTOCORTAR)

echo %linea%>>texto2.txt

set /a contador += 1

GOTO:EOF

:EFECTOCORTAR

FOR /F "SKIP=10 tokens=*" %%j in (texto1.txt) do (echo %%j>>cortar.txt)>nul

xcopy "cortar.txt" "texto1.txt" /Y>NUL

DEL "cortar.txt" /f /q

EXIT FOR

EXIT