[Georgio]

Здравствуйте, Alexander_88.

Код:

@echo off
chcp 1251>nul

set quantity=5
set "source=example.txt"
set "border=//=================="

for %%i in ("%source%") do (
 set new=%%~dpni_new%%~xi
 call copy nul %%new%%>nul
 )
set temp_file="%temp%\%random%.vbs"
for /f %%i in ('
 findstr /rx "%border:/=\/%" "%source%"^| find /c /v ""
') do (
 for /f %%j in ('
  set /a %%i-1
 ') do (
  if %%j lss %quantity% (
   call:# %%j
   ) else (
   call:# %quantity%
   )
  )
 )
del %temp_file%

exit /b



:#


 for /l %%i in (1 1 %1) do (
  call set $%%random%%= %%i
  )
 for /f "tokens=* delims=$0123456789=" %%i in ('
  set $^| findstr /v "^0"
 ') do (
  echo WScript.StdOut.Write^(Split^(WScript.CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("%source%"^).ReadAll^(^),"%border%"^&vbCrLf^)^(%%i^)^)>%temp_file%
  (
  cscript //nologo %temp_file%
  set /p="%border%"<nul
  echo.
  )>>"%new%"
 )

 exit /b

[Alexander_88]

Georgio, спасибо, а нельзя сделать, чтобы он размах выбирал побольше? пока он берет только блоки изпервой десятки, а их там 700, и еще если ставить quantity 1 , он всегда выбирает 1ый блок

[Georgio]

а нельзя сделать, чтобы он размах выбирал побольше? »

Код:

@echo off
chcp 1251>nul

set quantity=5
set "source=example.txt"
set "border=//=================="

for %%i in ("%source%") do (
 set new=%%~dpni_new%%~xi
 call copy nul "%%new%%">nul
 )
set temp_file="%temp%\%random%.vbs"
for /f %%i in ('
 more^<"%source%"^|findstr /x "%border:/=\/%"^| find /c /v ""
') do (
 for /f %%j in ('
  set /a %%i-1
 ') do (
  if %%j lss %quantity% (
   call:# %%j %%j
   ) else (
   call:# %%j %quantity%
   )
  )
 )
del %temp_file%

exit /b



:#


 for /l %%i in (1 1 %1) do (
  call set $%%random%%= %%i
  )
 for /f "tokens=2 delims==" %%i in ('
  set $
 ') do (
  set /a count+=1
  for /f %%j in ('
   set /a count
  ') do (
   if %%j leq %2 (
    echo WScript.StdOut.Write^(Split^(WScript.CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("%source%"^).ReadAll^(^),"%border%"^&vbCrLf^)^(%%i^)^)>%temp_file%
    (
    cscript //nologo %temp_file%| findstr /vx "%border:/=\/%"
    set /p="%border%"<nul
    echo.
    )>>"%new%"
    ) else (
    exit /b
    )
   )
  )

 exit /b

[Alexander_88]

Georgio Супер, спасибо вам за помощь

[Iska]

Alexander_88, Вам с такими запросами давно пора переходить на WSH/PoSH .

[Alexander_88]

Если бы я понимал о чем вы говорите , это наверно языки программирования)

[Iska]

это наверно языки программирования) »

Ага.