[AlexanderSh88]

добрый день, подскажите как исправить проблему в этом варианте

Код:

@echo off
set $n=50

for /f "tokens=1* delims=[]" %%i in ('find /v /n "" ^<list.txt') do set "$j=%%j"& call :sub %%i
exit
:sub
set /a $m=(%~1-1)/%$n%+1
set $m=0%$m%
set $m=%$m:~-2%

if not "%$i%"=="%$m%" type nul >list%$m%.txt
>>list%$m%.txt echo.%$j%
set $i=%$m%& exit /b

В моем txt файле бывают строки, начинающиеся со знака [
Дак вот в выходных файлах этот знак удаляется, как избежать этого?

[Iska]

подскажите как исправить проблему в этом варианте В моем txt файле бывают строки, начинающиеся со знака [ Дак вот в выходных файлах этот знак удаляется, как избежать этого? »

Напрямую — никак, delims он и есть delims. Используйте другие варианты.

[Georgio]

Код:

@echo off

set "$file=list.txt"
set $n=50

for /f "tokens=1* delims=:" %%i in ('findstr /n "^" "%$file%"') do set $j=%%j& call :sub %%i
exit

:sub
 set /a $m=(%~1-1)/%$n%+1
 set $m=0%$m%
 for %%i in ("%$file%") do (
  if not "%$i%"=="%$m:~-2%" (
   type nul>"%%~ni%$m:~-2%%%~xi"
   )
  (
  set /p="%$j%"<nul
  echo.
  )>>"%%~ni%$m:~-2%%%~xi"
  )
  set $i=%$m:~-2%
  exit /b

[Iska]

Georgio, сейчас окажется, что некоторые строки начинаются и с «:» .

[AlexanderSh88]

спасибо, работает!

[Georgio]

А нельзя сделать чтоб он в конце каждого txt выходного файла не добавлял одну пустую строку? »

можно ли сделать четырехзначное число, к примеру 0001, 0002 и т.д »

Код:

@echo off

set "$file=list.txt"
set $n=50
set $format=4

for /f %%i in ('
 set /a $format-1
') do (
 for /l %%j in (1 1 %%i) do (
  call set zeros=0%%zeros%%
  )
 )
for /f "tokens=1* delims=:" %%i in ('
 findstr /n "^" "%$file%"
') do (
 set $j=%%j
 call :sub %%i
 )
exit

:sub
 set /a $m=(%1-1)/%$n%+1
 set $m=%zeros%%$m%
 call set $m=%%$m:~-%$format%%%
 for %%i in ("%$file%") do (
  if not "%$i%"=="%$m%" (
   type nul>"%%~ni%$m%%%~xi"
   )
  set /a count+=1
  (
  if defined $j (
   for /f %%j in ('
    call echo %%count%%
   ') do (
    if not %%j==%$n% (
     set /p="%$j%"<nul
     echo.
     ) else (
     set /p="%$j%"<nul
     set count=
     )
    )
   ) else (
   echo.
   )
  )>>"%%~ni%$m%%%~xi"
 )
 set $i=%$m%
 exit /b

[Georgio]

Georgio, сейчас окажется, что некоторые строки начинаются и с «:» . »

Уже не страшно. Пусть начинаются хоть с «:::::» при использовании «findstr», хоть с «[[[[[» или «][][][» при использовании «find»:



1)

Код:

@echo off

set "$file=list.txt"
set $n=50
set $format=4

for /f %%i in ('
 set /a $format-1
') do (
 for /l %%j in (1 1 %%i) do (
  call set zeros=0%%zeros%%
  )
 )
for /f "delims=" %%j in ('
 findstr /n "^" "%$file%"
') do (
 for /f "delims=:" %%i in ("%%j") do (
  call :sub %%i "%%j"
  )
 )
exit

:sub
 set /a $m=(%1-1)/%$n%+1
 set $m=%zeros%%$m%
 call set $m=%%$m:~-%$format%%%
 set "$string=%~2"
 for %%i in ("%$file%") do (
  if not "%$i%"=="%$m%" (
   type nul>"%%~ni%$m%%%~xi"
   )
  set /a count+=1
  (
  for /f %%j in ('
   call echo %%count%%
  ') do (
   if not %%j==%$n% (
    (
    for /f "delims=" %%k in ("%$string:*:=%") do (
     echo.%%k
     )
    )|| (
    echo.
    ) 
   ) else (
    (
    for /f "delims=" %%k in ("%$string:*:=%") do (
     set /p=%%k<nul
     set count=
     )
    )|| (
    echo.
    set count=
    )
   )
   )
   )>>"%%~ni%$m%%%~xi"
  )
 set $i=%$m%
 exit /b

;


2)

Код:

@echo off

set "$file=list.txt"
set $n=50
set $format=4

for /f %%i in ('
 set /a $format-1
') do (
 for /l %%j in (1 1 %%i) do (
  call set zeros=0%%zeros%%
  )
 )
for /f "delims=" %%j in ('
"find /n /v ""<"%$file%""
') do (
 for /f "delims=[]" %%i in ("%%j") do (
  call :sub %%i "%%j"
  )
 )
exit

:sub
 set /a $m=(%1-1)/%$n%+1
 set $m=%zeros%%$m%
 call set $m=%%$m:~-%$format%%%
 set "$string=%~2"
 for %%i in ("%$file%") do (
  if not "%$i%"=="%$m%" (
   type nul>"%%~ni%$m%%%~xi"
   )
  set /a count+=1
  (
  for /f %%j in ('
   call echo %%count%%
  ') do (
   if not %%j==%$n% (
    (
    for /f "delims=" %%k in ("%$string:*]=%") do (
     echo.%%k
     )
    )|| (
    echo.
    ) 
   ) else (
    (
    for /f "delims=" %%k in ("%$string:*]=%") do (
     set /p=%%k<nul
     set count=
     )
    )|| (
    echo.
    set count=
    )
   )
   )
   )>>"%%~ni%$m%%%~xi"
  )
 set $i=%$m%
 exit /b

.

[Iska]

Ага . Вот так посмотришь на код — и понимаешь, что до аэродрома не так уж и далеко сразу PowerShell учить захочется .

[Alexander_88]

Спасибо, все работает. А можно еще такой же вариантик, только с пустой строкой в конце (как раньше), но с переменной "format".
И еще вопросик, а если к примеру, надо 3 файла так обработать (list1, list2, list3), это можно сделать в одном bat файле или надо для каждого имени такой bat создавать?

[Georgio]

А можно еще такой же вариантик, только с пустой строкой в конце (как раньше), но с переменной "format". И еще вопросик, а если к примеру, надо 3 файла так обработать (list1, list2, list3), это можно сделать в одном bat файле или надо для каждого имени такой bat создавать? »

Всё "в одном флаконе":

Код:

@echo off

set string_quantity=50
set index_format=4

:: Set the value of the variable: «+» or nothing.
set final_blank_line=+

:: Enter the names of one or more files.
for %%? in (
"list1.txt"
"list2.txt"
"list3.txt"
 ) do (
 call:sub %%?
 )

del .txt .vbs
exit /b


:sub

 setlocal

 (
 echo.
 echo $$$
 for /f "delims=" %%i in ('
  findstr /n "^" %1
 ') do (
  set string=%%i
  for /f "delims=" %%j in ('
   call set /p"=%%string:*:=%%"^<nul
  ') do (
   echo.%%j
   )
  set /a count_1+=1
  for /f %%j in ('
   set /a count_1
  ') do (
   if %%j==1 (
    set /a count_2+=1
    )
   if %%j==%string_quantity% (
    echo $$$
    set count_1=
    )
   )
  )
 echo $$$
 )>.txt

 for /f %%i in ('
  set /a index_format-1
 ') do (
  for /l %%j in (1 1 %%i) do (
   call set zeros=0%%zeros%%
   )
  )
 for /l %%i in (1 1 %count_2%) do (
  set $index=%zeros%%%i
  for /f %%j in ('
   call echo %%$index:~-%index_format%%%
  ') do (
   set /p="WScript.StdOut.Write(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(".txt").ReadAll(), vbCrLf&"$$$"&vbCrLf)(%%i))"<nul>.vbs
   (
   cscript //nologo .vbs
   if "%final_blank_line%"=="+" (
    echo.
    )
   )>"%~dpns1%%j%~xs1"
   )
  )

 set /p="WScript.CreateObject("SAPI.SpVoice").Speak("Processing of the '%~nxs1' file is complete!")"<nul>.vbs
 cscript //nologo .vbs 2>nul

 endlocal
 exit /b

.