[Foreigner]

NibelungXXX, Попробуй

читать дальше »

Код:

@echo off
setlocal

set "cnt=100"
for /f "tokens=*" %%i in ('cd') do set "name=%%~nxi"
for %%i in (*.rar *.zip) do call:1 "%%i"

set /a cnt-=100

1>"%name%.txt" (

    echo total: %cnt%
    echo name : %name%
    echo.
    echo  #      name       size     model
    echo --- ------------ -------- --------
    for /f "tokens=2 delims==" %%i in ('set file_') do echo %%i

)

goto:eof


:1
set /a cnt+=1

set /a n=cnt-100
set "n=???%n%"
set "n=%n:~-3%"

set "fname=????????????%~1"
set "fname=%fname:~-12%"

set /a size=%~z1 / 1024
set "size=?????????%size% KB"
set "size=%size:~-8%"

set "file_%cnt%=%n:?= % %fname:?= % %size:?= %    GP"

Как-то так:

Код:

total: 8
name : test

 #      name       size     model
--- ------------ -------- --------
  1  L1 0024.rar    19 KB    GP
  2  L3 0306.rar     3 KB    GP
  3  L3 3311.rar     4 KB    GP
  4  L1 0018.zip    10 KB    GP
  5  L1 1233.zip     2 KB    GP
  6  L2 3335.zip     0 KB    GP
  7  L2 9909.zip     0 KB    GP
  8  L3 0307.zip     5 KB    GP

[NibelungXXX]

Foreigner, спасибо все получилось, ваш скрипт понравился

[NibelungXXX]

Подскажите как побороться..
Появились архивы с part01, part02 и сбивают все выравнивание..

Суть программы, все архивы zip и rаr записывает в лог, по порядку, выше все расписано было..

Код:

@echo off
setlocal

pushd "%cd%"
set "cnt=100"

for /f "tokens=*" %%i in ("%cd%") do set "name=%%~nxi"
for /f "delims=" %%i in ('dir /b/a-d "%cd%\*.zip" "%cd%\*.rar" 2^>nul') do call:1 "%%i"

set /a cnt-=100

1>"%cd%\%name%p.txt" (

    for /f "tokens=2 delims==" %%i in ('set file_') do echo %%i

)
popd
goto:eof


:1
set /a cnt+=1

set /a n=cnt-100
set "n=???%n%"
set "n=%n:~-3%"

set "fname=%~1"
set "fname=%fname:~-30%"

set /a size=%~z1 / 1024 +1
set "size=?????????%size% KБ"
set "size=%size:~-10%"

set "file_%cnt%=%n:?= %.	%fname:?= %		%size:?= %	CD %	DVD "

Стало с этими part01 криво писать, потому что название отличается ровно на табуляцию((..Выглядит так:

Код:

  1.	bakup 0802.zip		   4272 KБ	CD 	DVD 
  2.	bakup 0802.part01.rar		  70411 KБ	CD 	DVD 
  3.	bakup 0802.rar		 145815 KБ	CD 	DVD

а надо так:

Код:

  1.	bakup 0802.zip		   4272 KБ	CD 	DVD 
  2.	bakup 0802.part01.rar	  70411 KБ	CD 	DVD 
  3.	bakup 0802.rar		 145815 KБ	CD 	DVD

[Dragokas]

NibelungXXX, попробуйте такую:

читать дальше »

Последнюю строку Вашего скрипта удалить.
Добавить:

Код:

call :EchoTab "%n:?= %.	%fname:?= %" 4 "%size:?= %	CD %	DVD" "file_%cnt%"
exit /B

:EchoTab
:: %1 - текст до табуляции
:: %2 - максимальное кол-во знаков табуляции в конце текста
:: %3 - текст после табуляции
:: %4 - переменная, куда сохраняем результат
  set "text=%~1"
  set tabs=%~2
  for /L %%C in (7,8,200) do (
    if "!text:~%%C,1!" neq "" (set /A tabs-=1) else (goto ext_EchoTab)
  )
  :ext_EchoTab
  for /L %%C in (1,1,%tabs%) do set "text=!text!	"
  set "%~4=%text%%~3"
exit /B

Вторая строка - вместо setlocal напишите setlocal EnableDelayedExpansion

См. call :EchoTab - я там 4 поставил (в первой строке). Можете подкорректировать под себя макс. кол-во TAB-ов.

[NibelungXXX]

Diskretor, спасибо, правда не работала, пока вот так не сделал:

Код:

call :EchoTab "  %n:?= %. %fname:?= %" 4 "%size:?= %   CD  DVD %%" "file_%cnt%"