awk 求救

hbiczuo

现在客户有一个需求，要求把一个 下面的文本文件 ：－


k1, k2,  v1a, v1b, v1c, v1d,    v2a, v2b, v2c, v2d .... vna, vnb, vnc, vnd   
k1, k2,  v1a, v1b, v1c, v1d,    v2a, v2b, v2c, v2d .... vna, vnb, vnc, vnd   
。。。。。。

其中，k1，k2列是每行的key，   其他列是数据，每四列是一组， v1a, v1b, v1c, v1d，共有n组，现在要求转换为 以下格式

k1, k2, v1a, v1b, v1c, v1d
k1, k2, v2a, v2b, v2c, v2d
....
k1, k2,  vna, vnb, vnc, vnd   
k1, k2,  v1a, v1b, v1c, v1d
k1, k2,  v2a, v2b, v2c, v2d
....
k1, k2, vna, vnb, vnc, vnd   

我试了一些awk方法，但是总是不对。求各位大神帮忙 ：）

Herowinter

回复 1# hbiczuo

1. 
   
2. awk 'BEGIN{FS="\\s*,\\s*";OFS=","}{for(i=3;i<=NF;i+=4){print $1,$2,$i,$(i+1),$(i+2),$(i+3)}}' urfile
   
3. k1,k2,v1a,v1b,v1c,v1d
   
4. k1,k2,v2a,v2b,v2c,v2d
   
5. k1,k2,vna,vnb,vnc,vnd
   
6. k1,k2,v1a,v1b,v1c,v1d
   
7. k1,k2,v2a,v2b,v2c,v2d
   
8. k1,k2,vna,vnb,vnc,vnd
   

复制代码

sunzhiguolu

1. perl -F',\s+' -nle 'BEGIN{$,=",";$n=2}print @F[0,1],@F[$n..$n+3] and $n+=4  for 1..((@F-2)/4)' f

复制代码

k1,k2,v1a,v1b,v1c,v1d
k1,k2,v2a,v2b,v2c,v2d
k1,k2,vna,vnb,vnc,vnd

moperyblue

1. sed -r ':a;s/(([^,]*,\s){2}\s)(([^,]*,\s){3}[^,]*),\s+/\1\3\n\1/M;ta'

复制代码

k1, k2,  v1a, v1b, v1c, v1d
k1, k2,  v2a, v2b, v2c, v2d
k1, k2,  vna, vnb, vnc, vnd

1. awk -F", {2,}" '{for(i=2;i<=NF;i++)print $1", ",$i}'

复制代码

k1, k2,  v1a, v1b, v1c, v1d
k1, k2,  v2a, v2b, v2c, v2d
k1, k2,  vna, vnb, vnc, vnd

hz_oracle

awk -F, -vm="4*i" 'BEGIN{OFS=","}{len=split($0,a,",")}{s=NF/4-2/4;for(i=1;i<=s;i++)print $1,$2, a[m-1],a[m+0],a[m+1],a[m+2]}' file

hbiczuo

回复 5# hz_oracle

thanks， 行数是对的，但是 好像 m值没有传进去，每行的值都是一样的


   

hbiczuo

回复 2# Herowinter

多谢！ 这个可以！


   

hbiczuo

回复 4# moperyblue

好像不可以，不知道为什么。 ：）


   

moperyblue

回复 8# hbiczuo

1. 这需要看原始数据的格式了
   
2. 
   
3. 提问:
   
4. 1. k1, k2,后面是两个空格吗? 还是tab?
   
5. 2. 每组四个数之间是一个逗号加一个空格吗? 还是仅仅逗号?
   
6. 3. 每组之间是以tab分隔吗? 还是以多于两个空格分隔?

复制代码

hbiczuo

回复 9# moperyblue

提问:
1. k1, k2,后面是两个空格吗? 还是tab?  ［现在是空格］
2. 每组四个数之间是一个逗号加一个空格吗? 还是仅仅逗号? ［仅仅是逗号，因为是从excel转出的文件］
3. 每组之间是以tab分隔吗? 还是以多于两个空格分隔?［从excel转出的，所以都是逗号分割的］