» Задачи на bat-файлах 8

mugil_cephalus
смысла нет в моём варианте, пока автор не прояснит ситуацию

king_stiven

Цитата:

пока автор не прояснит ситуацию

абсолютно согласен
просто я думал, ты используешь предыдущий код

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

Добавлено:
sergij
повторяю ещё раз:

Цитата:

Хотя напиши тут если один показатель в самом конце nnn.log пустой. как будет выглядеть лог файл
так
...
...
12

или так
...
...
12

Вроде по русски пишу.
Ну как бы тебе обьяснить, выбери из своих логов(001.log-nnn.log) такой, у которго самая последняя строка пустая, так как данного параметра просто нет(по крайней мере ты нам обьяснял так происхождения пустых строк в логах), и выложи сюда или напиши есть ли после этой самой последней пустой строки переход на следующую строку.
Пример:
echo 12> 1.txt
сделает не только вывод 12 в 1.txt, но выведет в 1.txt переход на следующую строку. Если в твоём логе есть такой переход. то я выкладываю решение. Тестить полностью твой код не имею возможности.

sergij
см в шапке Примечание: Большие куски кода заключайте в тэг [no][more][/no]

mugil_cephalus
Advanced Member


Цитата:

встроенной команды нет, есть консольные утилиты
http://www.petri.co.il/software/clip.zip
или
ftp://ftp.microsoft.com/Services/TechNet/samples/PS/Win98/Reskit/FILE/CLIP.EXE

А как правильно подключить CLIP.EXE, а то почему-то при открытии текст не вставляется??

for /f "tokens=1,2,3,4,5,6,7 delims=:,. " %%a in ('echo ReadMe') do echo. > %%c%%b%%a%%d%%e%%f.txt&&start c:\progra~1\Notepad++\Notepad++.exe %%c%%b%%a%%d%%e%%f.txt
clip.exe ???

mugil_cephalus
Цитата:

у меня такая же засада и с непустой последней строкой

сильно подозреваю что у тебя эта строка не заканчивается crlf
по уму-то там не конец строки надо было искать, а начало - но с ним без дополнительного текста что-то не ищет.
Зато вот так можно:

Код: :loop
for /f "tokens=1* %skp% delims=]" %%i in ('find /n /v "" ^< 001.log') do (
0>nul 1>>out.txt 2>&1 set /p="%%j "
for /f "tokens=1* %skp% delims=]" %%i in ('find /n /v "" ^< 002.log') do (
0>nul 1>>out.txt 2>&1 set /p="%%j "
for /f "tokens=1* %skp% delims=]" %%i in ('find /n /v "" ^< 003.log') do (
0>nul 1>>out.txt 2>&1 set /p="%%j "
for /f "tokens=1* %skp% delims=]" %%i in ('find /n /v "" ^< 004.log') do (
0>nul 1>>out.txt 2>&1 set /p="%%j "
for /f "tokens=1* %skp% delims=]" %%i in ('find /n /v "" ^< 005.log') do (
0>nul 1>>out.txt 2>&1 set /p="%%j "
if /i "_%skp%" equ "_" set "skp=0"
set /a skp=!skp!+1
set "skp=skip=!skp!"
1>>out.txt 2>&1 echo.
goto:loop
)))))

wolf0425

А если предварительно обработать ini-Файлы убрав из них пустые строки - а затем всё остальное ?

Сейчас так и происходит -нет никакой дуракоустойчивости - Вот я и уже по другому начал сочинять
Всё за один цикл обработки одного INI и сразу вывод по всем 33 позициям вот почему мне нужен другой способ вывода
Код: ChCp 1251
setlocal enabledelayedexpansion


for /F "tokens=* " %%i in (001.txt) do set pc=%%i
for /F "tokens=* " %%i in (002.txt) do set mac=%%i
for /F "tokens=* " %%i in (003.txt) do set user=%%i
for /F "tokens=* " %%i in (012.txt) do set ofe7=%%i
for /F "tokens=* " %%i in (009.txt) do set xpk=%%i

echo Имя_комьютера    MAC-адрес    Пользователь    Процессор    Чипсет    Объем_памяти    Bios    Сер.номер_и_тип_монитор  >>out2.txt
echo %pc%    %mac%    %user%                        %xpk%            %ofe7%>> out2.txt

sergij

Код: @echo off
setlocal enabledelayedexpansion
set n=1
:loop
for %%a in (001.log 002.log 003.log) do call :jkl %%a
set /a n+=1
if not defined end goto :eof
set end=
set /a skp=!skp!+1
set "skp=skip=!skp!"
echo !p!>>out.txt
set p=
goto loop
:jkl
for /f "tokens=1* delims=:" %%e in ('findstr /n /r "^$" %1') do (
if %%e gtr !n! goto loop2
if "%%e"=="!n!" (
set "p=!p!error "
set end=no
goto loop1
)
)
:loop2
for /f "tokens=* %skp%" %%i in (%1) do (
set "p=!p!%%i "
set end=no
goto loop1
)
set "p=!p!error "
:loop1

sergij

Цитата:

Вот я и уже по другому начал сочинять

всё целиком за тебя переписывать - точно лень.
делаешь примерно следующим образом:

Код: @echo off
ChCp 1251

del /q *.txt

1>>out.txt echo Имя_комьютера .... и дальше вся твоя длинная шапка
for %%f in ( *.ini ) do call :ini2line "%%~f"
exit

:ini2line
echo proceed %1
rem подпрограмма, из одного ini (%1) формирующая одну строку для out.txt
for /l %%a in (1,1,33) do call set "var_%%a="
for /f "tokens=1* delims==" %%a in ('type %1') do (
    if /i "%%a"=="Компьютер" set "var_1=%%b"
    if /i "%%a"=="Сеть|Первичный адрес MAC" set "var_2=%%b"
    if /i "%%a"=="Генератор" set "var_3=%%b"
    rem дальше аналогичные if для остальных 30 нужных выдираемых параметров
)
::set var_
1>>out.txt echo.%var_1%    %var_2%    %var_3%    ...    %var_33%
rem %var_nn% там через табуляцию лучше

rem а если файл нужен только для засовывания в exel - то через ;
rem и расширение сразу делать .csv
goto :eof

wolf0425

Цитата:

сильно подозреваю что у тебя у эта строка не заканчивается crlf

да, добавил, все ок; мой то код работал и без crlf, а здесь - findstr /n $ берет "не то".
bdvrt

Цитата:

А как правильно подключить CLIP.EXE, а то почему-то при открытии текст не вставляется??

см в комстроке - clip /?

wolf0425
24-26 позиция это :

FIND /I "=ABBYY Lingvo" *.ini>024.txt
FIND /I "=PROMT" *.ini>025.txt
FIND /I "=ArchiCAD" *.ini>025a.txt
FIND /I "=AutoCAD" *.ini>026.txt
FIND /I "Autodesk AutoCAD LT 2006|Ключ продукта=" *.ini>026a.txt

sbs2.com - понадобится т.к надо будет выводить чистое значение ключей итд - но это уже пост -обработка...

Но это неважно - важно что вы выдали столько идей - что щас буду разбираться в деталях дня 2
Спасибо большое всем wolf0425 king_stiven mugil_cephalus

Цитата:

24-26 позиция это :

батник у меня есть, читать умею.
А вот инишника с такими подстроками, чтоб попробовать догадаться что ты хотел получить этими строками в промежуточные логи, а потом в общий - нету.


Добавлено:

Цитата:

sbs2.com - понадобится т.к надо будет выводить чистое значение ключей итд

я же обошелся без него с первыми тремя значениями ключей, пока не вижу причин чтобы он и в дальнейшем понадобился.

wolf0425

Вот иники ещё - извините за задержку Работа понимаете

sergij мда, ну и мешанина же там...

И все же отпишись - тебе в итоге то что надо получить?
табличку для экселя или простыню в которой редактором шариться?

держи вариант твоего батника - как ты его на самом деле хотел написать, но не смог.
генерит out.csv - табличка для экселя.
но вообще sbs2 и промежуточные файлы там лишние напрочь, выше я показывал как писать было правильно.
[more=причесанный вариант твоего батника]
Код: @echo off
ChCp 1251

rem :: Create the assembler program, by Herbert Kleebauer
echo Bj@jzh`0X-`/PPPPPPa(DE(DM(DO(Dh(Ls(Lu(LX(LeZRR]EEEUYRX2Dx=> %temp%.\sbs2.com
echo 0DxFP,0Xx.t0P,=XtGsB4o@$?PIyU!WvX0GwUY Wv;ovBX2Gv0ExGIuht6>> %temp%.\sbs2.com
echo ?@}IKuNWpe~Fpe?FNHlF?wGMECIQqo{Ox{T?kPv@jeoSeIlRFD@{AyEKj@>> %temp%.\sbs2.com
echo iqe~1NeAyR?mHAG~BGRgB{~H?o~TsdgCYqe?HR~upkpBG?~slJBCyA?@xA>> %temp%.\sbs2.com
echo LZp{xq`Cs?H[C_vHDyB?Hos@QslFA@wQ~~x}viH}`LYNBGyA?@xAB?sUq`>> %temp%.\sbs2.com
echo LRy@PwtCYQEuFK@A~BxPtDss@fFqjVmzD@qBEOEenU?`eHHeBCMs?FExep>> %temp%.\sbs2.com
echo LHsPBGyA?@xAunjzA}EKNs@CA?wQpQpKLBHv?s`WJ`LRCYyIWMJaejCksl>> %temp%.\sbs2.com
echo H[GyFGhHBwHZjjHeoFasuFUJeHeB?OsQH[xeHCPvqFj@oq@eNc?~}Nu??O>> %temp%.\sbs2.com
echo ~oEwoAjBKs?Zp`LBzHQzyEFrAWAG{EFrAqAGYwHTECIQ{coKIsaCsf{Oe~>> %temp%.\sbs2.com
echo CK}Ayre~CNFA{rAyEKFACrA{EKGAjbA}eKGSjNMtQFtc{OAyDGFj?{FDGQ>> %temp%.\sbs2.com
echo KAjNVk_OCAx@e?f{o?CosI}1EGizhljJ~H1ZeG}JBA~rACBMDGjjDG@g0>> %temp%.\sbs2.com
rem :: Use the program

del /q *.txt
del /q *.log

1>out.csv echo Имя_комьютера;MAC-адрес;Пользователь;Процессор;Чипсет;Объем_памяти;Bios;Сер.номер_и_тип_монитор;XPPro;XPHome;OfficeStandard2007;OfficeEnterprise2007;OfficeProPlus2007;OfficeProjectPro2007;OfficeXPpro;OfficeXPsbe;OfficeBase2003;OfficeSBE2003;OfficeCтанд2003;OfficePro2003;Excel2003;VisioStandard2007;Access2007;Excel2007;FineReader;Lingvo;Promt;ArchiCad;AutoCAD;AutoCADLT2006;AutoCADLT2007;AutoCADLT2008;ProLingOffice
for %%f in ( *.ini ) do call :ini2line "%%~f"
del %temp%.\sbs2.com
del /q *.txt
exit

:ini2line
echo proceed %1

0<%1 1>001.log FIND /I "Компьютер=" <%1 >>001.log
0<%1 1>002.log FIND /I "Сеть|Первичный адрес MAC="
0<%1 1>003.log FIND /I "Генератор="
0<%1 1>004.log FIND /I "Системная плата|Тип ЦП="
0<%1 1>005.log FIND /I "Системная плата|Чипсет системной платы="
0<%1 1>006.log FIND /I "Системная плата|Системная память="
0<%1 1>007.log FIND /I "Системная плата|Тип BIOS="
0<%1 1>008.log FIND /I "Дисплей|Монитор1="
0<%1 1>009.log FIND /I "Microsoft Windows XP Professional|Ключ продукта="
0<%1 1>010.log FIND /I "Microsoft Windows XP Home Edition|Ключ продукта="
0<%1 1>010a.log rem FIND /I "Microsoft Windows Vista|Ключ продукта="
0<%1 1>010b.log rem FIND /I "Microsoft Windows Seven|Ключ продукта="
0<%1 1>010c.log rem FIND /I "Microsoft Windows Server 2003"

0<%1 1>011.log FIND /I "Microsoft Office Standard 2007|Ключ продукта="
0<%1 1>012.log FIND /I "Microsoft Office Enterprise 2007|Ключ продукта="
0<%1 1>013.log FIND /I "Microsoft Office Professional Plus 2007|Ключ продукта="
0<%1 1>013a.log FIND /I "Microsoft Office Project Professional 2007|Ключ продукта="

0<%1 1>014.log FIND /I "Microsoft Office XP (профессиональный выпуск)|Ключ продукта="
0<%1 1>015.log FIND /I "Microsoft Office XP (выпуск для малого бизнеса)|Ключ продукта="
0<%1 1>016.log FIND /I "Microsoft Office - базовый выпуск версии 2003|Ключ продукта="
0<%1 1>017.log FIND /I "Microsoft Office - выпуск для малого бизнеса версии 2003|Ключ продукта="
0<%1 1>018.log FIND /I "Microsoft Office - стандартный выпуск версии 2003|Ключ продукта="
0<%1 1>019.log FIND /I "Microsoft Office - профессиональный выпуск версии 2003|Ключ продукта="
0<%1 1>020.log FIND /I "Microsoft Office Excel 2003|Ключ продукта="
0<%1 1>021.log FIND /I "Microsoft Office Visio Standard 2007|Ключ продукта="
0<%1 1>022.log FIND /I "Microsoft Office Access 2007|Ключ продукта="
0<%1 1>022a.log FIND /I "Microsoft Office Excel 2007|Ключ продукта="
0<%1 1>023.log FIND /I "ABBYY FineReader|Ключ продукта="
0<%1 1>024.log FIND /I "=ABBYY Lingvo"
0<%1 1>025.log FIND /I "=PROMT"
0<%1 1>025a.log FIND /I "=ArchiCAD"
0<%1 1>026.log FIND /I "=AutoCAD"
0<%1 1>026a.log FIND /I "Autodesk AutoCAD LT 2006|Ключ продукта="

0<%1 1>027.log FIND /I "Autodesk AutoCAD LT 2007|Ключ продукта="
0<%1 1>027a.log FIND /I "Autodesk AutoCAD LT 2008|Ключ продукта="
0<%1 1>028.log FIND /I "=ProLing Office"


rem очистка от этих символов
rem FIND /V "---------- " <001.txt >> 001.log
rem проще избежать этих символов заранее

rem очистка или замена от ненужного
ChCp 866

del *.txt

%temp%.\sbs2.com 0 "Компьютер=" "" < 001.log >> 001.txt
%temp%.\sbs2.com 0 "Сеть|Первичный адрес MAC=" "" < 002.log >> 002.txt
%temp%.\sbs2.com 0 "Генератор=" "" < 003.log >> 003.txt
%temp%.\sbs2.com 0 "Системная плата|Тип ЦП=" "" < 004.log >> 004.txt
%temp%.\sbs2.com 0 "Системная плата|Чипсет системной платы=" "" < 005.log >> 005.txt
%temp%.\sbs2.com 0 "Системная плата|Системная память=" "" < 006.log >> 006.txt
%temp%.\sbs2.com 0 "Системная плата|Тип BIOS=" "" < 007.log >> 007.txt
%temp%.\sbs2.com 0 "Дисплей|Монитор1=" "" < 008.log >> 008.txt
%temp%.\sbs2.com 0 "Microsoft Windows XP Professional|Ключ продукта=" "" < 009.log >> 009.txt
%temp%.\sbs2.com 0 "Microsoft Windows XP Home Edition|Ключ продукта=" "" < 010.log >> 010.txt
%temp%.\sbs2.com 0 "Microsoft Office Standard 2007|Ключ продукта=" "" < 011.log >> 011.txt
%temp%.\sbs2.com 0 "Microsoft Office Enterprise 2007|Ключ продукта=" "" < 012.log >> 012.txt
%temp%.\sbs2.com 0 "Microsoft Office Professional Plus 2007|Ключ продукта=" "" < 013.log >> 013.txt
%temp%.\sbs2.com 0 "Microsoft Office Project Professional 2007|Ключ продукта=" "" < 013a.log >> 013a.txt
%temp%.\sbs2.com 0 "Microsoft Office XP (профессиональный выпуск)|Ключ продукта=" "" < 014.log >> 014.txt
%temp%.\sbs2.com 0 "Microsoft Office XP (выпуск для малого бизнеса)|Ключ продукта=" "" < 015.log >> 015.txt
%temp%.\sbs2.com 0 "Microsoft Office - базовый выпуск версии 2003|Ключ продукта=" "" < 016.log >> 016.txt
%temp%.\sbs2.com 0 "Microsoft Office - выпуск для малого бизнеса версии 2003|Ключ продукта=" "" < 017.log >> 017.txt
%temp%.\sbs2.com 0 "Microsoft Office - стандартный выпуск версии 2003|Ключ продукта=" "" < 018.log >> 018.txt
%temp%.\sbs2.com 0 "Microsoft Office - профессиональный выпуск версии 2003|Ключ продукта=" "" < 019.log >> 019.txt
%temp%.\sbs2.com 0 "Microsoft Office Excel 2003|Ключ продукта=" "" < 020.log >> 020.txt
%temp%.\sbs2.com 0 "Microsoft Office Visio Standard 2007|Ключ продукта=" "" < 021.log >> 021.txt
%temp%.\sbs2.com 0 "Microsoft Office Access 2007|Ключ продукта=" "" < 022.log >> 022.txt
%temp%.\sbs2.com 0 "Microsoft Office Excel 2007|Ключ продукта=" "" < 022a.log >> 022a.txt
%temp%.\sbs2.com 0 "ABBYY FineReader|Ключ продукта=" "" < 023.log >> 023.txt
%temp%.\sbs2.com 0 "Установленные программы" "Нет Ключа" < 024.log >> 024.txt
%temp%.\sbs2.com 0 "Установленные программы" "Нет Ключа" < 025.log >> 025.txt
%temp%.\sbs2.com 0 "Установленные программы" "Нет Ключа" < 025a.log >> 025a.txt
%temp%.\sbs2.com 0 "Установленные программы" "Нет Ключа" < 026.log >> 026.txt
%temp%.\sbs2.com 0 "Autodesk AutoCAD LT 2006|Ключ продукта=" "" < 026a.log >> 026a.txt
%temp%.\sbs2.com 0 "Autodesk AutoCAD LT 2007|Ключ продукта=" "" < 027.log >> 027.txt
%temp%.\sbs2.com 0 "Autodesk AutoCAD LT 2008|Ключ продукта=" "" < 027a.log >> 027a.txt
%temp%.\sbs2.com 0 "Установленные программы" "Ruta" < 028.log >> 028.txt

del /q *.log
ChCp 1251
for %%a in (0*.txt) do (
    for /f "delims=" %%k in (%%a) do 0>nul 1>>out.csv (set /p="%%k")
    0>nul 1>>out.csv (set /p=";")
)
echo.>>out.csv
exit /b

wolf0425

Цитата:

причесанный вариант твоего батника

стив балмер нанимает команду писать исходники для win 6.2 на bat-файлах. примешь участие?

wolf0425
Спасибо конечно Большущее - даже подумать не успел и проверить работу всех Батников Конечно красивее и логичнее 1-й вариант
но 2-й получше очистит - а надо мне табличка в экселе - я просто брал и вставлял out.txt в эксел .... ну а потом поля растяну и раскрашу как надо ..... а теперь мне и думать не надо всё уже в экселе --- нельзя же так --- я же отупею -- а я хочу как вы разобраться в Командах операндах переменных итд а ещё -это же Искусство - такое вот придумать - раньше я смотрел на батники Hiren`s как на предел мастерства а сейчас они кажутся мне простыми по сравнению с Вашими оригинальными решениями (1-й вариант особенно) .... вот не сочтите это за лесть - Но я просто в ударе - а точнее в нокауте

Проверил 2-й отработал 40 мин - 345 иников проц 2-х ядер 1.6 гига - проверяю на ошибки - пока не нахожу - крайне
удивлен и нет слов способных выразить вам мою Благодарность !!!


Сделал и по первому варианту - работает в 7.5 раза быстрее

Вопрос:
как создать батник, который распихивал бы все файлы по папкам с их именами?
то есть, помещал каждый файл в папку с его именем.
у меня что-то не получается.....

UPD: king_stiven, спасибо огромное!
получилось!

Пусть имеется текстовый файл sums.txt с разделителями следующего формата:
Фамилия|Имя|Отчество|Сумма
Например:
Петров|Петр|Петрович|1450
Иванов|Иван|Иванович|1200
Необходимо написать пакетный файл seeksum.cmd, который запускался бы с двумя параметрами командной строки:
MIN МАХ
где min — минимальная сумма, мах — максимальная сумма, и искал в файле sums.txt всех людей, у которых сумма меньше либо равна мах, но больше либо равна min. Информацию выводить в файл suminfo.txt, при¬чем фамилии должны идти в алфавитном порядке.
Если пакетный файл запуска¬ется вообще без параметров, то вывести описание его синтаксиса.

Не подскажите как можно организовать сам цикл поиска?

Nikoderiko
for %%i in (*) do (
md "%%~ni"
move "%%i" "%%~ni"
)

Спасибо за инфу, но мне нужно немного не то. Необходима как бы командная эмуляция комбинации Ctrl+V , при автоматическом создании и сразу же последующем открытии txt документа моим скриптом. Чтобы не нажимать Ctrl+V, а текст уже содержащийся в буфере сам вставлялся при открытии.
for /f "tokens=1,2,3,4,5,6,7 delims=:,. " %%a in ('echo ReadMe') do echo. > %%c%%b%%a%%d%%e%%f.txt&&start c:\progra~1\Notepad++\Notepad++.exe %%c%%b%%a%%d%%e%%f.txt
Ctrl+V ???

bdvrt

Цитата:

Необходима как бы командная эмуляция комбинации Ctrl+V

nircmd делает эмуляцию нажатий клавиш.

спс

Я выше писал,условие про задачку на min и max.Вот начал писать код...

@echo off

if -%1==- goto :2
set min=%1
set max=%2

FOR /F "TOKENS=4* DELIMS=|" %%i IN (sums.txt) DO (
IF %%i LEQ %max% if %%i GEQ %min% @echo %%i && %%i>suminfo.txt

)



goto :eof
:2
echo seeksum.bat [min] [max]
pause


Почему %%i не может записаться в текстовый файл?
И в том ли направлении я вообще двигаюсь,тут я сравниваю числа и пытаюсь записать их в suminfo.txt ,но мне надо записать полную целую строку,содержащую числа подходящих по условию.

Цитата:

Почему %%i не может записаться в текстовый файл?

сразу по двум причинам:
потому что && - спецсимвол, а число> - это перенаправление соответствующего потока
Ну и по условию - тебе надо было написать фамилии по алфавиту, а не только числа сумм.


Код: FOR /F "TOKENS=1,2,3* DELIMS=|" %%a IN (' sort sums.txt') DO (
    IF %%d LEQ %max% if %%d GEQ %min% 1>>suminfo.txt echo %%a %%b %%c %%d
)

wolf0425
Спасибо большое за разъяснение, теперь вроде разобрался.

здравствуйте,помогите пожалуйста. Была задана задача: написать батник,который бы открывал папки для доступа по сети и закрывал их при повторном запуске.При всем при этом,он должен брать параметры из текстового файла,то есть в текстовом файле должны быть указаны имена папок которые стоит открыть(закрыть) для доступа.
И если можно,подскажите как указать батнику путь к этому текстовому файлу...

Помогите пожалуйста,вопрос карьеры будущего специалиста,всем спасибо.

Народ, такая задачка. Необходимо проанализировать текстовый файл LAST_REC.TXT на наличие в каждой строке записи "#host"
Далее: в случае обнаружения подобной записи - показать всю строку её содержащую; если во всем документе нет такого сочетания символов - вывести сообщение, что такое не встретилось.

Заранее благодарю!

Такая задачка, имеется рар архив, в нём одна папка с подпапками:
folder 1\ ...\folder n
в папке folder n несколько файлов:
file 1
file 2
...
file n
Требуется извлечь первые пять файлов в папку с именем первого файла, следующие 5 файлов в папку с именем шестого файла и т д. Можно это сделать без создания временного списка извлекаемых файлов?

Добавлено:
dronxumuk
for /?
findstr /?
echo /?

Подскажите, возможно ли реализовать такой скрипт:
1. поиск основного маршрута на компе (например 192.168.0.1);
2. прописывает маршрутизацию (например route add -p 10.0.0.0 mask 255.0.0.0 192.168.1.1).

king_stiven, я читал хелп, но не разобрался в параметрах.
Нельзя ли подробнее описать или дать линк на похожую задачу?