请求帮助数据转换

kensoul

想将以下个人数据补全至2005年
源数据如下：
序号,单位名称,姓名,公民顺序号,单位顺序号,开始年月,终止年月,缴费基数
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200201,200212,1022
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200301,,0
1,道孚县八美镇,徐德珍,513326195701112028,108000208718,108000101814,200401,200412,1352
需要的结果数据数据：
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200201,200212,1022
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200301,,0
,,,,,,200401,,
,,,,,,200501,,
1,道孚县八美镇,徐德珍,513326195701112028,108000208718,108000101814,200401,200412,1352
,,,,,,200501,,
以第6列的最后一个数为基础，现在要把这些人的数据补全到2005年
注：每个人的第6列（即：“开始日期”列）的最大值是不固定的，可能是200301，可能是200201，也可能是199801……

技安

没看懂呀、你的数据好像没有变化呀，怎么补呀～～！！！、

kensoul

原数据中第一个人只有2行，第2个人只有一行，以第6列为标准，如果一个人第6列的最大一个年月小于200501，
那么就在下面放入新行，新行的值：除第6列的值递增加100，直到增加到200501，新行其它数据列的值都全部为空。

技安

晕、那不是第七列吗？

kensoul

哦！是第七列。不好意思。重写一下：
原数据如下：
序号,单位名称,姓名,公民顺序号,单位顺序号,个人顺序号,开始年月,终止年月,缴费基数
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200201,200212,1022
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200301,,0
1,道孚县八美镇,徐德珍,513326195701112028,108000208718,108000101814,200401,200412,1352
需要的结果数据数据：
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200201,200212,1022
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200301,,0
,,,,,,200401,,
,,,,,,200501,,
1,道孚县八美镇,徐德珍,513326195701112028,108000208718,108000101814,200401,200412,1352
,,,,,,200501,,
以第7列的最后一个数为基础，现在要把这些人的数据补全到2005年
注：每个人的第7列（即：“开始日期”列）的最大值是不固定的，可能是200301，可能是200201，也可能是199801……
原数据中第一个人只有2行，第2个人只有一行，以第7列为标准，如果一个人第7列的最大一个年月小于200501，
那么就在下面放入相应新行，新行的值：除第7列的值递增加100，直到增加到200501，新行其它数据列的值都全部为空。

技安

sort -t, -k1 -k2 -k3 +6n filename |awk ' { b[$1$2$3]=$1","$2","$3"," ;a[$1$2$3]=$7 } END  { for ( i in a ) {  if ( a[i] < 200512 ) { for ( tmp=a[i]; tmp < 200512; tmp+=100) { print b[i]",  , ,"tmp", , "} } } } '

－－－－－－－－－－－－－

[aluns]~/atmp>cat aa
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200201,200212,1022
1,道孚县八美工委,白玛优英,513326197307022023,108000208027,108000101721,200301,,0
1,道孚县八美镇,徐德珍,513326195701112028,108000208718,108000101814,200401,200412,1352
[aluns]~/atmp>sort -t, -k1 -k2 -k3 +6n aa | awk -F, ' { b[$1$2$3]=$1","$2","$3"," ;a[$1$2$3]=$7 } END  { for ( i in a ) {  if ( a[i] < 200512 ) { for ( tmp=a[i]; tmp < 200512; tmp+=100) { print b[i]",  , ,"tmp", , "} } } } '
1,道孚县八美镇,徐德珍,,  , ,200401, ,
1,道孚县八美镇,徐德珍,,  , ,200501, ,
1,道孚县八美工委,白玛优英,,  , ,200301, ,
1,道孚县八美工委,白玛优英,,  , ,200401, ,
1,道孚县八美工委,白玛优英,,  , ,200501, ,

技安

晕,把原来的丢了，我再想想。

kensoul

真是谢谢你！