[文本处理] [已解决]求助批处理代码改进精简？

cls
@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set str=prt
if exist *.%str%.* (
for /f "delims=" %%i in ('dir /a-d /b /s *.%str%.*') do echo %%~xi "%%i" >> tmp1.txt
sort /r<tmp1.txt>%str%.txt
del tmp1.txt)else echo no %str%

SETLOCAL ENABLEDELAYEDEXPANSION

set str=igs
if exist *.%str%.* (
for /f "delims=" %%i in ('dir /a-d /b /s *.%str%.*') do echo %%~xi "%%i" >> tmp1.txt
sort /r<tmp1.txt>%str%.txt
del tmp1.txt)else echo no %str%

SETLOCAL ENABLEDELAYEDEXPANSION

set str=exe
if exist *.%str%.* (
for /f "delims=" %%i in ('dir /a-d /b /s *.%str%.*') do echo %%~xi "%%i" >> tmp1.txt
sort /r<tmp1.txt>%str%.txt
del tmp1.txt)else echo no %str%

SETLOCAL ENABLEDELAYEDEXPANSION

set str=rpt
if exist *.%str%.* (
for /f "delims=" %%i in ('dir /a-d /b /s *.%str%.*') do echo %%~xi "%%i" >> tmp1.txt
sort /r<tmp1.txt>%str%.txt
del tmp1.txt)else echo no %str%

SETLOCAL ENABLEDELAYEDEXPANSION

set str=sld
if exist *.%str%.* (
for /f "delims=" %%i in ('dir /a-d /b /s *.%str%.*') do echo %%~xi "%%i" >> tmp1.txt
sort /r<tmp1.txt>%str%.txt
del tmp1.txt)else echo no %str%

:complete
echo.
pause
exit
pause


請問上面這些 str 要如何合併寫在一起，
才可以讓p看起來簡單一點。

謝謝
复制代码