[Constantant]

спасибо)
будем вникать)

[El Sanchez]

а без sed вообще ни как? »

Еще один изврат (сценарий обязательно сохранить в кодировке DOS (OEM866)):

Код:

@Echo off

::"¬" это ALT+0172

Setlocal ENABLEDELAYEDEXPANSION
for /f "usebackq tokens=*" %%a in (`dir /b *.pdf`) do (
	set Out=
	set /a i=-1
	set "Str=%%~na"
	set "Str=!Str:_=-!"
	set "Str=!Str:+=-!"
	set "Str=!Str: =-!"
	set "Str=!Str:&=-!"
	call :func
	ren "%%a" !Str!.pdf
)
Endlocal
goto :eof

:func
set /a i+=1
call :parse set "char=%%Str:~%i%,1%%"
if "%Char%"=="" (
	set "Str=!Out:¬=-!"
	goto :eof
	)
if "%Char%"=="=" set Char=¬
set "Out=!Out!%Char%"
call :func
:parse
%*

[amel27]

Еще один изврат »

Класс!.. Но он не позволяет менять "!"... Если не против, немного доработал:

Код:

@Echo Off

For %%Z In (*.pdf) Do Set "NameOld=%%Z"& Call :ReName
Exit /B 0

:ReName
  Set NameLen=0& Set NameNew=
:ReNameLoop
  Call Set "$C=%%NameOld:~%NameLen%,1%%"
  Set /A NameLen+=1

  If Not "%$C%"==" " If Not "%$C%"=="_" If Not "%$C%"=="+" If Not "%$C%"=="&" If Not "%$C%"=="=" (
  If Not "%$C%"==""  Set "NameNew=%NameNew%%$C%"& GoTo :ReNameLoop )
  If Not "%$C%"==""  Set "NameNew=%NameNew%-"& GoTo :ReNameLoop

  REN "%NameOld%" "%NameNew%"
GoTo :EOF

Constantant, решено ?

[El Sanchez]

Но он не позволяет менять "!" »

Так и не требуется ж

Если не против, немного доработал »

amel27,
Вещь! И не надо подстановку делать, простое посимвольное сравнение.
Кстати, сравнил время выполнения моего сценария с вашим. Сгенерировал 1000 текстовых файлов с уникальными именами (%random%ы, разделенные этими 5 символами) и включил секундомер. Мой сценарий выполнился в среднем за 1:51.8 мин., а ваш за 1:28.2 мин., так что Constantant, берите последний вариант.

[Constantant]

Ребята, вы все молодцы!
Всем спасибо!
Очень помогли !

[amel27]

вдогонку по теме - случайно наткнулся на утилиту FART (Find And Replace Text), которая кроме прочего может переименовывать файлы... к сожалению, для замены каждого символа потребовалась отдельная команда:

Код:

fart -f *.pdf "_" "-"
fart -f *.pdf "+" "-"
fart -f *.pdf "&" "-"
fart -f *.pdf "=" "-"
fart -f *.pdf " " "-"

[Devils0411]

Похожая ситуация... Только необходимо заменить символ "\" на "/" в текстовом файле.

[deepred]

Devils0411,

Код:

Option Explicit

Dim FSO, TextStream, File, strContents, Document

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("путь_к_файлу\input.txt") ' Исходный файл для обработки
Set TextStream = File.OpenAsTextStream()
Set Document = FSO.CreateTextFile("путь_к_файлу\output.txt") ' Выходной файл
strContents = TextStream.ReadAll()
Document.Write(Replace(strContents,"\","/")) ' Параметры замены
Document.Close

[Devils0411]

deepred, только хотелось бы все же средствами cmd, или cmd + какая-нибудь утилитка для замены символов.

[deepred]

Devils0411,

Код:

Echo off
Set "Loctn=F:\change symbol\" & rem расположение  файла
CD %Loctn%
for /f "tokens=* delims=" %%a in (file.txt) do call :replace "%%a"
:loop
IF Exist TMP (TYPE TMP > file.txt && Del TMP) else goto loop
goto :Eof

:replace
Set $TXTin=%~1
Set $TXTout=%$TXTin:\=/%
Echo %$TXTout%  >> TMP