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

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

Ветеран


Contributor


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

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


Цитата pageYK@fb:
вот так »
Ом мани падме хум!
Код: Выделить весь код
@echo off

Set "File=1.txt"
Set "FileOut=1.new.txt"

Set /A MM=394

SetLocal EnableDelayedExpansion

Del "%FileOut%" 2>nul
FOR /F "usebackq tokens=1,2,3,4,5 delims=|" %%i IN ("%File%") DO (
	
	Set /A kn=%%k/%MM%
	FOR /L %%a IN (!kn!,-1,1) DO (
		>>"%FileOut%" Echo %%i^|%%j^|%MM%^|%%l^|%%m^|
	)

	Set /A kk=%%k-%%k/%MM%*%MM%
	If Not !kk! EQU 0 >>"%FileOut%" Echo %%i^|%%j^|!kk!^|%%l^|%%m^|
)
alpap, ИМХО 211

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

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

Отправлено: 20:53, 28-07-2016 | #7