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

Название темы: VBS. Формат суммы
Показать сообщение отдельно

Забанен


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

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


Можно оформить и как бат:
Код: Выделить весь код
0</* :
@cscript /nologo /e:jscript "%~f0" %1&exit /b */0;
(function(file) {
  var s, l, r = [];
  
  try {
    with (new ActiveXObject('Scripting.FileSystemObject')) {
      s = OpenTextFile(file, 1);
      while (!s.atEndOfStream) {
        l = (Number(s.ReadLine()) / 100).toString();
        r.push(l.match(/\./) === null ? l + '.00' : l);
      }
      s.Close();
      
      s = OpenTextFile(file, 2);
      for (var i = 0; i < r.length; i++) {
        s.WriteLine(r[i]);
      }
      s.Close();
    }
  }
  catch (e) { WScript.echo(e); }
}(
  WScript.Arguments.length !== 1
  ? (function() {
    WScript.echo('File has not been specified correctly.');
    WScript.Quit(1);
  }()) : WScript.Arguments.Unnamed(0)
));

Отправлено: 10:06, 12-11-2015 | #3

Название темы: VBS. Формат суммы