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

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

Старожил


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

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


deepred, благодарю за файл. срабатывает
(благодаря совету заменил "" %CD%%$DSF% "" на "" %CD%\%$DSF%"")

РЕШЕНИЕ1:
Код: Выделить весь код
Chcp 1251
@Echo Off

setlocal enabledelayedexpansion

set log=%CD%\Список.txt
set $num=0
set String$=String$

:read

for /f "tokens=* delims=" %%a in ('^<"%log%" find /i /v ""') do SET /a $num+=1 && call :func "%%a"
set /a X=%$num%+1
set $num=0
goto orgcopy

:func

set String%$num%=%~1
goto :eof

:orgcopy

set /a $num=%$num%+1
if %$num%==%X% goto end
set $NSF=!%string$:$=%%$num%!
set ch=%$NSF:~-1%
Echo %$NSF% %ch%

if /i "%ch%"==":" (set $DSF=%$NSF:~0,-1%) else (
move /y "%$NSF%".* %CD%\%$DSF%
goto :orgcopy)

md %CD%\%$DSF%
goto :orgcopy

:end

chcp 866


El Sanchez, благодарю! просто реализовано..
я добавил currentdir и chcp - работает на ура.

РЕШЕНИЕ2:
Код: Выделить весь код
chcp 1251

@Echo Off
SetLocal EnableDelayedExpansion
Set Source=%CD%
Set Output=%CD%
Set UsersLog=%CD%\Log.txt

For /F "UseBackQ Tokens=*" %%A In ("%UsersLog%") Do (
	Echo %%A|FindStr :>nul&&(Set OutputDir=%%A&MD "%Output%\!OutputDir:~0,-1!" 2>nul)||Move /Y "%Source%\%%A.*" "%Output%\!OutputDir:~0,-1!" 1>nul
)
EndLocal

chcp 866

Последний раз редактировалось shadowbat, 30-06-2010 в 17:38.

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:11, 30-06-2010 | #7