[Дмитрий_Кульгейко@vk]

To: alpap

Действительно моя ошибка. Теперь работает.

Но как теперь применить данный код ко всем подобным файлам т.е. файлы в названии имеют маску ma2_годмесяц_день.txt

При подставленный set "f=ma2_*.txt" не находит путь.

[megaloman]

Дмитрий_Кульгейко@vk, Предчувствия меня не обманули , замените кусок кода из моего предыдущего поста, и будет Вам желаемое:

Код:

@Echo Off

	Set "Sep===))"
	Set /A NSep=4
	Set "FName=ma2_*.txt"

SetLocal EnableExtensions EnableDelayedExpansion
For  %%f IN ("%FName%") DO Call :ReLast "%%f"
GoTo :Eof

FName может быть указан и полным путём, например,
Set "FName=C:\ku-ku\tra la la\ma2_*.txt"

И далее как в предыдущем посте

Код:

:ReLast

Del "%~1.tmp" 2>nul
 
Set "Str="
FOR /F "usebackq delims=" %%s IN (`type "%~1"`) DO (
	If Not "!Str!"=="" >>"%~1.tmp" Echo !Str!
	Set "Str=%%s"
)
If Not "!Str:~-%NSep%!"=="%Sep%" Del "%~1.tmp" 2>nul & GoTo :Eof
If "!Str:~0,-%NSep%!"=="" Del "%~1.tmp" 2>nul & GoTo :Eof 

>>"%~1.tmp" Echo !Str:~0,-%NSep%!
>>"%~1.tmp" Echo !Str:~-%NSep%!
Move /Y "%~1.tmp" "%~1" >nul
GoTo :Eof

А если файлы и переименовать нужно

как в Вашей предыдущей теме

Код:

@Echo Off

	Set "Sep===))"
	Set /A NSep=4
	Set "FName=ma2_?????_??.txt"
	Set "Pref=12345_5_"

SetLocal EnableExtensions EnableDelayedExpansion
For  %%f IN ("%FName%") DO Call :ReLast "%%f"
GoTo :Eof

:ReLast

Del "%~1.tmp" 2>nul
 
Set "Str="
FOR /F "usebackq delims=" %%s IN (`type "%~1"`) DO (
	If Not "!Str!"=="" >>"%~1.tmp" Echo !Str!
	Set "Str=%%s"
)
If Not "!Str:~-%NSep%!"=="%Sep%" Del "%~1.tmp" 2>nul & GoTo :Eof
If "!Str:~0,-%NSep%!"=="" Del "%~1.tmp" 2>nul & GoTo :Eof 

>>"%~1.tmp" Echo !Str:~0,-%NSep%!
>>"%~1.tmp" Echo !Str:~-%NSep%!

Set "Name=%~n1"
Set "Name2=0!Name:~8,-3!"
Set "Name=%Pref%!Name:~6,2!!Name2:~-2!!Name:~-2!%~x1"

Move /Y "%~1.tmp" "%~dp1%Name%" >nul
If Exist "%~dp1%Name%" echo Del "%~1"  
GoTo :Eof

Если уберёте echo, то исходный файл будет удалён

[alpap]

Дмитрий_Кульгейко@vk,
для моего кода изменения такие:

Код:

@echo off
set "d=C:\papka"
for /f "delims=" %%A in ('dir/a-d/b "%d%\ma2_*.txt"') do (
 <"%%A">$ (
  for /f "delims=" %%a in ('more') do @(
   echo %%a|>nul findstr/ec:"==))" && (
    for /f "tokens=1* delims==" %%b in ("%%~a") do @(
     echo %%b
     echo ==%%c
    )
   ) || (
    echo %%a
   )
  )
 )
 move $ "%d%\%%A"
)
exit

или используйте лучше код megaloman, удобнее.

[Дмитрий_Кульгейко@vk]

To: megaloman
Ура все работает. Спасибо всем за помощь.

To: alpap
Ваш код тоже работает, но результат сохраняет в файле с именем %A

Посоветуйте книгу по написанию кода в cmd/bat.

[alpap]

но результат сохраняет в файле с именем %A »

исправил.

Посоветуйте книгу по написанию кода в cmd/bat. »

самый лучший вариант изучить, это делать какой-нибудь серьезный проект и задавать попутно вопросы по форумам - точно научишься, а вообще информации на форуме + справка (очень не плохая) вполне достаточно изучить основное, а вглубь и литература не поможет, надо чтобы кто-то разжевывал, так везде.

[Дмитрий_Кульгейко@vk]

Спасибо.

[Дмитрий_Кульгейко@vk]

alpap, спасибо буду учится.

megaloman, файлы действительно и переименовать надо было )))

По старому вопросу с датой в названии 316546, есть момент.
День оказывается тоже может состоять как из двух цифр, так и из одной.

[megaloman]

Исправляю погрешности постановки: В имени файла день или месяц могут быть любыми (одно или двузначными)

Код:

@Echo Off

	Set "Sep===))"
	Set /A NSep=4
	Set "FName=D:\Delete\ma2_*_*.txt"
	Set "Pref=12345_5_"

SetLocal EnableExtensions EnableDelayedExpansion
For  %%f IN ("%FName%") DO Call :ReLast "%%f"
GoTo :Eof

:ReLast

Del "%~1.tmp" 2>nul
 
Set "Str="
FOR /F "usebackq delims=" %%s IN (`type "%~1"`) DO (
	If Not "!Str!"=="" >>"%~1.tmp" Echo !Str!
	Set "Str=%%s"
)
If Not "!Str:~-%NSep%!"=="%Sep%" Del "%~1.tmp" 2>nul & GoTo :Eof
If "!Str:~0,-%NSep%!"=="" Del "%~1.tmp" 2>nul & GoTo :Eof 

>>"%~1.tmp" Echo !Str:~0,-%NSep%!
>>"%~1.tmp" Echo !Str:~-%NSep%!

FOR /F "usebackq tokens=2,3 delims=_" %%s IN ('%~n1') DO Set "YYYYMM=%%s" & Set "DD=0%%t"
Set "MM=0!YYYYMM:~4,2!
Set "Name=%~dp1%Pref%!YYYYMM:~2,2!!MM:~-2!!DD:~-2!%~x1"

move /Y "%~1.tmp" "!Name!" >nul
If Exist "!Name!" Del "%~1" 2>nul
GoTo :Eof

Путь подправьте (или уберите) в маске

[Дмитрий_Кульгейко@vk]

Откорректировал год в двухзначный, не уверен что правильно, но работает )) получил:

Скрытый текст

@Echo Off

Set "Sep==)"
Set /A NSep=4
Set "FName=c:\TEMP\ma2_*_*.pdf"
Set "Pref=12345_5_"
Set "NewExt=.txt"

SetLocal EnableExtensions EnableDelayedExpansion
For %%f IN ("%FName%") DO Call :ReLast "%%f"
GoTo :Eof

:ReLast

Del "%~1.tmp" 2>nul

Set "Str="
FOR /F "usebackq delims=" %%s IN (`type "%~1"`) DO (
If Not "!Str!"=="" >>"%~1.tmp" Echo !Str!
Set "Str=%%s"
)
If Not "!Str:~-%NSep%!"=="%Sep%" Del "%~1.tmp" 2>nul & GoTo :Eof
If "!Str:~0,-%NSep%!"=="" Del "%~1.tmp" 2>nul & GoTo :Eof

>>"%~1.tmp" Echo !Str:~0,-%NSep%!
>>"%~1.tmp" Echo !Str:~-%NSep%!

FOR /F "usebackq tokens=2,3 delims=_" %%s IN ('%~n1') DO Set "YYYYMM=%%s" & Set "DD=0%%t"
Set "MM=0!YYYYMM:~4,2!
Set "Name=%~dp1%Pref%!YYYYMM:~2,2!!MM:~-2!!DD:~-2!%NewExt%"

move /Y "%~1.tmp" "!Name!" >nul
If Exist "!Name!" Del "%~1" 2>nul
GoTo :Eof

[megaloman]

Дмитрий_Кульгейко@vk, Извините, забыл что год на выходе двузначный, в предыдущем посте я его исправил, в другой теме сейчас тоже сделаю, чтобы не плодить лишние посты