React.StrictMode, который помогает найти потенциальные проблемы
rem Вырубаем вывод команд, чтобы не мешались
@echo off
rem Идём в метку :main
goto :main
:choosestr
rem записывает строку в переменную для удобства
set string=%~1
rem Берём первые 4 символа строки
set strstart=%string:~0,4%
rem Берём последние 4 символа строки
set strend=%string:~-4%
rem Если эти части равны, то в строке не более 4 символов, пишем её в файл
if NOT %strstart%==%strend% echo %string%>>1.txt
rem возвращаемся обратно в цикл в метке :main
goto :EOF
rem P.S. Не для всех строк будет работать такой способ, потому что по счастливой случайности первые символы могут совпасть с последними
rem P.P.S. В Вашем случае можно пойти от обратного:
rem если строки раны, то в них не более 30 символов - пишем их в файл.
:main
rem Генерируем имя временного файла, в который будем писать данные
set tpath=%tmp%/%RANDOM%%RANDOM%.tmp
rem содержимое нашего файла засовываем в этот временный (он автоматически создаётся)
type 1.txt>%tpath%
rem записываем пустоту в наш файл (затираем данные)
type nul>1.txt
rem Каждую строку в нашем временном файле пропускаем через :choosestr
FOR /F %%i in (%tpath%) do call :choosestr %%i