☰

AWK завершает автономный скрипт

tag-icon • tag-icon awk csv gawk
AWK завершает автономный скрипт

Я начал делать это... чтобы поменять местами поля в файле csv, но мне не удаётся закончить скрипт. Я хочу объединить поля со 2 по 7 и сгруппировать их по первому полю. Поля 1, 8 и 9 должны соблюдаться для каждой строки.

Моя работа

BEGIN{
FS=";"
OFS="";
x="\"\"";
}
{
for(i=2;i<=7;i++){ if($i!= x)
  k=match(a[$1], $i);
if (k == 0)
{
  a[$1]=a[$1]";"$i;
}
  b[$1]=b[$1]"-"$8""FS""$9;
}
END {
  for (g in a)
    t=split(a[g], A, ";");
  if (t == 2)
  {
    a[g]=a[g]";"x";"x";"x";"x";"x";";
    }
  if (t == 3)
  {
    a[g]=a[g]";"x";"x";"x";"x";";
  }
  if (t == 4)
  {
    a[g]=a[g]";"x";"x";"x";";
  }
  if (t == 5)
  {
    a[g]=a[g]";"x";"x";";
  }
for (h in b)
    q=split(b[h], B, "-");
for (z=1; z <= q; z++)
    b[h]=B[z];                               
}
}

CSV-файл;

"1033reto";"V09B";"";"";"";"";"";"QVN";"V09B"
"1033reto";"V010";"";"";"";"";"";"QVN";"V010"
"1033reto";"V015";"";"";"";"";"";"QVN";"V015"
"1033reto";"V08C";"";"";"";"";"";"QVN";"V08C"

"1040reto";"V03D";"";"";"";"";"";"QVN";"V03D"
"1040reto";"V01C";"";"";"";"";"";"QVN";"V01C"

"1050reto";"V03D";"";"";"";"";"";"QVN";"V03D"
"1050reto";"V01F";"V07L";"";"";"";"";"QVN";"V01C"
.......

Желаемый результат;

Первая группа — это объединение полей от 2 до 7 из первых четырех строк. Затем повторите для каждой строки с тем же первым полем. Вторая группа — это объединение полей от 2 до 7 из следующих двух строк. Затем повторите для каждой строки с тем же первым полем. Третья группа — это объединение полей от 2 до 7 из последних двух строк. Затем повторите для каждой строки с тем же первым полем.

"1033reto";"V09B";"V010";"V015";"V08C";"";"QVN";"V09B"
"1033reto";"V09B";"V010";"V015";"V08C";"";"QVN";"V010"
"1033reto";"V09B";"V010";"V015";"V08C";"";"QVN";"V015"
"1033reto";"V09B";"V010";"V015";"V08C";"";"QVN";"V08C"

"1040reto";"V03D";"V01C";"";"";"";"";"QVN";"V03D"
"1040reto";"V03D";"V01C";"";"";"";"";"QVN";"V01C"

"1050reto";"V03D";"V01F";"V07L";"";"";"";"QVN";"V03D"
"1050reto";"V03D";"V01F";"V07L";"";"";"";"QVN";"V01C"
.......

решение1

Theawkскрипт выдает желаемый результат

awk '
BEGIN {
    FS = OFS = SUBSEP = ";"
}
$1 != f {
    for (i = 2; i < 8; i++) {
        line = line ";" A[i]
        A[i] = $i
    }
    if (NR > 1)
        for (j in B)
            print f line, j
    line = ""
    delete B
    count = 0
    f = $1
}
/^$/ {
    print $0
    next
}
{
    for (i = 2; i < 8; i++)
        if ($i !~ /""/)
            A[i + count] = $i
        else
            break
    count += (i-2)
    B[$8, $9] = 1
}
END {
    for (j in B) {
        printf "%s;", f
        for (i = 2; i < 8; i++)
            printf "%s;", A[i]
        print j
    }
}' "CSV File"

Связанный контент