Выборка с преобразованием

@Wulfred · Регистрация: 06.09.2016

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

Есть два столбца - номер машины и цвет машины.
ВВ234-03 Лексус темного цвета краски
ВВ213-03 Лексус темного цвета краски
ВВ231-043

Надо сделать выборку по последним двум символам номера, в данном случае 03 и представить в трех вариантах со следющим преобразованием:
ВВ234-Ч(03 заменено на ч, замена по соответствию двух символов, обязательно с конца, не любых)
Лексус темного цвета Черный(краски заменено на черный, замена производится по слову)

ВВ234-С Лексус темного цвета Синий
ВВ234-Б Лексус темного цвета Бордовый

Преобразование нужно записать в новые столбы НП(номер преобразованный) и ЦП соответственно. Я не разбираюсь в павершеле, но для решения данной проблемы меня направили сюда.

Добавлено через 16 минут

Номер машины

Цвет машины

ВВ234-03

Лексус темного цвета краски

Нужно вынести в другие столбы НП ЦП

НП

ЦП

ВВ234-С

Лексус темного цвета Синий

ВВ234-Б

Лексус темного цвета Бордовый

ВВ234-Ч

Лексус темного цвета Черный

ВВ234-К

Лексус темного цвета Красный

@Wulfred · 06.09.2017, 07:50 **[ТС]**

Вот пример, его надо в цсв и обратно. Цвета те же.

@KDE777 · 06.09.2017, 10:09

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

Вот пример

Допустим есть csv-файл "cars.csv":

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

Номер машины;Цвет машины
ВВ234-03;Лексус темного цвета краски
ВВ213-03;БМВ светлого цвета краски

Тогда этот скрипт:

PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$colors = 'Синий', 'Бордовый', 'Черный', 'Красный'
$IN_file = 'C:\Temp\_Files\cars.csv'
$OUT_file = 'C:\Temp\_Files\cars_colors.csv'
 
Set-Content $OUT_file 'НП;ЦП' -Encoding Default
 
foreach ($car in import-csv $IN_file -Encoding Default -Delimiter ';')
{
    foreach ($color in $colors)
    {
        $Out_Number = $car.'Номер машины' -replace '\d{2}$',$color[0]
        $Out_Color = $car.'Цвет машины'.Replace('краски',$color)
        $Out_Number,$Out_Color -join ';' | Add-Content $OUT_file
    }
}

Создаст вот такой csv-файл "cars_colors.csv":

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

НП;ЦП
ВВ234-С;Лексус темного цвета Синий
ВВ234-Б;Лексус темного цвета Бордовый
ВВ234-Ч;Лексус темного цвета Черный
ВВ234-К;Лексус темного цвета Красный
ВВ213-С;БМВ светлого цвета Синий
ВВ213-Б;БМВ светлого цвета Бордовый
ВВ213-Ч;БМВ светлого цвета Черный
ВВ213-К;БМВ светлого цвета Красный

csv.zip

@KDE777 · 06.09.2017, 12:45

+ вариант с сохранением исходных (cars.csv) и преобразованных данных в один xlsx-файл "cars_colors.xlsx"

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
35
36
37
$colors = 'Синий', 'Бордовый', 'Черный', 'Красный'
$IN_file = 'C:\Temp\_Files\cars.csv'
$OUT_file = 'C:\Temp\_Files\cars_colors.xlsx'
 
$Excel = New-Object -ComObject excel.application
$Excel.visible = $false 
$workbook = $Excel.workbooks.add() 
 
$Excel.cells.item(1,1) = "Номер машины"
$Excel.cells.item(1,2) = "Цвет машины"
$Excel.cells.item(1,6) = "НП"
$Excel.cells.item(1,7) = "ЦП"
 
$i = 2
$j = 2
 
foreach ($car in import-csv $IN_file -Encoding Default -Delimiter ';')
{
 
    $Excel.cells.item($i,1) = $car.'Номер машины'
    $Excel.cells.item($i,2) = $car.'Цвет машины'
    $i++
    
    foreach ($color in $colors)
    {
        $Excel.cells.item($j,6) = $car.'Номер машины' -replace '\d{2}$',$color[0]
        $Excel.cells.item($j,7) = $car.'Цвет машины'.Replace('краски',$color)
        $j++
    }
}
 
$workbook.saveas($OUT_file)
$Excel.Quit()
Remove-Variable -Name excel
 
[gc]::collect() 
[gc]::WaitForPendingFinalizers()

@Wulfred · 06.09.2017, 13:02 **[ТС]**

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

+ вариант с сохранением исходных (cars.csv) и преобразованных данных в один xlsx-файл "cars_colors.xlsx"

А если и на входе и на выходе одинаково?

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
35
36
37
$colors = 'Black', 'Red', 'Orange', 'Brown'
$IN_file = 'C:\Users\SSSW18\Desktop\Example.csv'
$OUT_file = 'C:\Users\SSSW18\Desktop\Example23.xlsx'
 
$Excel = New-Object -ComObject excel.application
$Excel.visible = $false 
$workbook = $Excel.workbooks.add() 
 
$Excel.cells.item(1,1) = "Car"
$Excel.cells.item(1,2) = "Color"
$Excel.cells.item(1,6) = "Car"
$Excel.cells.item(1,7) = "Color"
 
$i = 2
$j = 2
 
foreach ($car in import-csv $IN_file -Encoding Default -Delimiter ';')
{
 
    $Excel.cells.item($i,1) = $car.'Car'
    $Excel.cells.item($i,2) = $car.'Color'
    $i++
    
    foreach ($color in $colors)
    {
        $Excel.cells.item($j,6) = $car.'Car' -replace '\d{2}$',$color[0]
        $Excel.cells.item($j,7) = $car.'Color'.Replace('Painted',$color)
        $j++
    }
}
 
$workbook.saveas($OUT_file)
$Excel.Quit()
Remove-Variable -Name excel
 
[gc]::collect() 
[gc]::WaitForPendingFinalizers()

Примерно так. Только нужно искать два, последних не любых, а ключевых символа, к примеру DS.
p.s. ПРЕДУПРЕЖДЕНИЕ: Один или несколько заголо
умолчанию, начинающиеся с буквы "H".

@KDE777 · 06.09.2017, 13:17

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

А если и на входе и на выходе одинаково?

Не понял, что именно одинаково?

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

Примерно так. Только нужно искать два, последних не любых, а ключевых символа, к примеру DS.

Т.е. нужно обрабатывать только строчки, у которых поле номер машины заканчивается на DS? А остальное просто пропускать?

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

p.s. ПРЕДУПРЕЖДЕНИЕ: Один или несколько заголо
умолчанию, начинающиеся с буквы "H".

Не понял что это?

@Wulfred · 06.09.2017, 13:20 **[ТС]**

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

Т.е. нужно обрабатывать только строчки, у которых поле номер машины заканчивается на DS? А остальное просто пропускать?

Верно, исключительно на DS и чтобы $Excel.cells.item($j,7) = $car.'Color'.Replace('Painted',$color) Painted было строгим, Unpainted, overpainted, dispainted - пропускать.
$Excel.cells.item(1,1) = "Car"
$Excel.cells.item(1,2) = "Color"
$Excel.cells.item(1,6) = "Car"
$Excel.cells.item(1,7) = "Color"
одинаковые хидеры.

@KDE777 · 06.09.2017, 13:54

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

$colors = 'Black', 'Red', 'Orange', 'Brown'

У Black и Brown получится одинаковый код, например ВВ234-B - так и надо?

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

Painted было строгим, Unpainted, overpainted, dispainted - пропускать.

Слово Painted, как в изначальном примере (Лексус темного цвета краски) всегда расположено в конце строки и всегда с пробелом впереди?

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

Верно, исключительно на DS и чтобы $Excel.cells.item($j,7) = $car.'Color'.Replace('Painted',$color) Painted было строгим, Unpainted, overpainted, dispainted - пропускать.

Т.е. выбирать из исходного файла только строчки у которых: поле "Car" заканчивается на DS И поле "Color" заканчивается на "[пробел]Painted"?

И можно сразу указывать все нужные условия:
- формат входных данных
- точные условия для выбора
- точные условия для преобразования
- формат выходных данных

А то спрашиваете одно, а потом начинаете менять/добавлять условия...

@Wulfred · 06.09.2017, 14:08 **[ТС]**

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

У Black и Brown получится одинаковый код, например ВВ234-B - так и надо?

Cyan вместо brown.
ds - только ds, одна пара, только вконце, даже если идет b92dsds329ds-xdsds -не подходит, а b92dsds329ds-xxdds(строго 2, строго после "-")
Слово Painted, как в изначальном примере (Лексус темного цвета краски) всегда расположено в конце строки и всегда с пробелом впереди. В данном случае да.
- формат входных данных car текст, color общий
- точные условия для выбора - одна строгая копия символов ds, строго вконце, b92dsds329ds-xdsds - wrong, b92dsds329ds-xxdds - right
- точные условия для преобразования
b92dsds329ds-c | black card Cyan
b92dsds329ds-b | black card Black
- формат выходных данных car текст, color общий
Простите, когда на стороне "заказчика" соображаешь иначе.

@KDE777 · 06.09.2017, 18:22

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

Cyan вместо brown.
ds - только ds, одна пара, только вконце, даже если идет b92dsds329ds-xdsds -не подходит, а b92dsds329ds-xxdds(строго 2, строго после "-")
Слово Painted, как в изначальном примере (Лексус темного цвета краски) всегда расположено в конце строки и всегда с пробелом впереди. В данном случае да.
- формат входных данных car текст, color общий
- точные условия для выбора - одна строгая копия символов ds, строго вконце, b92dsds329ds-xdsds - wrong, b92dsds329ds-xxdds - right
- точные условия для преобразования
b92dsds329ds-c | black card Cyan
b92dsds329ds-b | black card Black

Входной csv-файл:

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

Car;Color
b92-ds;black card Painted
b92-ds;black card Paint
b92-ts;black card Painted
b92dsds329ds-xdsds;black card Painted
b92dsds329ds-xxdds;black card Paint
b92dsds329ds-xxdds;black card Painted

Вот скрипт:

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
35
36
37
38
39
$colors = 'Black', 'Red', 'Orange', 'Cyan'
$IN_file = 'C:\Temp\_Files\cars.csv'
$OUT_file = 'C:\Temp\_Files\cars_colors.xlsx'
 
$Excel = New-Object -ComObject excel.application
$Excel.visible = $false 
$workbook = $Excel.workbooks.add() 
 
$Excel.cells.item(1,1) = "Car"
$Excel.cells.item(1,2) = "Color"
$Excel.cells.item(1,6) = "Car"
$Excel.cells.item(1,7) = "Color"
 
$i = 2
$j = 2
 
foreach ($item in import-csv $IN_file -Encoding Default -Delimiter ';' | ? {$_.Color -like '* Painted' -and $_.Car -like '*-*ds'})
{
    if ( ([regex]::Matches($item.Car.split('-')[-1],'ds')).Count -eq 1 )
    {
        $Excel.cells.item($i,1) = $item.Car
        $Excel.cells.item($i,2) = $item.Color
        $i++
    
        foreach ($color in $colors)
        {
            $Excel.cells.item($j,6) = $item.car -replace '-.*$',"-$($color[0])"
            $Excel.cells.item($j,7) = $item.Color -replace '\sPainted$'," $color"
            $j++
        }
    }
}
 
$workbook.saveas($OUT_file)
$Excel.Quit()
Remove-Variable -Name excel
 
[gc]::collect() 
[gc]::WaitForPendingFinalizers()

Который сделает xlsx-файл:

Не по теме:

Но здесь есть люди, которые могут сделать выбор строчки с правильным ds поизящней...

@Wulfred · 06.09.2017, 18:38 **[ТС]**

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

Вот скрипт:

Я поменял всего лишь путь и ds, на две другие буквы и файл на выходе пуст. С чего это может быть связано?
23121-321321-23213DS другой сплит?

@KDE777 · 06.09.2017, 19:05

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

Я поменял всего лишь путь и ds, на две другие буквы и файл на выходе пуст. С чего это может быть связано?
23121-321321-23213DS другой сплит?

[regex]::Matches - чувствителен к регистру, если ds может быть в разном регистре, то исправить это быстро можно заменив строчку #19 на:

PowerShell
1
    if ( ([regex]::Matches($item.Car.ToLower().split('-')[-1],'ds')).Count -eq 1 )

@Wulfred · 06.09.2017, 19:32 **[ТС]**

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

чувствителен к регистру

Просто чуднесно! Работает, но можно так чтобы другие значения не удалялись? Все оставалось на своих местах, просто ds-ные выносились в 1.6-1.7

Добавлено через 23 минуты
Выносились только преобразования.

@KDE777 · 06.09.2017, 19:38

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

но можно так чтобы другие значения не удалялись? Все оставалось на своих местах, просто ds-ные выносились в 1.6-1.7

Можно, вот только я ранее спрашивал, что делать с не совпадающими полями, на что был ответ - пропускать...

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
35
36
37
38
39
$colors = 'Black', 'Red', 'Orange', 'Cyan'
$IN_file = 'C:\Temp\_Files\cars.csv'
$OUT_file = 'C:\Temp\_Files\cars_colors.xlsx'
 
$Excel = New-Object -ComObject excel.application
$Excel.visible = $false 
$workbook = $Excel.workbooks.add() 
 
$Excel.cells.item(1,1) = "Car"
$Excel.cells.item(1,2) = "Color"
$Excel.cells.item(1,6) = "Car"
$Excel.cells.item(1,7) = "Color"
 
$i = 2
$j = 2
 
foreach ($item in import-csv $IN_file -Encoding Default -Delimiter ';')
{
    $Excel.cells.item($i,1) = $item.Car
    $Excel.cells.item($i,2) = $item.Color
    $i++
    
    if ( $item | ? {$_.Color -like '* Painted' -and $_.Car -like '*-*ds'} | ?{([regex]::Matches($_.Car.ToLower().split('-')[-1],'ds')).Count -eq 1} )
    {
        foreach ($color in $colors)
        {
            $Excel.cells.item($j,6) = $item.Car -replace '-[^-]+$',"-$($color[0])"
            $Excel.cells.item($j,7) = $item.Color -replace '\sPainted$'," $color"
            $j++
        }
    }
}
 
$workbook.saveas($OUT_file)
$Excel.Quit()
Remove-Variable -Name excel
 
[gc]::collect() 
[gc]::WaitForPendingFinalizers()

@Wulfred · 06.09.2017, 19:43 **[ТС]**

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

Можно, вот только я ранее спрашивал, что делать с не совпадающими полями, на что был ответ - пропускать...

только с таким кодом не пишет в 1.6-1.7 преобразования.

@KDE777 · 06.09.2017, 19:51

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

только с таким кодом не пишет в 1.6-1.7 преобразования.

Видимо, что-то поменяли...

Скрипт из сообщения #14 превратил этот csv:

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

Car;Color
b92-ds;black card Painted
b92-ds;black card Paint
b92-ts;black card Painted
23121-321321-23213DS;black card Painted
b92dsds329ds-xdsds;black card Painted
b92dsds329ds-xxdds;black card Paint
b92dsds329ds-xxdds;black card Painted

В такой xlsx:

@Wulfred · 06.09.2017, 20:15 **[ТС]**

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

Видимо, что-то поменяли...

цвета - пути, не важно

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
35
$Excel = New-Object -ComObject excel.application
$Excel.visible = $false 
$workbook = $Excel.workbooks.add() 
 
$Excel.cells.item(1,1) = "Car"
$Excel.cells.item(1,2) = "Color"
$Excel.cells.item(1,6) = "Car"
$Excel.cells.item(1,7) = "Color"
 
$i = 2
$j = 2
 
foreach ($item in import-csv $IN_file -Encoding Default -Delimiter ';')
{
    $Excel.cells.item($i,1) = $item.Car
    $Excel.cells.item($i,2) = $item.Color
    $i++
    
    if ( $item | ? {$_.Color -like '* Painted' -and $_.Car -like '*-*ds'} | ?{([regex]::Matches($_.Car.ToLower().split('-')[-1],'ds')).Count -eq 1} )
    {
        foreach ($color in $colors)
        {
            $Excel.cells.item($j,6) = $item.Car -replace '-[^-]+$',"-$($color[0])"
            $Excel.cells.item($j,7) = $item.Color -replace '\sPainted$'," $color"
            $j++
        }
    }
}
 
$workbook.saveas($OUT_file)
$Excel.Quit()
Remove-Variable -Name excel
 
[gc]::collect() 
[gc]::WaitForPendingFinalizers()

такой скрипт.

@KDE777 · 06.09.2017, 20:31

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

цвета - пути, не важно

Вот как раз определение массива $coloros очень важно.

Специально добавил, помимо записи в xlsx, ещё и вывод на экран - всё работает:

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

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
35
36
37
38
39
40
41
42
43
44
45
$colors = 'Black', 'Red', 'Orange', 'Cyan'
$IN_file = 'C:\Temp\_Files\cars.csv'
$OUT_file = 'C:\Temp\_Files\cars_colors.xlsx'
 
$Excel = New-Object -ComObject excel.application
$Excel.visible = $false 
$workbook = $Excel.workbooks.add() 
 
$Excel.cells.item(1,1) = "Car"
$Excel.cells.item(1,2) = "Color"
$Excel.cells.item(1,6) = "Car"
$Excel.cells.item(1,7) = "Color"
 
$i = 2
$j = 2
 
cls
foreach ($item in import-csv $IN_file -Encoding Default -Delimiter ';')
{
    Write-Host $item.Car $item.Color -f Green
    $Excel.cells.item($i,1) = $item.Car
    $Excel.cells.item($i,2) = $item.Color
    $i++
    
    if ( $item | ? {$_.Color -like '* Painted' -and $_.Car -like '*-*ds'} | ?{([regex]::Matches($_.Car.ToLower().split('-')[-1],'ds')).Count -eq 1} )
    {
        foreach ($color in $colors)
        {
            $ConvertCar = $item.Car -replace '-[^-]+$',"-$($color[0])"
            $ConvertColor = $item.Color -replace '\sPainted$'," $color"
            Write-Host 'Convert:' $ConvertCar $ConvertColor -f Yellow
 
            $Excel.cells.item($j,6) = $ConvertCar
            $Excel.cells.item($j,7) = $ConvertColor
            $j++
        }
    }
}
 
$workbook.saveas($OUT_file)
$Excel.Quit()
Remove-Variable -Name excel
 
[gc]::collect() 
[gc]::WaitForPendingFinalizers()

@Wulfred · 06.09.2017, 20:36 **[ТС]**

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

Вот как раз определение массива $coloros очень важно.

Я увеличил количество цветов, это ошибка?

Добавлено через 3 минуты

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

$colors = 'Black', 'Red', 'Orange', 'Cyan'

$colors = 'Black', 'Red', 'Orange', 'Cyan', 'White'
синтаксис не нарушен, первые буквы не пересекаются, просто их 5
в предыдущем варианте работало, который обрезал список.

@KDE777 · 06.09.2017, 20:41

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

Я увеличил количество цветов, это ошибка?

Количество может быть любое, главное корректно присвоить значения

PowerShell
1
$colors = 'Black','Red','Orange','Cyan','Yellow'

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .