Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


YuKar, например, так:
читать дальше »
Код: Выделить весь код
@echo off
setlocal enableextensions enabledelayedexpansion

set sDestFile=SummaryLog.log

>nul copy nul "%sDestFile%"

for %%i in (*.txt) do (
	call :GetStringFromFile "%%~fi" 4
	>>"%sDestFile%" echo %%~fi: !StringFromFile!
)

endlocal
exit /b 0

:GetStringFromFile
	setlocal enableextensions enabledelayedexpansion
	
	set sFuncName=%~0
	set sFile=%~1
	set /a iSkipStrings = %~2 - 1
	
	for /f "usebackq skip=%iSkipStrings% delims=" %%i in ("%sFile%") do (
		set sValue=%%i
		goto :Break
	)
	:Break
	
	endlocal & set %sFuncName:~4%=%sValue%
	exit /b 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:59, 19-07-2012 | #4