[firstarey]

по идее так, но у меня Ваши батники не отрабатывают даже в исходном виде, может конечно с кодировками что не то
(просто перетаскиваете файл на батник)

Код:

@Echo Off
chcp 1251

if "%~f1"=="" pause
set "InFile=%~f1"

echo %InFile%


SetLocal EnableExtensions EnableDelayedExpansion

FOR /F "usebackq tokens=*  delims=" %%i in ("%InFile%") do (
	Set "s=%%i"
	Set "s=!s:P;ПП-=!"

	If not %%i==!s! (
		Set "s=!s:;=!"
		copy "%InFile%" "z:\two\!s!.txt" 
		GoTo :Eof
	)
)