[решено] Копирование имен файлов с удалением указанных символов

[Wraith21]

Доброго времени суток.
Имеется код для копирования имен файлов из папки запуска батника по маске в txt список. Буду очень признателен, если покажете как можно изменить имя файла которое будет записано в список. В идеале хотелось бы задавать набор символов (строгую последовательность) который будет удален из названия файла перед записью имени (уже измененного) в файл.
Если сложно излагаю, вот пример:
Фалы в папке:
Файл_123_JP_.gif
Файл_453_JP_.gif
Файл_1454_JP_.gif

последовательность символов для удаления=_JP_

названия фалов в txt списке:
Файл_123.gif
Файл_453.gif
Файл_1454.gif

@echo off
setlocal

set list="%~dp0%"

for %%i in (%list%) do 1>>List.txt dir /b /a "%%~i\*.gif"

[Georgio]

@echo off

set "delete=_JP_"

>"list.txt" (
for /f "delims=" %%i in ('2^>nul dir/a-d/b "%~dp0*.gif"') do @(
set x=%%i& cmd/v/c echo !x:%delete%=!
)
)

exit/b