[Iska]

alex1985khv, упакуйте образец реального файла в архив, приложите к сообщению. Максимальный размер одного такого файла каков может быть?

[alex1985khv]

Iska, на работе, к сожалению, не могу приложить. Блокирует политикой доступа. Вес может быть до 20 мегабайт.
Сам файл состоит как из примера выше - после строки Merchant ZIP Code 00000 следует пару пустых строк ниже и опять Acct Number & Extension...Только в цифрах различие, которые мне надо выгрузить в отдельный файл.
Т.е. отобрать все строки, названия которых начинаются только на:
Acct Number & Extension
Acquirer Reference Nbr
Source Amount
И из них цифры (выделены жирным шрифтом), длина которых всегда фиксирована.
Acquirer Reference Nbr 74647875158522522154444 Chargeback Reason Code 00
Acct Number & Extension 4437761038265905889 Merchant State/Prov. Code
Source Amount 000000105423 International Fee Ind

[Iska]

Сам файл состоит как из примера выше »

Сам файл может быть в произвольной кодировке. В случае юникода — с BOM или без. Могут быть разные концы строк.

Ну, попробуйте так:

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

Код:

Option Explicit

Dim strSourceFile
Dim strDestFile

Dim strContent
Dim strOutputContent

Dim objMatch


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strSourceFile) Then
			strDestFile = "output.txt"
			
			With .OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With WScript.CreateObject("VBScript.RegExp")
				.IgnoreCase = True
				.Global = True
				.Multiline = True
				.Pattern = _
					"^Acct Number & Extension (\d+) [\s\S]*?" & _
					"Acquirer Reference Nbr (\d+) [\s\S]*?" & _
					"Source Amount (\d+) .*$"
				
				If .Test(strContent) Then
					strOutputContent = ""
					
					For Each objMatch In .Execute(strContent)
						With objMatch.SubMatches
							strOutputContent = strOutputContent & .Item(1) & "," & .Item(0) & "," & .Item(2) & vbCrLf
						End With
					Next
				Else
					WScript.Echo "Can't find pattern [" & objRegExp.Pattern & "]."
					WScript.Quit 3
				End If
			End With
			
			With .CreateTextFile(strDestFile)
				.Write strOutputContent
				.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

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