Сортировать текстовые файлы

@junenot · Регистрация: 10.02.2021

Студворк — интернет-сервис помощи студентам

Здраствуйте)
Дано папка с текстовыми файлами,
нужно по 5 строке осуществить поиск значения и если совпало переместить текстовый файл в соответсвующую папку. Знания и опыт грузчика((( и немного со школы борланд паскаля

пока нашел две логики

1. Проверяю по строкам паттерн 300, и записываю имя файл в текстовый документ ,т.к. ищет по всему файлу попадают и с совпадением дальше нужной нам строки ( тоесть не нужный нам файл отсортируется ) а так же дублирует запись при наличии повторного значения, Удаляем повторы, записывает с доп знаками удаляем их, переносим список отсортированных файлов в нужную папку. я так понимаю тупиковая реализация т.к. по паттерну никак не произвести поиск только по нужной строке или до нужной строки.

PowerShell
1
2
3
4
5
6
7
$match = "500 "  
Select-String -Path C:\00000\*.txt -Pattern $match | Select-Object -Property filename | Set-Content fn.txt 
gc fn.txt | sort | get-unique > unique.txt
Get-Content Unique.txt | foreach-object {$_ -replace "^.*?(GG.*)",'$1'} | Set-Content out.txt
Get-Content out.txt | ForEach-Object {$_ -replace 't\}', 't' } | Set-Content out2.txt
$it=Get-Content out2.txt
Move-Item $it -Destination "C:\x5\"

2. присваиваю переменной путь, присваиваю переменной содержимое файла по пути (что бы можно было взять на сравнение только нужную строку) "захватить имя файла" не получилось.. после команды селектстринг тоже захвата имени файла не происходит((( , все знаний не хватило как теперь этот файл переместить, вроде поиск по нужной строке есть, но при совпадении повершелл просто выдает мне в консоли строку и все.

PowerShell
1
2
3
$fn= "C:\000\*.txt" 
$of= Get-Content $fn | Select-Object -Property filename
select-String -inputObject $of[4] -pattern "300" | Set-Content fn.txt

как Захватить имя файла что бы можно было записать его для дальнейшего перемещения. А если возможно просто сразу при совпадении переместить файл вообще было б хорошо)
почему повершелл? нет проблем с типами данных,открытием закрытием файлов...

@alhaos · 11.02.2021, 15:03

YuS_2, Лучше сдохнуть в стремлении к совершенству, чем сойти с ума доказывая всем, что оно недостижимо.

@lesser · 11.02.2021, 16:53

Сообщение от volodin661

"A".."Z" |3,4| { $_ }

Это конечно не пайп, но тоже вариант:

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
$enum = '[flags()] enum Test {'
 
$n = 1
$str =
foreach ($s in ("a".."z"))
{
    "${s} = ${n}"
    $n *= 2
}
 
$enum += $($str -join ';') + '}'
Invoke-Expression $enum
 
# Это можно вычислить в цикле, но как пример...
 
[Test] 7
[Test] 120
[Test] 896
[Test] 15360
[Test] 114688
[Test] 1966080
[Test] 14680064
[Test] 50331648

Попутный вопрос. Можно ли сформировать enum динамически, сгенерировать его штатными методами, а не через Invoke-Expression?

@volodin661 · 11.02.2021, 17:59

Ваще-то я недорассказал ))

в качестве дескриптора для шейпера(shaper) трубы предполагался хэш @{},
a массив целых чисел - это его вырожденный вид.

PowerShell
1
"A".."Z"  | @{n=3; skip=1; max=10} |  { $_ }

output:

ActionScript 3
1
((A B C) (E F G) (I J K) (M N O) (Q R S) (U V W))

skip может быть и отрицательным, тогда получится нахлёст

PowerShell
1
"A".."Z"  | @{n=3; skip=-1} |  { $_ }

output:

ActionScript 3
1
((A B C) (C D E) (E F G) (G H I) (I J K) (K L M) (M N O) (O P Q) (Q R S) (S T U) (U V W) (W X Y))

PowerShell
1
"A".."Z"  | @{n=1,3,5; skip=-2} |  { $_ }

output:

ActionScript 3
1
((A) (B C D) (E F G H I) (H) (I J K) (L M N O P) (O) (P Q R) (S T U V W) (V) (W X Y))

YuS_2 · 11.02.2021, 21:12

Сообщение от alhaos

Лучше сдохнуть в стремлении к совершенству, чем сойти с ума доказывая всем, что оно недостижимо.

"Ты не дрыгайся! Показывай свою гравицаппу. Если фирменная вещь — возьмём!"

@alhaos · 11.02.2021, 23:08

YuS_2, я так понимаю желание быть понятым Вам чуждо, да кто такой чтобы осуждать, виват абсурду.

@Fors1k · 12.02.2021, 02:06

Сообщение от volodin661

в качестве дескриптора для шейпера(shaper) трубы предполагался хэш @{}

Get-PipeChunks

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
function Get-PipeChunks{[alias("%%")]
    PARAM(
        [parameter(ValueFromPipeline ,  Mandatory)]
        $obj,
        [parameter(Position = 0,Mandatory = $true)]
        [Hashtable]$ops,
        [Switch]$full
    )
    $i,$j,$k = 0,0,0
    [Type]$t = $obj.GetType()
    while($i -lt $obj.count){
        if(!$re){$re = [Collections.ArrayList]::new()}
        if(!$ret){$ret = [System.Object[]]::new(0)}
        if($re.add($obj[$i]) -eq ($ops.n[$k]-1)){
            $ret += ,($re-as$t)
            rv re -ea 0;$k++
            if($k -ge $ops.n.Count){
                $k = 0
                if($ops.n.Count -eq 1){,$ret[0]}
                else{,$ret}
                rv ret -ea 0
                $i += $ops.skip
            }
        }
        $j++;$i++
        if($j -eq $ops.max){break}
    }
    if($full){
        if($re -and $ops.n.Count -gt 1){$ret += ,($re-as$t)}
        elseif($re){$ret = ,($re-as$t)}
    }
    if($ret){,$ret}
}

PowerShell
1
2
3
,("A".."Z")|%% @{n=3; skip=1; max=20}|%{
    $_;"***"
}

PowerShell
1
2
3
,("A".."Z")|%% @{n=3; skip=-1}|%{
    $_;"***"
}

PowerShell
1
2
3
4
,("A".."Z")|%% @{n=1,3,5; skip=-2}|%{
    $_|%{$_;"***"}
    "="*6
}

volodin661, как хотел?)

YuS_2 · 12.02.2021, 08:25

Сообщение от alhaos

я так понимаю желание быть понятым Вам чуждо

не я перешел на аллегории...
Хочешь быть понятым, выражайся яснее, а не:

Сообщение от alhaos

а не лепить "горбатого"

Желание твое там, было понятным изначально, но ты опубликовал какой-то код и упомянул какого-то горбатого... Глеб - ты ли это?

Стремление к звездам - качество достойное, конечно... вот, только к звездам стремиться в тапках и трусах - совсем не то же самое, что в скафандре и на звездолёте с правильной скоростью (надеюсь, понятно, что речь про инструмент в рамках раздела, то бишь powershell) ... главное - не сдохнуть от старости, прежде чем достигнешь первой соседней звезды...

@alhaos · 12.02.2021, 09:36

YuS_2, давайте закончим здесь, не воспринимайте мое "лепить Горбатого" на свой счет, я имел ввиду этим необходимость писать функции (пусть и самые гениальные), вместо наличия шейпера в языке.

@alhaos · 16.02.2021, 06:17

Сообщение от YuS_2

а не лепить "горбатого"

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

@volodin661 · 17.02.2021, 20:18

Приготовил горбатый командлет
( пока очень сырой )

Назвал Get-Down
( полное название «Get-Down-On-It».
в википедии пишут, что-то культурное про смысл одноименной песни, но знакомый англичанин рассказывал, помню, что там всё про е#лю )

По задумке должен быть весьма полезен;

приходящий по трубе массив ты формируешь сам на ходу,
подставляя свои переменные в теле скрипт-блока.
( scriptblock является параметром для Get-Down )

Каждая такая переменная принимает на себя каждый следующий об'ект из трубы.

Короче:
Вот файл: черви.txt

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Черви ( Vérmes )
 
Общий очерк
 
Класс I. – Коловратки (Rotatoria)
 
I Сем. – Панцирные коловратки (Branchionidae)
 
Четырехрогая коловратка (Noteus quadricornis)
 
II Сем. – Гидатины (Hydatinea)
 
Прозрачная гидатина (Hydatina senta)
 
Хищная одноглазая коловратка (Notommata myrmeleo)
 
III Сем. – Филодиновые (Philodinea)
 
Колесник (Rotifer vulgaris)
 
Collidina parasitica
 
IV Сем. – Трубочковые коловратки (Tubicollaridae)
 
Украшенная флоскулария (Floscularia ornata)
 
Общественная коловратка (Conochilus)
 
Класс II. – Звездчатые черви (Gephiei)
 
Зеленая бонеллия (Bonellia viridis)

вот вызов:

PowerShell
1
gc черви.txt | get-down { param ( $a, $skip1, $b, $skip2 )   "$a ^ $b" }

то есть, игнорируем мусорные пробелы и соединяем попарно строки через ^
вот вывод:

Code
1
2
3
4
5
6
7
8
Черви ( Vérmes ) ^ Общий очерк
Класс I. – Коловратки (Rotatoria) ^ I Сем. – Панцирные коловратки (Branchionidae)
Четырехрогая коловратка (Noteus quadricornis) ^ II Сем. – Гидатины (Hydatinea)
Прозрачная гидатина (Hydatina senta) ^ Хищная одноглазая коловратка (Notommata myrmeleo)
III Сем. – Филодиновые (Philodinea) ^ Колесник (Rotifer vulgaris)
Collidina parasitica ^ IV Сем. – Трубочковые коловратки (Tubicollaridae)
Украшенная флоскулария (Floscularia ornata) ^ Общественная коловратка (Conochilus)
Класс II. – Звездчатые черви (Gephiei) ^ Зеленая бонеллия (Bonellia viridis)

Добавлено через 16 минут
про исходник-то забыл:
getdownonit.ps1

Кликните здесь для просмотра всего текста

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
function Get-Down { 
 
    param(  
 
        [Parameter(ValueFromPipeLine,Mandatory)]
        [object[]] $obj,
 
        [Parameter(Mandatory,Position=1)]
        [scriptblock]$code
    )
    
    BEGIN {
 
        $Size   = $code.Ast.ParamBlock.Parameters.count
        $Buffer = New-Object System.Collections.ArrayList($Size)
    }
 
    PROCESS {
            [void]$Buffer.Add($obj)
 
            if ($Buffer.Count -eq $Size) {    
                $b = $Buffer;
                $Buffer = New-Object System.Collections.ArrayList($Size)
                $code.Invoke([object[]]$b) 
            }
    }
 
 
    END {
        if ($Buffer.Count -ne 0) {  
            $code.Invoke([object[]]$Buffer)
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026

@alhaos 1934 / 549 / 155 Регистрация: 20.02.2019 Сообщений: 2,675 Записей в блоге: 77
	11.02.2021, 15:03
	YuS_2, Лучше сдохнуть в стремлении к совершенству, чем сойти с ума доказывая всем, что оно недостижимо. 0

@alhaos 1934 / 549 / 155 Регистрация: 20.02.2019 Сообщений: 2,675 Записей в блоге: 77
	11.02.2021, 23:08
	YuS_2, я так понимаю желание быть понятым Вам чуждо, да кто такой чтобы осуждать, виват абсурду. 0

@alhaos 1934 / 549 / 155 Регистрация: 20.02.2019 Сообщений: 2,675 Записей в блоге: 77
	12.02.2021, 09:36
	YuS_2, давайте закончим здесь, не воспринимайте мое "лепить Горбатого" на свой счет, я имел ввиду этим необходимость писать функции (пусть и самые гениальные), вместо наличия шейпера в языке. 0