[YuS_2]

Technik_spat,
Образец файла потребуется...
И желательно описание того, что в итоге требуется получить, а лучше образец того, что будет на входе и что необходимо получить на выходе...

[Technik_spat]

Сама задача:
из файла ITOG извлечь первый и третий столбцы, используя ключевые строки из файла amark_sgtin.txt
Во вложении обрезанные файлы и как должен выглядить файл вывода (out.txt)
Файл 169499
Файл 169500
Файл 169501

[YuS_2]

Сама задача »

В такой постановке задачи, с данными примерами...
Наверное, так:

Код:

$sgtin  = 'G:\Test_stgin\Farm_new\amark_sgtin.txt'
$repack = 'G:\Test_stgin\Farm_new\ITOG.txt'
$out    = 'G:\Test_stgin\Farm_new\out.txt'
$a  =  ((sls $sgtin -patt '\b(11|28)\b;?$').line|
convertfrom-csv -delim ';' -h SGTIN,H,Value).sgtin
$r = (sls $repack -patt $a).line|convertfrom-csv -delim ';' -h SGTIN,H,Value|
select SGTIN,Value
$param = @{}
$param.Path = $out
$param.NoTypeInformation = $true
$param.Encoding = 'UTF8'
$param.Delimiter = ';'
if ($psversiontable.psversion.major -gt 5){
    $param.NoHeader = $true
    $param.UseQuotes = 'AsNeeded'
}
$r|export-csv @param

- должно побыстрее работать...

[Technik_spat]

В pwsh 7 не захотел((((
А в 6 уже 20 минут отрабатывает.
Тут наверное проще сделать в таком алгоритме:
в файле ITOG удаление строк отсутствующих в amark_sgtin
т.е. что то аналогичное cmd

Код:

findstr /L /v /X /g:remove.txt content.txt>result.txt

но наоборот.

[YuS_2]

В pwsh 7 не захотел »

В нем тоже проверялся, версия 7.4
Какую ошибку пишет?

Тут наверное проще сделать в таком алгоритме »

в cmd не проще, особенно, если будет вопрос в кодировке... а ещё особеннее, если файлы непомерного размера...

уже 20 минут отрабатывает. »

Ну, есть вариант ещё ускорить, если потоковое чтение файла задействовать...

[DJ Mogarych]

Код:

$sgtin  = 'D:\temp\test_stgin\amark_sgtin.txt'
$repack = 'D:\temp\test_stgin\ITOG.txt'
$out    = 'D:\temp\test_stgin\out.txt'

[regex]$repackStrings = [System.IO.File]::ReadAllLines("$sgtin") -replace ';.*' -join '|'
[regex]$replace = ';\w+|\s+'
[System.IO.File]::WriteAllLines("$out", ([System.IO.File]::ReadAllLines("$repack") -match $repackStrings -replace $replace))

[YuS_2]

[regex]$repackStrings = [System.IO.File]::ReadAllLines("$sgtin") -replace ';.*' -join '|' »

тут ведь не все строки будут использоваться:

используя ключевые строки из файла amark_sgtin.txt »

а ключ у них:

Value -Match '^11$|^28$' »

- т.е. в третьем поле должны быть эти цифры...

[Technik_spat]

СПАСИБО!!!
Теперь можно bat добить другие процедуры и наконец скорость пойдет)))))

[DJ Mogarych]

YuS_2, я так понял, что автор хотел как раз

убрать функцию отбора по признакам 11 и 28, оставив только выборку по SGTIN »