[Iska]

Например: »

Так:

Код:

$aContent = Get-Content -Path 'C:\Мои проекты\0266\0001.txt'

@(for($i = 0; $i -le $aContent.Length - 1; $i = $i + 2) {
    $aContent[$i] + "`r`n" + $aContent[$i + 1]
}) | Sort-Object -Unique

Код: #EXTINF:0, 1+1 http://193.106.211.2:1234/udp/225.1.1.103:4001 #EXTINF:0, 2+2 http://193.106.211.2:1234/udp/225.1.1.115:4001 #EXTINF:0, 5 канал http://193.106.211.2:1234/udp/225.1.1.105:4001 #EXTINF:0, ICTV http://193.106.211.2:1234/udp/225.1.1.104:4001 #EXTINF:0, канал «Киев» http://193.106.211.2:1234/udp/225.1.1.114:4001 #EXTINF:0, М1 http://193.106.211.2:1234/udp/225.1.1.113:4001 #EXTINF:0, Мега http://193.106.211.2:1234/udp/225.1.1.112:4001 #EXTINF:0, Сити http://193.106.211.2:1234/udp/225.1.1.108:4001 #EXTINF:0, СТБ http://193.106.211.2:1234/udp/225.1.1.106:4001 #EXTINF:0, ТЕТ http://193.106.211.2:1234/udp/225.1.1.110:4001 #EXTINF:0, Тонис http://193.106.211.2:1234/udp/225.1.1.111:4001 #EXTINF:0, ТРК «Киев» http://193.106.211.2:1234/udp/225.1.1.114:4001 #EXTINF:0, ТРК «Украина» http://190.106.210.2:1234/udp/225.1.1.107:4001 #EXTINF:0, ТРК «Украина» http://193.106.211.2:1234/udp/225.1.1.107:4001

?

[Uragan66]

Iska, спасибо! Да, выходной файл должен быть именно таким. Но у меня Ваш код почему-то не срабатывает. Входной файл остаётся без изменений.


P.S. Мои извинения, всё работает, это я с запуском затупил. Сейчас запуская скрипт батником:

Код:

@echo off
Powershell -File ./sortes.ps1 >> test.txt

файл test.txt получается без дублей.
Но есть некоторые нюансы. Скрипт ps1 нормально читает файлы только в кодировке ANSI, а в выходном файле кодировка OEM866 (это говорит AkelPad, а Notepad++ определяет как ANSI).
Можно как-то переделать на UTF-8 ?
А то на выходе, если в входном файле есть кавычки типа:

Код:

ТРК «Киев»

получается:

Код:

ТРК <Киев>

Спасибо!

[greg zakharov]

Iska, (ради спортивного интереса) задачу можно решить короче через (MINGW|Cygwin|WSL):

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

Код:

sed 'N;s/\n/ - /' input.log | sort | sed 'N;/^\(.*\)\n\1$/!P;D' | sed 's/ - /\n/g'

Можно, правда, еще короче:

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

Код:

sed 'N;s/\n/ - /' input.log | sort | uniq | sed 's/ - /\n/g'

Если лог большой, лучше через parallel, а еще лучше и вовсе на чистом perl (также однострочник). Но это дело вкуса.

[YuS_2]

(ради спортивного интереса) задачу можно решить короче »

Код:

gc test.txt -r 2|%{"$($_[0])`n$($_[1])"}|sort -uni

[greg zakharov]

YuS_2, ReadCount ведь уже установлен в пару, зачем там цикл? Просто select -u:

Код:

gc input.log -r 2 | select -u

или, если сортировка принципиальна:

Код:

gc input.log -r 2 | sort | select -u

pwsh прекрасно поймет, что от него хотят.

[Uragan66]

Ребята, спасибо всем !
Но вопрос с кодировкой так и остался.
Входной файл/файлы в utf-8 и после скрипта, предложенного ув. Iska, с русскими символами на выходе беда, крякозябры выходят.
Сортировка в тексте не обязательна, главное удаление дублей парных строк.
С остальными скриптами не совсем разобрался, как их запускать.

[greg zakharov]

Код:

gc input.log -encoding utf8 ...

При выводе в файл оператор перенаправления (>) "пишет" в utf8 (если ничего не путаю), но лучше использовать командлет Out-File для последующей записи в файл (в нем можно указать конечную кодировку).

С остальными скриптами не совсем разобрался, как их запускать.

Это - однострочники (для дзенствующих ), выполняются прямо в хосте pwsh.

[YuS_2]

ReadCount ведь уже установлен в пару, зачем там цикл? »

не помню, что-то там у меня сразу не пошло, вроде бы, строки перемешались в каком-то варианте, поэтому в цикл засунул, чтобы наверняка

если сортировка принципиальна: »

у сорт, кстати, тоже есть параметр -Unique, т.е. достаточно:

Код:

gc test.txt -r 2|sort -u

[Uragan66]

С кодировкой и выводом всё получилось.
Огромная благодарность всем за помощь!