найти файлы по расширению, имя файлов передавать на исполнение

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

найти файлы по расширению, имя файлов передавать на исполнение

Всем привет!
Просьба помочь в решении задачки.
Есть код:
setlocal enabledelayedexpansion
SET "ifile=%~1"
SET "tfile=%~d1%~p1%~n1.dcbank"
set "Block_end=0"
if not exist "!ifile!" echo File !ifile! not found&pause&exit /b
IF EXIST "!tfile!" type nul>"!tfile!"

FOR /F "usebackq delims=" %%a IN ("!ifile!") DO (
set "line=%%a"
rem конец блока следующий пропускаем
if !Block_end! equ 1 (
set "Block_end=0"
echo.>>"!tfile!"
) else (
IF /i "!line!"=="-}" (
set "Block_end=1"
<Nul Set /P $V=!line!>>"!tfile!"
) else (
echo !line!>>"!tfile!"
)
)
)

Просьба помочь дополнить. Необходимо в папке, например С:\1 найти файлы с расширение txt и передать имя в мой код. Полсе обработки в папке с:\1\2 должен получиться файл с раширением dcbank.
В данный момент имя вводится вручную
Заранее блгдрю

orgia, посмотрел Вашу предыдущую тему. Вы так и не прислушались к мудрым советам:

Цитата:

Цитата Iska

orgia, научитесь уже пользоваться тэгом [code]. »

;

Цитата:

Цитата megaloman

Мне гораздо легче (и интереснее - главный побудительный мотив отвечать на вопросы) получить чёткое описание проблемы и предложить решение. Постигать логику постановки задачи по приведенному коду долго, и это не по мне »

Спасибо за справедливую критику :)

Код:

setlocal enabledelayedexpansion

SET "ifile=%~1"

SET "tfile=%~d1%~p1%~n1.dcbank"

set "Block_end=0"

if not exist "!ifile!" echo File !ifile! not found&pause&exit /b

IF EXIST "!tfile!" type nul>"!tfile!"



FOR /F "usebackq delims=" %%a IN ("!ifile!") DO (

set "line=%%a"

rem конец блока следующий пропускаем

if !Block_end! equ 1 (

set "Block_end=0"

echo.>>"!tfile!"

) else (

IF /i "!line!"=="-}" (

set "Block_end=1"

<Nul Set /P $V=!line!>>"!tfile!"

) else (

echo !line!>>"!tfile!"

)

)

)

а по сути:
В данном батнике я разбираю входящее сообщение, который разделен на блоки. между блоками символ $.
например:
{jdkjdkj
lsdfnlsd
sdlksdlk
sdnjdsljk
-}
$
{efso
sfdjnfllkfd
ljkfdij
-}

необходимо строку со знаком $ удалить.

батник удаляет, но переменную в виде файла подаю вручную.

Хотелось бы.
Чтобы батник искал в любой папке сообщения с расширением .txt
открывал его анализировал, удалял $ и переносил полученный результат в файл с тем же именем, но расширением например .out

Как то так.

Цитата:

Цитата orgia

Спасибо за справедливую критику :) »

orgia, спасибо за понимание. Теперь могу Вам и короткий код предложить:

Код:

@echo off



set "indir=%~1"

set "inext=.txt"

set "outdir=%indir%\out"

set "outext=.dcbank"



(

for /f "delims=" %%i in ('2^>nul findstr/m \-} "%indir%\*%inext%"') do (

 2>nul md "%outdir%"

 findstr/v ^^\$ "%%i">"%outdir%\%%~ni%outext%"

 )

)|| (echo The necessary files are not found.& pause>nul)



exit/b

.

orgia, перетаскивайте любую папку с обрабатываемыми файлами с расширением ".txt" на пакетный файл, и, если нужные файлы будут найдены, в этой папке будет создан каталог "out", в котором и будут находиться полученные файлы с расширением ".dcbank".

Спасибо за предложенный вариант. Батник не отрабатывает. Запускаю батник, кидаю в окно папку с файлом, окно закрывается. Папка out не создается и никаких следов работы батника не обнаруживается. ОС win7 64бит.