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

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

Ветеран


Contributor


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

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


Код: Выделить весь код
@Echo Off
cls
>nul chcp 1251
	Set "BoxIn=Z:\Box_In"
	Set "Ext=jpg"
	Set "House=Z:\Box_In\house.txt"
	Set "BoxOut=Z:\Box_Out"

	FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO SET "MyDate=%%d" &Call Set "MyDate=%%MyDate:~0,8%%"
	For /F "usebackq tokens=1* delims=," %%i In ("%House%") Do If Exist "%BoxIn%\%MyDate%_*_*%%j_*.%Ext%" (
		2>nul Md "%BoxOut%\%%i"
		Move "%BoxIn%\%MyDate%_*_*%%j_*.%Ext%" "%BoxOut%\%%i\"
	)
Pause
Exit /B
Пропишите свои пути.
Если house.txt не в 1251 кодировке (лучше бы Вы его прикрепили к сообщению), строку с chcp удалите

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 22-09-2021 в 14:34.

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

Отправлено: 10:20, 22-09-2021 | #4