[Iska]

Попробуйте так:

Скрытый текст

Код:

Option Explicit

Const ForWriting   = 2

Dim strSourceFile
Dim strContent


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strSourceFile) Then
			With .OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With WScript.CreateObject("VBScript.RegExp")
				.Global = True
				.Pattern = "0*(\d*)(\d)(\d{2})"
				
				If .Test(strContent) Then
					strContent = .Replace(strContent, "$1$2,$3")
				Else
					WScript.Echo "Can't find pattern [" & .Pattern & "]."
					WScript.Quit 3
				End If
			End With
			
			.CopyFile strSourceFile, strSourceFile & ".bak"
			
			With .OpenTextFile(strSourceFile, ForWriting)
				.Write strContent
				.Close
			End With
		Else
			WScript.Echo "Can't find source file [" & strSourceFile & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Исходный файл указывается аргументом скрипта. Также можно просто перетянуть исходный файл на скрипт в Проводнике.

[greg zakharov]

Можно оформить и как бат:

Код:

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)
));

[gora]

Код:

oldN = 000000059900
oldN = 000000155005

newN = oldN \ 100 & "," & ("0" And (oldN Mod 100) < 10) & oldN Mod 100

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup oldN & vbCR & newN