Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


Contributor


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

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


Код: Выделить весь код
@Echo On
Set In=card.txt
Set InTmp=%In%.Tmp

SetLocal EnableExtensions
SetLocal EnableDelayedExpansion

Move /Y "%In%" "%InTmp%" >Nul

If %ErrorLevel% EQU 0 (
   FOR /F "usebackq tokens=1,2,3 delims=;," %%a IN ("%InTmp%") DO (
      If %%b GEQ 0 Echo %%a,0.%%c>>"%In%"
      If %%b LSS 0 Set /A bb=-%%b & Echo %%a,!bb!.%%c>>"%In%"
   )
   Del "%InTmp%" >Nul
)

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

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

Отправлено: 14:02, 10-02-2012 | #2