Командная строка, батники, сценарии (bat, cmd) - [3073] :: Программы

Код:

@echo off
pushd %~dp0
SETLOCAL ENABLEDELAYEDEXPANSION

set "file=all.txt"
set "searchstr=#1"
set "output=ru-board.txt"

if exist all.txt del /q all.txt
for %%i in (15*.txt) do type %%i>>%file%

echo http://forum.ru-board.com>%output%
echo. >>%output%

for /f "delims=: tokens=1" %%a in ('findstr /i /n "%searchstr%" "%file%"') do (
call :GetLines %%a 1 0
)
pause
exit /b

:GetLines
rem параметры GetLines: <номер_строки> <число_строк_до_искомой> <число_строк_после_искомой>
set /a linesBefore=%2+1
set /a linesAfter=%3
set /a linesToSkip=%1-%linesBefore%
set /a count=%linesBefore%+%linesAfter%
set name=1
set flag=1

for /f "skip=%linesToSkip% tokens=1 delims=<>#" %%s in (%file%) do (
if !name!==1 (
set name=0
echo %%s>>%output%
) else (
for /f "skip=%1 eol=< tokens=*" %%t in (%file%) do (
if !flag!==1 (
set flag=0
for %%L in (%%t) do set last=%%L
echo !last!>>%output%
)
)
set /a count=!count!-1
if !count! equ 0 (
exit /b
)
echo %%s^&glp#lt>>%output%
echo. >>%output%
)
)
exit /b

Модерирует : gyra, Maz
Maz (19-09-2020 13:36): Командная строка, батники, сценарии (bat, cmd) Часть 6	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению