Запись в текстовый файл

@echo off
setlocal enabledelayedexpansion
set /p file=Введите имя файла без кавычек:
set /p n=Введите номер строки:
set /p t=Введите строку^>
call :ReadTo "%file%" _str c
set /a x=%n%+1
set /a z=%n%-1
(for /l %%A IN (1,1,%z%) DO @(echo.!_str.%%A!))>"%file%"
echo.!_str.%n%!%t%>>"%file%"
for /l %%A IN (%x%,1,%c%) DO (echo.!_str.%%A!>>"%file%")
echo.Завершено...
pause
exit /b
 
:ReadTo
for /f "usebackq tokens=*" %%A IN (`find /C /V ""^<"%~1"`) DO (set %~3=%%A)
(for /L %%A IN (1,1,!%~3!) DO (set %~2.%%A=&set /p %~2.%%A=))<"%~1"
exit /b

@echo off
setlocal enabledelayedexpansion EnableExtensions
 
::Задаем имя файла
set file=my.txt
:: Задаем номер строки
set n=3
:: Задаем текст для замены
set newtext=Замена
 
For /F "UseBackQ delims=" %%? in ("%file%") do Set /A C+=1& if !C! LSS %n% echo=%%?>>"%file%_"
echo=%newtext%>>"%file%_"
set /A n=+1
more +%n% < "%file%" >> "%file%_"
move /y "%file%_" "%file%"

more +%n% < "%file%" >> "%file%_"

move /y "%file%_" "%file%"

For /F "tokens=1* delims=]" %%A in ('find /V /N "" ^< "%file%"') do Set /A C+=1& if !C! LSS %n% echo=%%B>> "%file%_"