Hi Guys,

Ich habe eine Text-Datei mit ";" wie Separator

F1, F2, F3, F4, F5
444, 100041, IT, GLOB; 1800000000
444, 100041; TM; GLOB; 1000000000
444;10300264; IT; GLOB;2000000000
444;10300264; IT;GLOB;2500000000

Ich habe die cullums F5 für gleiche F2 und F3 Summe collums
Das Ergebnis muss:

444, 100041, IT, GLOB; 1800000000
444, 100041; TM; GLOB; 1000000000
444;10300264;IT; GLOB;4500000000

Vielen Dank für Ihre Unterstützung.
Grüße
Gianluca

Code: --

nawk -F";"  -v OFS=";" '
NF{a[$2";"$3]+=$5 ; b[$2";"$3]=$1";"$4}
END{ for (i in a) {print i,b[i],a[i] } }
'  input_file | sort | nawk -F";" -v OFS=";" '{print $3,$1,$2,$4,$5}'

nawk  -F";"  -v OFS=";" '
NF{a[$2";"$3]+=$5 ; b[$2";"$3]=$1";"$2";"$3";"$4}
END{ for (i in a) {print b[i],a[i] } }
'  input_file | sort > out_file

awk 'BEGIN{FS=OFS=";"}NR>1{a[$2FS$3]+=$NF;$NF="";b[$2";"$3]=$0}END{for(i in a)print b[i]a[i]}' file

awk -F';' '{A[$2$3]=$1FS$2FS$3FS$4;B[$2$3]+=$5} END{for (i in A) printf "%s%.0f\n",A[i]FS,B[i]}' infile |sort -nt';'

444;100041;IT;GLOB;1800000000
444;100041;TM;GLOB;1000000000
444;10300264;IT;GLOB;4500000000

awk -F';' '{B[$2$3]+=$5;$5="";A[$2$3]=$0} END{for (i in A) printf "%s%.0f\n",A[i],B[i]}' infile |sort -n|tr ' ' ';'

Hi guys,

Vielen Dank für Ihre Antwort und Lösung.
Ich habe ein kleines Problem. Wenn die Quelle Spur wechseln, wie es

444, 100041, IT, GLOB; 1800000000 ;;;;; I
444, 100041; TM; GLOB; 1000000000 ;;;;; I
444; 10300264; IT; GLOB; 4500000000 ;;;;; I

die awk Drop die Zeichen nach der Zahl ";;;;; I "

Was muss ich ändern?
Thanks and regards
Gianluca

Versuchen Sie folgendes:

awk 'BEGIN{OFS=FS=";"}{B[$2$3]+=$5;$5="@";A[$2$3]=$0} END{ for (i in A) {sub(/@/,sprintf("%.0f",B[i]),A[i]); print A[i]}}' infile | sort -nt';'

awk -F';' '{B[$2$3]+=$5;$5="@";A[$2$3]=$0} END{ for (i in A) {sub(/@/,sprintf("%.0f",B[i]),A[i]); print A[i]}}' infile |sort -n|tr ' ' ';'

Verwenden gawk, nawk oder /usr/xpg4/bin/awk auf Solaris.

awk -F\; 'END { for (_ in _0) {
  l = split(_0[_], t); t[5] = _5[_]
  for (i=1; i<=l; i++) 
    printf "%s", t[i] (i == l ? RS : FS)  
    }      
  }  
{ _5[$2,$3] += $5; _0[$2,$3] = $0 }   
' infile

awk -F\; 'END { print r }
!_[$2,$3]++ && NR > 1 { 
  print r; x = 0 
  }
{ $5 = x += $5; r = $0 }
' OFS=\; infile