[Iska]

В реальном файле «Kl_to_1c.txt» несколько квитанций о платежах? В Вашем примере только одна квитанция, а я просто не успел взять реальный файл у себя, а так бы проверил на реальных данных.

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

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

Код:

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 "Дата", "Номер", "Сумма"
							strResult = strResult & Split(strLine, "=")(1) & " - "
						Case "Плательщик1"
							strResult = strResult & Split(strLine, "=")(1) & vbCrLf
					End Select
				Loop
				
				.Close
			End With
			
			WScript.StdOut.Write 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