Задачи на bat-файлах 7 - [2290] :: Microsoft Windows :: Компьютерный форум Ru.Board

Код:

@setlocal enabledelayedexpansion
@echo off
set FULL_STR=%1%
if "%FULL_STR%"=="" goto :err1

set START_STR=%2%
if "%START_STR%"=="" goto :err2

set /A max_len_str=700
:_vyasn_dl_str
set /A max_len_str=%max_len_str%-1
set new_str=!FULL_STR:~0,%max_len_str%!
if /i %new_str%==%FULL_STR% goto :_vyasn_dl_str
set /A max_len_str=%max_len_str%+1

set /A max_len_par=700
:_vyasn_dl_par
set /A max_len_par=%max_len_par%-1
set new_str=!START_STR:~0,%max_len_par%!
if /i %new_str%==%START_STR% goto :_vyasn_dl_par
set /A max_len_par=%max_len_par%+1

if %max_len_str% LSS %max_len_par% goto :err3

for /f "tokens=*" %%a in ("%FULL_STR%") Do (
set nach=%%a
set nach=!nach:~0,%max_len_par%!
if /I !nach!==%START_STR% (
echo %%a ^>Match 1 ^>%START_STR%
) else (
echo %%a ^> No match))
)
GOTO :EOF

:err1
echo.
echo Не задана "Базовая строка"
GOTO :EOF

:err2
echo Не задано "Начало строки"
GOTO :EOF

:err3
echo Длина строки меньше длины начала строки
GOTO :EOF

Модерирует : KLASS, IFkO
vu1tur (25-01-2010 12:41): лимит страниц, продолжение: http://forum.ru-board.com/topic.cgi?forum=62&topic=19668	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению