[alexys2004]

DJ Mogarych,

Powershell, запрос номера списка и вывод в файл. »

немного не то! да и Powershell я совсем плохо понимаю..

megaloman,
это прям КРУТО!
только я не совсем ещё понял, как это работает..
надо разобраться, как записывать не все файлы сразу, а нужный в конкретный момент..
можно я попробую разобраться и ещё раз Вас спрошу, если понадобится?

megaloman,
если я правильно понял, цикл

PHP код:

For /f "usebackq tokens=1* delims=:" %%i IN (`FindStr /R /N /C:"^:@S" "%~dpnx0"`) Do Call :Out %%i %%j 

находит все @S, вызывает функцию, которая записывает найденные имена в файлы, которые созданы строкой выше?

а если в конкретный момент времени мне надо записать имена из конкретного списка в конкретный файл, то мне достаточно только самой функции :Out без перебора всех списков в цикле? только нужно подставить конкретные имена вместо переменных в этот цикл, опустив предыдущие 2 цикла перебора файлов и списков?

PHP код:

Call Set "OutFile=%%%2%%"
    For /f "usebackq delims=" %%s IN (`More +%1 "%~dpnx0"`) Do (
        Echo "%%s"|>nul Find ":@S"&&Exit /B
        >>"%BoxOut%\%OutFile%" Echo %%s 

[alexys2004]

megaloman,

сократил вот так:

PHP код:

@Echo Off &Cls
    Set "BoxOut=D:\Box_Out"

    For /f "usebackq tokens=1* delims=:" %%i IN (`FindStr /R /N /C:"^:@S1" "%~dpnx0"`) Do Call :Out %%i %%j
Pause
Exit /B

:Out
    For /f "usebackq delims=" %%s IN (`More +%1 "%~dpnx0"`) Do (
        Echo "%%s"|>nul Find ":@S"&&Exit /B
        >>"%BoxOut%\list1.txt" Echo %%s
    )
Exit /B

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

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

как ещё я могу сократить? например, чтобы вообще без вызова функции? я буду передавать название списка и внешнего файла двумя переменными.

[Sham]

FindStr*/R*/N*/C:"^:@S1 »

насколько понял, ищется в этом файле скрипта строка содержащая ":@S" (заголовок списка), и в функцию передаётся номер строки и сама строка целиком (вывод FindStr, разделённый по delim). Дальше more позволяет начать чтение файла с этого номера строки. Чтобы конкретизировать список нужно передать в FindStr более конкретный заголовок списка, а не :@S.

[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

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