[Iska]

Например, так:

читать дальше »

Код:

Option Explicit

Dim lngErrCode

Dim strSourceFile
Dim strLine
Dim strResult


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strSourceFile) Then
			With .OpenTextFile(strSourceFile)
				strResult = ""
				
				Do Until .AtEndOfStream
					strLine = .ReadLine()
					
					Select Case Split(strLine, "=")(0)
						Case "Дата", "Номер", "Сумма", "Плательщик1"
							strResult = strResult & Split(strLine, "=")(1) & " - "
					End Select
				Loop
				
				strResult = Left(strResult, Len(strResult) - Len(" - "))
				
				.Close
			End With
			
			WScript.StdOut.WriteLine strResult
			lngErrCode = 0
		Else
			WScript.StdErr.WriteLine "File [" & strSourceFile & "] not found"
			lngErrCode = 2
		End If
	End With
Else
	WScript.StdErr.WriteLine "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ ""<Source file>"""
	lngErrCode = 1
End If

WScript.Quit lngErrCode

Исполнять под «cscript.exe», указывая исходный файл аргументом скрипта, а результирующий — перенаправлением вывода, наподобие:

Код:

cscript.exe //nologo "C:\Песочница\0018\MyScript.vbs" "C:\Temp\Kl_to_1c.txt" 1>Out.txt 2>Errors.txt