[megaloman]

Код:

@Echo Off &Cls
	If Not "%~1"=="" If Not "%~2"=="" GoTo :Begin
		Echo The script arguments must contain the name of the list and the name of the output file!
		Echo Script terminated! &Pause &Exit /B 2
	:Begin
		If Not Exist "%~dp2" (Echo Folder "%~dp2" not found &Pause &Exit /B 2) Else (2>nul Del "%~dpnx1")
		Set /A n=-1
		For /f "usebackq tokens=1* delims=:" %%i IN (`FindStr /I /R /N /C:"^:%~1$" "%~dpnx0"`) Do Set /A n=%%i
		If %n% LSS 0 (Echo List "%~1" not found &Pause &Exit /B 2)
		For /f "usebackq delims=" %%s IN (`More +%n% "%~dpnx0"`) Do (
			Echo "%%s"|>nul Find /I ":@S"&&(Pause &Exit /B)
			>>"%~2" Echo %%s
		)
Pause
Exit /B

:@S1
C:\Program Files\1 skjhdk kslhjdljsl sl;djl;jlsjd.txt
C:\Program Files\Advanced IP Scanner\2 sslm jds;ll; dalj;al lajl;akjsl;ka.png
C:\Program Files (x86)\3 aklljalkjs akjslkajlasjl akljlakjljs.dbf

:@S2
C:\Program Files\4 adSA SDASD DADADD.xls
C:\Program Files (x86)\5 aSDFDSA CSAS SAASAS.doc

:@S12345
8 adSA SDASD DADADD.xls
9 aSDFDSA CSAS SAASAS.doc

:@S3
C:\Program Files (x86)\6 adSA SDASD DADADD.xls
C:\Program Files\7 aSDFDSA CSAS SAASAS.doc

Имя списка и выходной файл передаются в аргументах.