[Iska]

огромный массив данных. »

Огромный — это сколько?

[Technik_spat]

До 400 000 строк

[Iska]

Technik_spat, поместите amark_sgtin.txt и REPACK.txt в один каталог. Поместите следующий код:

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

Код:

Option Explicit

Const adLockOptimistic = 3
Const adOpenStatic     = 3
Const adCmdText        = 1


Dim objFSO
Dim objRecordSet
Dim strPath2Script


Set objFSO       = WScript.CreateObject("Scripting.FileSystemObject")
Set objRecordSet = WScript.CreateObject("ADODB.Recordset")

strPath2Script = objFSO.GetParentFolderName(WScript.ScriptFullName)

With objFSO.CreateTextFile(objFSO.BuildPath(strPath2Script, "Schema.ini"), True)
	.WriteLine Join( _
		Array( _
			"[amark_sgtin.txt]", _
			"ColNameHeader=True", _
			"Format=Delimited(;)", _
			"TextDelimiter=none", _
			"CharacterSet=ANSI", _
			"", _
			"[REPACK.txt]", _
			"ColNameHeader=False", _
			"Format=Delimited(;)", _
			"TextDelimiter=none", _
			"CharacterSet=ANSI", _
			"Col1=SGTIN Text", _
			"Col2=Any Text", _
			"Col3=Price Text", _
			"", _
			"[ResultFile.txt]", _
			"ColNameHeader=True", _
			"Format=Delimited(;)", _
			"TextDelimiter=none" _
		), vbCrLf _
	)
	
	.Close
End With

If objFSO.FileExists(objFSO.BuildPath(strPath2Script, "ResultFile.txt")) Then
	objFSO.DeleteFile objFSO.BuildPath(strPath2Script, "ResultFile.txt")
End If

objRecordSet.Open "SELECT L.[SGTIN], R.[Price] " & _
	"INTO [ResultFile.txt] " & _
	"FROM [amark_sgtin.txt] AS L LEFT JOIN " & _
	"[REPACK.txt] AS R ON " & _
	"L.[SGTIN] = R.[SGTIN] " & _
	"WHERE L.[STATUS] IN (11, 99, 14)", _
	"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath2Script & ";Extended Properties=""text;""", _
	adOpenStatic, adLockOptimistic, adCmdText

Set objRecordSet = Nothing
Set objFSO       = Nothing

WScript.Quit 0

в файл с расширением .vbs в тот же каталог. Запустите скрипт из сохранённого файла на исполнение (если у Вас x64 ОС — используйте x86-версию хоста wscript.exe/cscript.exe из каталога C:\Windows\SysWOW64). Если скрипт отработает корректно, Вы получите в том же каталоге результирующий csv-файл ResultFile.txt с искомым содержимым.

Например:

[Technik_spat]

C:\Windows\SysWOW64 »

ОГРОМНОЕ СПАСИБО)))) ОТРАБОТАЛО ОТЛИЧНО!!!!

[Iska]

Technik_spat, сколько по времени у Вас вышло?

[Technik_spat]

Конкретно по Вашему скрипту отработало до 17 000 строк (остальные тупо отвалились на этапе отбора по фильтру), в районе 1-3 минут.

[Iska]

отработало до 17 000 строк (остальные тупо отвалились на этапе отбора по фильтру) »

Не — это значит, что отработало все:

До 400 000 строк »

в районе 1-3 минут. »

Спасибо, ясно.

[DJ Mogarych]

А в Powershell сколько будет выполняться? (Подразумевается версия 5.1)

Код:

Measure-command -Expression {

$sgtin = (Import-Csv "C:\temp\amark_sgtin.txt" -Delimiter ';' -Encoding default |? status -match "^11$|^14$|^99$").sgtin
$prices = Import-Csv "C:\temp\REPACK.txt" -Delimiter ';' -Encoding default -Header sgtin,0,price |select sgtin,price

$result = @()
$prices |% {
    if ($_.sgtin -in $sgtin) {$result += $_}
}

$result |Export-Csv "C:\temp\result.csv" -Delimiter ';' -Encoding default -NoTypeInformation

}

pause

[Technik_spat]

А в Powershell сколько будет выполняться? (Подразумевается версия 5.1) »

Поуэершелл не проходит.

Необходимо предоставить выражение для значения справа от оператора "-". At line:8 char:18 Неожиданный токен "in" в выражении или инструкции. At line:8 char:19 Неожиданный токен "sgtin" в выражении или инструкции. At line:8 char:22

Не — это значит, что отработало все: »

Всё правильно отработало. Марки то выбывают ежедневно. Из огромного массива данных, в обороте не более 2500-3000 марок, в режиме ожидания выбытия как раз 15 000- 20 000 шутк, а остальные имеют признак архива, т.е. они вообще не нужны.